diff options
Diffstat (limited to 'apps/interpreters/bas/test/test12')
-rw-r--r-- | apps/interpreters/bas/test/test12 | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/apps/interpreters/bas/test/test12 b/apps/interpreters/bas/test/test12 deleted file mode 100644 index b78f53747..000000000 --- a/apps/interpreters/bas/test/test12 +++ /dev/null @@ -1,32 +0,0 @@ -#!/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 -40 def procx -50 on error print "local handler caught error in line";erl : goto 70 -60 print 1/0 -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 |