summaryrefslogtreecommitdiff
path: root/apps/examples/bas/tests/test19.bas
diff options
context:
space:
mode:
Diffstat (limited to 'apps/examples/bas/tests/test19.bas')
-rw-r--r--apps/examples/bas/tests/test19.bas45
1 files changed, 45 insertions, 0 deletions
diff --git a/apps/examples/bas/tests/test19.bas b/apps/examples/bas/tests/test19.bas
new file mode 100644
index 000000000..9f0a471f4
--- /dev/null
+++ b/apps/examples/bas/tests/test19.bas
@@ -0,0 +1,45 @@
+#!/bin/sh
+
+echo -n $0: 'ELSEIF... '
+
+cat >test.bas <<'eof'
+for x=1 to 3
+ if x=1 then
+ print "1a"
+ else
+ if x=2 then
+ print "2a"
+ else
+ print "3a"
+ end if
+ end if
+next
+
+for x=1 to 3
+ if x=1 then
+ print "1b"
+ elseif x=2 then
+ print "2b"
+ elseif x=3 then print "3b"
+next
+eof
+
+cat >test.ref <<'eof'
+1a
+2a
+3a
+1b
+2b
+3b
+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