Added test for hook precedence

This commit is contained in:
Joshua Bell 2015-11-25 19:07:39 -08:00
parent d9e72db5cc
commit 2e27cda07b

View File

@ -823,6 +823,18 @@
18091 T = 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
20010 PRINT "Successful tests: "; TS
20019 IF F THEN INVERSE