diff options
Diffstat (limited to 'apps/interpreters/bas/test/test25')
-rw-r--r-- | apps/interpreters/bas/test/test25 | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/apps/interpreters/bas/test/test25 b/apps/interpreters/bas/test/test25 deleted file mode 100644 index 07132f8c5..000000000 --- a/apps/interpreters/bas/test/test25 +++ /dev/null @@ -1,50 +0,0 @@ -#!/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 -40 mat a=(3)*a -45 print -50 mat print a -60 data 1,2,3,4,5,6,7,8,9 -80 dim inch_array(5,1),cm_array(5,1) -90 mat read inch_array -100 data 1,12,36,100,39.37 -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 |