X-Git-Url: https://git.openssl.org/?a=blobdiff_plain;f=test%2Fbntest.com;h=6545d2e5a582b0615db02573806ab7f52ecc922e;hb=5087afa108add621b4dd3dca0d921bf7774373d6;hp=cb6d3abd7abc3fe07bf32dc638df071a36a460dd;hpb=c5ef4bb49ae7187a27cc503041e5734c69ea142b;p=openssl.git

diff --git a/test/bntest.com b/test/bntest.com
index cb6d3abd7a..6545d2e5a5 100644
--- a/test/bntest.com
+++ b/test/bntest.com
@@ -4,6 +4,8 @@ $!
 $! 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:
@@ -35,6 +37,11 @@ $!
 $ 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