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

1 files changed, 33 insertions, 0 deletions

diff --git a/apps/examples/bas/tests/test16.bas b/apps/examples/bas/tests/test16.bas
new file mode 100644
index 000000000..9e9942381
--- /dev/null
+++ b/apps/examples/bas/tests/test16.bas
@@ -0,0 +1,33 @@
+#!/bin/sh
+
+echo -n $0: 'SWAP... '
+
+cat >test.bas <<'eof'
+a=1 : b=2
+print "a=";a;"b=";b
+swap a,b
+print "a=";a;"b=";b
+dim a$(1,1),b$(1,1)
+a$(1,0)="a" : b$(0,1)="b"
+print "a$(1,0)=";a$(1,0);"b$(0,1)=";b$(0,1)
+swap a$(1,0),b$(0,1)
+print "a$(1,0)=";a$(1,0);"b$(0,1)=";b$(0,1)
+eof
+
+cat >test.ref <<'eof'
+a= 1 b= 2 
+a= 2 b= 1 
+a$(1,0)=ab$(0,1)=b
+a$(1,0)=bb$(0,1)=a
+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