diff options
Diffstat (limited to 'apps/examples/bas/tests/test12.bas')
-rw-r--r-- | apps/examples/bas/tests/test12.bas | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/apps/examples/bas/tests/test12.bas b/apps/examples/bas/tests/test12.bas index b78f53747..ecbb9d138 100644 --- a/apps/examples/bas/tests/test12.bas +++ b/apps/examples/bas/tests/test12.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Exception handling... ' - -cat >test.bas <<'eof' 10 on error print "global handler 1 caught error in line ";erl : resume 30 20 print mid$("",-1) 30 on error print "global handler 2 caught error in line ";erl : end @@ -12,21 +7,4 @@ cat >test.bas <<'eof' 70 end proc 80 procx 90 print 1 mod 0 -eof - -cat >test.ref <<eof -global handler 1 caught error in line 20 -local handler caught error in line 60 -global handler 2 caught error in line 90 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi |