From 2e27cda07bf3bcd25b667112e8cd2008da873422 Mon Sep 17 00:00:00 2001
From: Joshua Bell <inexorabletash@gmail.com>
Date: Wed, 25 Nov 2015 19:07:39 -0800
Subject: [PATCH] Added test for hook precedence

---
 samples/sample.unittests.txt | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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