From 4ef5633f361ab5302007045dcef945043d6d6225 Mon Sep 17 00:00:00 2001 From: Gregory Nutt Date: Mon, 27 Oct 2014 07:53:12 -0600 Subject: Port of BAS 2.4 to NuttX by Alan Carvalho de Assis --- apps/interpreters/bas/test/test36 | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 apps/interpreters/bas/test/test36 (limited to 'apps/interpreters/bas/test/test36') 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 -- cgit v1.2.3