2 $! Analyze bntest output file.
4 $! Exit status = 1 (success) if all tests passed,
5 $! 0 (warning) if any test failed.
7 $! 2011-02-20 SMS. Added code to skip "#" comments in the input file.
9 $! 2010-04-05 SMS. New. Based (loosely) on perl code in bntest-vms.sh.
20 $! Some tests have no following "0" lines.
22 $ result_file_name = f$edit( p1, "TRIM")
23 $ if (result_file_name .eqs. "")
25 $ result_file_name = "bntest-vms.out"
32 $ on control_c then goto tidy
33 $ on error then goto tidy
35 $ open /read result_file 'result_file_name'
38 $ read /end = read_loop_end /error = tidy result_file line
39 $ t1 = f$element( 0, " ", line)
41 $! Skip "#" comment lines.
42 $ if (f$extract( 0, 1, f$edit( line, "TRIM")) .eqs. "#") then -
45 $ if (t1 .eqs. "test")
50 $ t2 = f$extract( 5, 1000, line)
51 $ write sys$output "verify ''t2'"
55 $ write sys$output "Failed! bc: ''line'"
56 $ passed = passed- fail
62 $ write sys$output "''passed'/''tests' tests passed"
65 $ if f$trnlnm( "result_file", "LNM$PROCESS_TABLE", , "SUPERVISOR", , "CONFINE")
70 $ if ((tests .gt. 0) .and. (tests .eq. passed))