BAS: Misc changes to test files

This commit is contained in:
Gregory Nutt 2014-11-09 08:20:19 -06:00
parent 58878c6ec9
commit 4f1d02e5cf
5 changed files with 379 additions and 340 deletions

View File

@ -9,7 +9,11 @@ config EXAMPLES_BASTEST
depends on INTERPRETERS_BAS depends on INTERPRETERS_BAS
select FS_ROMFS select FS_ROMFS
---help--- ---help---
Mount the ROMFS file system containing the BAS test files at /mnt/romfs. Mount the ROMFS file system containing the BAS test files at
/mnt/romfs.
The logic in certain tests (test33.bas and test36.bas will also fail
if there is no writable file system mount at /tmp.
if EXAMPLES_BASTEST if EXAMPLES_BASTEST
@ -17,16 +21,18 @@ config EXAMPLES_BASTEST_DEVMINOR
int "ROMFS Minor Device Number" int "ROMFS Minor Device Number"
default 0 default 0
---help--- ---help---
The minor device number of the ROMFS block. For example, the N in /dev/ramN. The minor device number of the ROMFS block. For example, the N in
Used for registering the RAM block driver that will hold the ROMFS file system /dev/ramN. Used for registering the RAM block driver that will hold
containing the BASIC files to be tested. Default: 0 the ROMFS file system containing the BASIC files to be tested.
Default: 0
config EXAMPLES_BASTEST_DEVPATH config EXAMPLES_BASTEST_DEVPATH
string "ROMFS Device Path" string "ROMFS Device Path"
default "/dev/ram0" default "/dev/ram0"
---help--- ---help---
The path to the ROMFS block driver device. This must match EXAMPLES_BASTEST_DEVMINOR. The path to the ROMFS block driver device. This must match
Used for registering the RAM block driver that will hold the ROMFS file system EXAMPLES_BASTEST_DEVMINOR. Used for registering the RAM block driver
containing the BASIC files to be tested. Default: "/dev/ram0" that will hold the ROMFS file system containing the BASIC files to
be tested. Default: "/dev/ram0"
endif endif

File diff suppressed because it is too large Load Diff

View File

@ -1,10 +1,10 @@
open "test.out" for binary as 1 open "/tmp/test.out" for binary as 1
put 1,1,"xy" put 1,1,"xy"
put 1,3,"z!" put 1,3,"z!"
put 1,10,1/3 put 1,10,1/3
put 1,20,9999 put 1,20,9999
close 1 close 1
open "test.out" for binary as 1 open "/tmp/test.out" for binary as 1
s$=" " s$=" "
get 1,1,s$ get 1,1,s$
get 1,10,x get 1,10,x
@ -13,5 +13,5 @@ close
print s$ print s$
print x print x
print n% print n%
kill "test.out" kill "/tmp/test.out"

View File

@ -1,6 +1,6 @@
on error goto 10 on error goto 10
print "opening file" print "opening file"
open "test.out" for output lock write as #1 open "/tmp/test.out" for output lock write as #1
print "open succeeded" print "open succeeded"
if command$<>"enough" then shell "sh ./test/runbas test.bas enough" if command$<>"enough" then shell "sh ./test/runbas test.bas enough"
end end

View File

@ -0,0 +1 @@
abc