From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.2 required=5.0 tests=BAYES_00,FREEMAIL_FROM, FROM_STARTS_WITH_NUMS autolearn=no autolearn_force=no version=3.4.4 X-Received: by 10.107.190.199 with SMTP id o190mr6074230iof.32.1519340956129; Thu, 22 Feb 2018 15:09:16 -0800 (PST) X-Received: by 10.157.94.15 with SMTP id d15mr400819oti.4.1519340955922; Thu, 22 Feb 2018 15:09:15 -0800 (PST) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!paganini.bofh.team!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!w142no495937ita.0!news-out.google.com!s63ni1419itb.0!nntp.google.com!w142no495934ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Thu, 22 Feb 2018 15:09:15 -0800 (PST) In-Reply-To: <3c869714-ed23-42dd-b0de-4521733da615@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=85.240.211.93; posting-account=rhqvKAoAAABpikMmPHJSZh4400BboHwT NNTP-Posting-Host: 85.240.211.93 References: <3c869714-ed23-42dd-b0de-4521733da615@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: Re: alternative elsif branch not tested From: Mehdi Saada <00120260a@gmail.com> Injection-Date: Thu, 22 Feb 2018 23:09:16 +0000 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Xref: reader02.eternal-september.org comp.lang.ada:50573 Date: 2018-02-22T15:09:15-08:00 List-Id: This piece shall verify the program's arguments. I don't understand why wha= tever the first argument is, it doesn't raise EXC_COMMANDE as expected. It should do it if ARGUMENT(1)(1) isn't 'n','c','N','C'. =20 if Argument_Count /=3D 2 then PUT_LINE ("Pas le bon nombre d'argument= s."); raise Exc_Commande; elsif Argument (1)'Length /=3D 1 and ARGUMENT(1)(1) not in 'n'| 'c'| = 'N' | 'C' then PUT_LINE ("Premi=C3=A8re argument incorrect: veuillez mettre un (se= ul) charact=C3=A8re entre n, c, N et C."); raise Exc_Commande; elsif ADA.Strings.Fixed.Index (Argument (2), Alphanumeric_Set, Outsid= e) /=3D 0 then PUT_LINE ("Deuxi=C3=A8me argument incorrect: l'acronyme ne peut pas conte= nir de chiffres !"); raise Exc_Commande; end if;