Apple-2-SW/jsbasic
1
0
Fork 0
mirror of https://github.com/inexorabletash/jsbasic.git synced 2025-05-15 15:38:13 +00:00
Code Issues Projects Releases Wiki Activity

Added test for hook precedence

Browse Source
This commit is contained in:
Joshua Bell 2015-11-25 19:07:39 -08:00
parent d9e72db5cc
commit 2e27cda07b
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
samples/sample.unittests.txt
View File

@ -823,6 +823,18 @@
18091 T = 1 18091 T = 1
18093 S = (T = 2) : GOSUB 1 18093 S = (T = 2) : GOSUB 1
18100 T$ = "Output Hook Precedence
: A$ = "abc" + CHR$(7) + "xyz"
: PRINT CHR$(4)"OPEN TESTDATA"
: PRINT CHR$(4)"WRITE TESTDATA"
: PRINT A$
: PRINT CHR$(4)"CLOSE TESTDATA"
: PRINT CHR$(4)"OPEN TESTDATA"
: PRINT CHR$(4)"READ TESTDATA"
: INPUT B$
: PRINT CHR$(4)"CLOSE TESTDATA"
: S = (A$ = B$) : GOSUB 1
20000 PRINT : PRINT : PRINT "Executed tests: "; TE 20000 PRINT : PRINT : PRINT "Executed tests: "; TE
20010 PRINT "Successful tests: "; TS 20010 PRINT "Successful tests: "; TS
20019 IF F THEN INVERSE 20019 IF F THEN INVERSE