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
47WITH REPORT;
48USE REPORT;
49
50PROCEDURE CZ1101A IS
51
52
53     DATE_AND_TIME : STRING(1..17);
54
55     DATE, TIME : STRING(1..7);
56
57BEGIN
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
111END CZ1101A;
112