diff options
Diffstat (limited to 'apps/examples/bas/tests/test25.bas')
-rw-r--r-- | apps/examples/bas/tests/test25.bas | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/apps/examples/bas/tests/test25.bas b/apps/examples/bas/tests/test25.bas index 07132f8c5..bf4d34c93 100644 --- a/apps/examples/bas/tests/test25.bas +++ b/apps/examples/bas/tests/test25.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Matrix scalar multiplication... ' - -cat >test.bas <<'eof' 10 dim a(3,3) 20 for i=1 to 3 : for j=1 to 3 : read a(i,j) : next : next 30 mat print a @@ -16,35 +11,4 @@ cat >test.bas <<'eof' 110 mat print inch_array 120 mat cm_array=(2.54)*inch_array 130 mat print cm_array -eof - -cat >test.ref <<'eof' - 1 2 3 - 4 5 6 - 7 8 9 - - 3 6 9 - 12 15 18 - 21 24 27 - 1 - 12 - 36 - 100 - 39.37 - 2.54 - 30.48 - 91.44 - 254 - 99.9998 -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 |