Loading test/tests.com +1 −3 Original line number Original line Diff line number Diff line Loading @@ -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 Loading
test/tests.com +1 −3 Original line number Original line Diff line number Diff line Loading @@ -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