diff options
Diffstat (limited to 'apps/interpreters/bas/test/test48')
-rw-r--r-- | apps/interpreters/bas/test/test48 | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/apps/interpreters/bas/test/test48 b/apps/interpreters/bas/test/test48 new file mode 100644 index 000000000..fe2a9e870 --- /dev/null +++ b/apps/interpreters/bas/test/test48 @@ -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 |