Commit 8072c135 authored by Richard Levitte's avatar Richard Levitte
Browse files

Move to using the same perl code as Makefile.ssl

parent 1472f300
Loading
Loading
Loading
Loading
+1 −3
Original line number Original line Diff line number Diff line
@@ -151,9 +151,7 @@ RECORD
$	create/fdl=bntest-vms.fdl bntest-vms.sh
$	create/fdl=bntest-vms.fdl bntest-vms.sh
$	open/append foo bntest-vms.sh
$	open/append foo bntest-vms.sh
$	type/output=foo: sys$input:
$	type/output=foo: sys$input:
<< __FOO__ bc | awk '{ \
<< __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"'
if ($$0 != "0") {print "error"; exit(1); } \
if (((NR+1)%64) == 0) print NR+1," tests done"; }'
$	define/user sys$output bntest-vms.tmp
$	define/user sys$output bntest-vms.tmp
$	mcr 'texe_dir''bntest'
$	mcr 'texe_dir''bntest'
$	copy bntest-vms.tmp foo:
$	copy bntest-vms.tmp foo: