old-autovect-branch/gcc/testsuite/ada/acats/tests/cz/cz1101a.ada

   1 -- CZ1101A.ADA
   2 --
   3 --                             Grant of Unlimited Rights
   4 --
   5 --     Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
   6 --     F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
   7 --     unlimited rights in the software and documentation contained herein.
   8 --     Unlimited rights are defined in DFAR 252.227-7013(a)(19).  By making
   9 --     this public release, the Government intends to confer upon all
  10 --     recipients unlimited rights  equal to those held by the Government.
  11 --     These rights include rights to use, duplicate, release or disclose the
  12 --     released technical data and computer software in whole or in part, in
  13 --     any manner and for any purpose whatsoever, and to have or permit others
  14 --     to do so.
  15 --
  16 --                                    DISCLAIMER
  17 --
  18 --     ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
  19 --     DISCLOSED ARE AS IS.  THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
  20 --     WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
  21 --     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
  22 --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
  23 --     PARTICULAR PURPOSE OF SAID MATERIAL.
  24 --*
  25 --
  26 -- OBJECTIVE:
  27 --     CHECK THAT THE REPORT ROUTINES OF THE REPORT PACKAGE WORK
  28 --     CORRECTLY.
  29 --
  30 -- PASS/FAIL CRITERIA:
  31 --     THIS TEST PASSES IF THE OUTPUT MATCHES THAT SUPPLIED IN THE
  32 --     APPLICABLE VERSION OF THE ACVC USERS' GUIDE.  THE EXPECTED
  33 --     TEST RESULT IS "TENTATIVELY PASSED."
  34
  35 -- HISTORY:
  36 --     JRK 08/07/81  CREATED ORIGINAL TEST.
  37 --     JRK 10/27/82
  38 --     JRK 06/01/84
  39 --     JET 01/13/88  ADDED TESTS OF SPECIAL_ACTION AND UPDATED HEADER.
  40 --     PWB 06/24/88  CORRECTED LENGTH OF ONE OUTPUT STRING AND ADDED
  41 --                   PASS/FAIL CRITERIA.
  42 --     BCB 05/17/90  CORRECTED LENGTH OF 'MAX_LEN LONG' OUTPUT STRING.
  43 --                   ADDED CODE TO CREATE REPFILE.
  44 --     LDC 05/17/90  REMOVED DIRECT_IO REFERENCES.
  45 --     PWN 12/03/94  REMOVED ADA 9X INCOMPATIBILITIES.
  46
  47 WITH REPORT;
  48 USE REPORT;
  49
  50 PROCEDURE CZ1101A IS
  51
  52
  53      DATE_AND_TIME : STRING(1..17);
  54
  55      DATE, TIME : STRING(1..7);
  56
  57 BEGIN
  58
  59      COMMENT ("(CZ1101A) CHECK REPORT ROUTINES");
  60      COMMENT ("   INITIAL VALUES SHOULD BE 'NO_NAME' AND 'FAILED'");
  61      RESULT;
  62
  63      TEST ("PASS_TEST", "CHECKING 'TEST' AND 'RESULT' FOR 'PASSED'");
  64      COMMENT ("THIS LINE IS EXACTLY 'MAX_LEN' LONG. " &
  65               "...5...60....5...70");
  66      COMMENT ("THIS COMMENT HAS A WORD THAT SPANS THE FOLD " &
  67               "POINT. THIS COMMENT FITS EXACTLY ON TWO LINES. " &
  68               "..5...60....5...70");
  69      COMMENT ("THIS_COMMENT_IS_ONE_VERY_LONG_WORD_AND_SO_" &
  70               "IT_SHOULD_BE_SPLIT_AT_THE_FOLD_POINT");
  71      RESULT;
  72
  73      COMMENT ("CHECK THAT 'RESULT' RESETS VALUES TO 'NO_NAME' " &
  74               "AND 'FAILED'");
  75      RESULT;
  76
  77      TEST ("FAIL_TEST", "CHECKING 'FAILED' AND 'RESULT' FOR 'FAILED'");
  78      FAILED ("'RESULT' SHOULD NOW BE 'FAILED'");
  79      RESULT;
  80
  81      TEST ("NA_TEST", "CHECKING 'NOT-APPLICABLE'");
  82      NOT_APPLICABLE ("'RESULT' SHOULD NOW BE 'NOT-APPLICABLE'");
  83      RESULT;
  84
  85      TEST ("FAIL_NA_TEST", "CHECKING 'NOT_APPLICABLE', 'FAILED', " &
  86                            "'NOT_APPLICABLE'");
  87      NOT_APPLICABLE ("'RESULT' BECOMES 'NOT-APPLICABLE'");
  88      FAILED ("'RESULT' BECOMES 'FAILED'");
  89      NOT_APPLICABLE ("CALLING 'NOT_APPLICABLE' DOESN'T CHANGE " &
  90                      "'RESULT'");
  91      RESULT;
  92
  93      TEST ("SPEC_NA_TEST", "CHECKING 'SPEC_ACT', 'NOT_APPLICABLE', " &
  94                            "'SPEC_ACT'");
  95      SPECIAL_ACTION("'RESULT' BECOMES 'TENTATIVELY PASSED'");
  96      NOT_APPLICABLE ("'RESULT' BECOMES 'NOT APPLICABLE'");
  97      SPECIAL_ACTION("CALLING 'SPECIAL_ACTION' DOESN'T CHANGE 'RESULT'");
  98      RESULT;
  99
 100      TEST ("SPEC_FAIL_TEST", "CHECKING 'SPEC_ACT', 'FAILED', " &
 101                              "'SPEC_ACT'");
 102      SPECIAL_ACTION("'RESULT' BECOMES 'TENTATIVELY PASSED'");
 103      FAILED ("'RESULT' BECOMES 'FAILED'");
 104      SPECIAL_ACTION("CALLING 'SPECIAL_ACTION' DOESN'T CHANGE 'RESULT'");
 105      RESULT;
 106
 107      TEST ("CZ1101A", "CHECKING 'SPECIAL_ACTION' ALONE");
 108      SPECIAL_ACTION("'RESULT' BECOMES 'TENTATIVELY PASSED'");
 109      RESULT;
 110
 111 END CZ1101A;