diff --git a/samples/sample.unittests.txt b/samples/sample.unittests.txt index 65d1602..1bd958d 100644 --- a/samples/sample.unittests.txt +++ b/samples/sample.unittests.txt @@ -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