From 5d0fce92981f6020713e072f16994408ee788e3b Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Fri, 6 Dec 2024 14:15:57 -0600
Subject: [PATCH] failing test case for reader macros

---
 src/test/cases/ReaderMacroTestCase.hx   |  5 +++++
 src/test/cases/ReaderMacroTestCase.kiss | 12 ++++++++++++
 2 files changed, 17 insertions(+)

diff --git a/src/test/cases/ReaderMacroTestCase.hx b/src/test/cases/ReaderMacroTestCase.hx
index b31be01..ea85b1a 100644
--- a/src/test/cases/ReaderMacroTestCase.hx
+++ b/src/test/cases/ReaderMacroTestCase.hx
@@ -26,4 +26,9 @@ class ReaderMacroTestCase extends Test {
     function testQuasiquoteMacro() {
         _testQuasiquoteMacro();
     }
+
+    function testStartOfLineInMiddle() {
+        _testStartOfLineInMiddle();
+    }
+    
 }
diff --git a/src/test/cases/ReaderMacroTestCase.kiss b/src/test/cases/ReaderMacroTestCase.kiss
index e0b8a3c..6d0fa91 100644
--- a/src/test/cases/ReaderMacroTestCase.kiss
+++ b/src/test/cases/ReaderMacroTestCase.kiss
@@ -30,6 +30,8 @@
     rassert fluffers
     (Assert.pass))
 
+(undefReaderMacro ["b" "c"]) 
+
 (function _testCommentAtBlockOrArrayEnd []
     [
         (+ 1 2)
@@ -40,3 +42,13 @@
         // Comment
     }
     (Assert.pass))
+
+(function _testStartOfLineInMiddle []
+    (let [bob "first"
+            bob2 "second"]
+
+        (defReaderMacro &start "bob" [stream] `bob)
+        (defReaderMacro "bob" [stream] `bob2)                    
+
+        (Assert.equals "firstsecond" (+
+            bob bob))))