diff options
Diffstat (limited to 'apps/examples/bas/tests/test52.bas')
-rw-r--r-- | apps/examples/bas/tests/test52.bas | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/apps/examples/bas/tests/test52.bas b/apps/examples/bas/tests/test52.bas new file mode 100644 index 000000000..dc524f645 --- /dev/null +++ b/apps/examples/bas/tests/test52.bas @@ -0,0 +1,37 @@ +#!/bin/sh + +echo -n $0: 'MAT INPUT... ' + +cat >test.bas <<'eof' +dim a(2,2) +mat input a +mat print a +mat input a +mat print a +eof + +cat >test.input <<'eof' +1,2,3,4,5 +1 +3,4 +eof + +cat >test.ref <<'eof' +? + 1 2 + 3 4 +? ? + 1 0 + 3 4 +eof + +sh ./test/runbas test.bas <test.input >test.data + +if cmp test.ref test.data +then + rm -f test.* + echo passed +else + echo failed + exit 1 +fi |