summaryrefslogtreecommitdiff
path: root/apps/examples/bas/tests/test48.bas
diff options
context:
space:
mode:
Diffstat (limited to 'apps/examples/bas/tests/test48.bas')
-rw-r--r--apps/examples/bas/tests/test48.bas30
1 files changed, 30 insertions, 0 deletions
diff --git a/apps/examples/bas/tests/test48.bas b/apps/examples/bas/tests/test48.bas
new file mode 100644
index 000000000..fe2a9e870
--- /dev/null
+++ b/apps/examples/bas/tests/test48.bas
@@ -0,0 +1,30 @@
+#!/bin/sh
+
+echo -n $0: 'Multi assignment... '
+
+cat >test.bas <<'eof'
+a,b = 10
+print a,b
+dim c(10)
+a,c(a) = 2
+print a,c(2),c(10)
+a$,b$="test"
+print a$,b$
+eof
+
+cat >test.ref <<'eof'
+ 10 10
+ 2 0 2
+test test
+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