update NEWS
[openssl.git] / test / bntest.com
1 $!
2 $! Analyze bntest output file.
3 $!
4 $! Exit status = 1 (success) if all tests passed,
5 $!               0 (warning) if any test failed.
6 $!
7 $! 2011-02-20 SMS.  Added code to skip "#" comments in the input file.
8 $!
9 $! 2010-04-05 SMS.  New.  Based (loosely) on perl code in bntest-vms.sh.
10 $!
11 $!                  Expect data like:
12 $!                        test test_name1
13 $!                        0
14 $!                        [...]
15 $!                        test test_name2
16 $!                        0
17 $!                        [...]
18 $!                        [...]
19 $!
20 $!                  Some tests have no following "0" lines.
21 $!
22 $ result_file_name = f$edit( p1, "TRIM")
23 $ if (result_file_name .eqs. "")
24 $ then
25 $     result_file_name = "bntest-vms.out"
26 $ endif
27 $!
28 $ fail = 0
29 $ passed = 0
30 $ tests = 0
31 $!
32 $ on control_c then goto tidy
33 $ on error then goto tidy
34 $!
35 $ open /read result_file 'result_file_name'
36 $!
37 $ read_loop:
38 $     read /end = read_loop_end /error = tidy result_file line
39 $     t1 = f$element( 0, " ", line)
40 $!
41 $!    Skip "#" comment lines.
42 $     if (f$extract( 0, 1, f$edit( line, "TRIM")) .eqs. "#") then -
43        goto read_loop
44 $!
45 $     if (t1 .eqs. "test")
46 $     then
47 $         passed = passed+ 1
48 $         tests = tests+ 1
49 $         fail = 1
50 $         t2 = f$extract( 5, 1000, line)
51 $         write sys$output "verify ''t2'"
52 $     else
53 $         if (t1 .nes. "0")
54 $         then
55 $             write sys$output "Failed! bc: ''line'"
56 $             passed = passed- fail
57 $             fail = 0
58 $         endif
59 $     endif
60 $ goto read_loop
61 $ read_loop_end:
62 $ write sys$output "''passed'/''tests' tests passed"
63 $!
64 $ tidy:
65 $ if f$trnlnm( "result_file", "LNM$PROCESS_TABLE", , "SUPERVISOR", , "CONFINE")
66 $ then
67 $     close result_file
68 $ endif
69 $!
70 $ if ((tests .gt. 0) .and. (tests .eq. passed))
71 $ then
72 $    exit 1
73 $ else
74 $    exit 0
75 $ endif
76 $!