Move to using the same perl code as Makefile.ssl
authorRichard Levitte <levitte@openssl.org>
Sat, 26 Feb 2000 03:58:36 +0000 (03:58 +0000)
committerRichard Levitte <levitte@openssl.org>
Sat, 26 Feb 2000 03:58:36 +0000 (03:58 +0000)
test/tests.com

index 51dfc86..040dafa 100644 (file)
@@ -151,9 +151,7 @@ RECORD
 $      create/fdl=bntest-vms.fdl bntest-vms.sh
 $      open/append foo bntest-vms.sh
 $      type/output=foo: sys$input:
 $      create/fdl=bntest-vms.fdl bntest-vms.sh
 $      open/append foo bntest-vms.sh
 $      type/output=foo: sys$input:
-<< __FOO__ bc | awk '{ \
-if ($$0 != "0") {print "error"; exit(1); } \
-if (((NR+1)%64) == 0) print NR+1," tests done"; }'
+<< __FOO__ bc | perl -e 'while (<STDIN>) {if (/^test (.*)/) {print STDERR "\nverify $1";} elsif (!/^0$/) {die "\nFailed! bc: $_";} print STDERR "."; $i++;} print STDERR "\n$i tests passed\n"'
 $      define/user sys$output bntest-vms.tmp
 $      mcr 'texe_dir''bntest'
 $      copy bntest-vms.tmp foo:
 $      define/user sys$output bntest-vms.tmp
 $      mcr 'texe_dir''bntest'
 $      copy bntest-vms.tmp foo: