summaryrefslogtreecommitdiff
path: root/apps/interpreters/bas/test/test25
diff options
context:
space:
mode:
Diffstat (limited to 'apps/interpreters/bas/test/test25')
-rw-r--r--apps/interpreters/bas/test/test2550
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