diff options
Diffstat (limited to 'apps/examples/bas/tests/test21.bas')
-rw-r--r-- | apps/examples/bas/tests/test21.bas | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/apps/examples/bas/tests/test21.bas b/apps/examples/bas/tests/test21.bas new file mode 100644 index 000000000..407430d4c --- /dev/null +++ b/apps/examples/bas/tests/test21.bas @@ -0,0 +1,43 @@ +#!/bin/sh + +echo -n $0: 'Matrix assignment... ' + +cat >test.bas <<'eof' +dim a(3,4) +for i=0 to 3 + for j=0 to 4 + a(i,j)=i*10+j + print a(i,j); + next + print +next +mat b=a +for i=0 to 3 + for j=0 to 4 + print b(i,j); + next + print +next +eof + +cat >test.ref <<'eof' + 0 1 2 3 4 + 10 11 12 13 14 + 20 21 22 23 24 + 30 31 32 33 34 + 0 0 0 0 0 + 0 11 12 13 14 + 0 21 22 23 24 + 0 31 32 33 34 +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 |