BAS: Move test files from apps/interpreter/bas to apps/examples/bas

1 files changed, 36 insertions, 0 deletions

diff --git a/apps/examples/bas/tests/test24.bas b/apps/examples/bas/tests/test24.bas
new file mode 100644
index 000000000..40037cdcd
--- /dev/null
+++ b/apps/examples/bas/tests/test24.bas
@@ -0,0 +1,36 @@
+#!/bin/sh
+
+echo -n $0: 'Matrix multiplication... '
+
+cat >test.bas <<'eof'
+10 dim b(2,3),c(3,2)
+20 for i=1 to 2 : for j=1 to 3 : read b(i,j) : next : next
+30 for i=1 to 3 : for j=1 to 2 : read c(i,j) : next : next
+40 mat a=b*c
+50 mat print b,c,a
+60 data 1,2,3,3,2,1
+70 data 1,2,2,1,3,3
+eof
+
+cat >test.ref <<'eof'
+ 1             2             3            
+ 3             2             1            
+
+ 1             2            
+ 2             1            
+ 3             3            
+
+ 14            13           
+ 10            11           
+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