Move to using the same perl code as Makefile.ssl
This commit is contained in:
parent
1472f300d5
commit
8072c135cb
@ -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:
|
||||||
|
Loading…
x
Reference in New Issue
Block a user