Index: openssl/test/bntest.com |
=================================================================== |
--- openssl/test/bntest.com (revision 0) |
+++ openssl/test/bntest.com (revision 0) |
@@ -0,0 +1,76 @@ |
+$! |
+$! Analyze bntest output file. |
+$! |
+$! Exit status = 1 (success) if all tests passed, |
+$! 0 (warning) if any test failed. |
+$! |
+$! 2011-02-20 SMS. Added code to skip "#" comments in the input file. |
+$! |
+$! 2010-04-05 SMS. New. Based (loosely) on perl code in bntest-vms.sh. |
+$! |
+$! Expect data like: |
+$! test test_name1 |
+$! 0 |
+$! [...] |
+$! test test_name2 |
+$! 0 |
+$! [...] |
+$! [...] |
+$! |
+$! Some tests have no following "0" lines. |
+$! |
+$ result_file_name = f$edit( p1, "TRIM") |
+$ if (result_file_name .eqs. "") |
+$ then |
+$ result_file_name = "bntest-vms.out" |
+$ endif |
+$! |
+$ fail = 0 |
+$ passed = 0 |
+$ tests = 0 |
+$! |
+$ on control_c then goto tidy |
+$ on error then goto tidy |
+$! |
+$ open /read result_file 'result_file_name' |
+$! |
+$ read_loop: |
+$ read /end = read_loop_end /error = tidy result_file line |
+$ t1 = f$element( 0, " ", line) |
+$! |
+$! Skip "#" comment lines. |
+$ if (f$extract( 0, 1, f$edit( line, "TRIM")) .eqs. "#") then - |
+ goto read_loop |
+$! |
+$ if (t1 .eqs. "test") |
+$ then |
+$ passed = passed+ 1 |
+$ tests = tests+ 1 |
+$ fail = 1 |
+$ t2 = f$extract( 5, 1000, line) |
+$ write sys$output "verify ''t2'" |
+$ else |
+$ if (t1 .nes. "0") |
+$ then |
+$ write sys$output "Failed! bc: ''line'" |
+$ passed = passed- fail |
+$ fail = 0 |
+$ endif |
+$ endif |
+$ goto read_loop |
+$ read_loop_end: |
+$ write sys$output "''passed'/''tests' tests passed" |
+$! |
+$ tidy: |
+$ if f$trnlnm( "result_file", "LNM$PROCESS_TABLE", , "SUPERVISOR", , "CONFINE") |
+$ then |
+$ close result_file |
+$ endif |
+$! |
+$ if ((tests .gt. 0) .and. (tests .eq. passed)) |
+$ then |
+$ exit 1 |
+$ else |
+$ exit 0 |
+$ endif |
+$! |