2 $! Analyze bntest output file.
4 $! Exit status = 1 (success) if all tests passed,
5 $! 0 (warning) if any test failed.
7 $! 2010-04-05 SMS. New. Based (loosely) on perl code in bntest-vms.sh.
18 $! Some tests have no following "0" lines.
20 $ result_file_name = f$edit( p1, "TRIM")
21 $ if (result_file_name .eqs. "")
23 $ result_file_name = "bntest-vms.out"
30 $ on control_c then goto tidy
31 $ on error then goto tidy
33 $ open /read result_file 'result_file_name'
36 $ read /end = read_loop_end /error = tidy result_file line
37 $ t1 = f$element( 0, " ", line)
38 $ if (t1 .eqs. "test")
43 $ t2 = f$extract( 5, 1000, line)
44 $ write sys$output "verify ''t2'"
48 $ write sys$output "Failed! bc: ''line'"
49 $ passed = passed- fail
55 $ write sys$output "''passed'/''tests' tests passed"
58 $ if f$trnlnm( "result_file", "LNM$PROCESS_TABLE", , "SUPERVISOR", , "CONFINE")
63 $ if ((tests .gt. 0) .and. (tests .eq. passed))