Port of BAS 2.4 to NuttX by Alan Carvalho de Assis

1 files changed, 31 insertions, 0 deletions

diff --git a/apps/interpreters/bas/test/test36 b/apps/interpreters/bas/test/test36
new file mode 100644
index 000000000..b26cffae3
--- /dev/null
+++ b/apps/interpreters/bas/test/test36
@@ -0,0 +1,31 @@
+#!/bin/sh
+
+echo -n $0: 'OPEN file locking... '
+
+cat >test.bas <<'eof'
+on error goto 10
+print "opening file"
+open "test.out" for output lock write as #1
+print "open succeeded"
+if command$<>"enough" then shell "sh ./test/runbas test.bas enough"
+end
+10 print "open failed"
+eof
+
+cat >test.ref <<'eof'
+opening file
+open succeeded
+opening file
+open failed
+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