From c38a93eee10cd328c7fbf30bc8daad5f00b3545e Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Thu, 15 Feb 2024 17:04:20 -0700
Subject: [PATCH] Failing test case for #6

---
 src/test/cases/IdenticalUnquoteTestCase.hx   | 21 ++++++++++++++++++++
 src/test/cases/IdenticalUnquoteTestCase.kiss | 13 ++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100644 src/test/cases/IdenticalUnquoteTestCase.hx
 create mode 100644 src/test/cases/IdenticalUnquoteTestCase.kiss

diff --git a/src/test/cases/IdenticalUnquoteTestCase.hx b/src/test/cases/IdenticalUnquoteTestCase.hx
new file mode 100644
index 0000000..b77df49
--- /dev/null
+++ b/src/test/cases/IdenticalUnquoteTestCase.hx
@@ -0,0 +1,21 @@
+package test.cases;
+
+import utest.Test;
+import utest.Assert;
+import kiss.Prelude;
+import kiss.List;
+import kiss.Stream;
+import haxe.ds.Option;
+import kiss.Kiss;
+#if js
+import js.lib.Promise;
+#end
+
+using StringTools;
+
+@:build(kiss.Kiss.build())
+class IdenticalUnquoteTestCase extends Test {
+    function testDifferentValues() {
+        _testDifferentValues();
+    }
+}
\ No newline at end of file
diff --git a/src/test/cases/IdenticalUnquoteTestCase.kiss b/src/test/cases/IdenticalUnquoteTestCase.kiss
new file mode 100644
index 0000000..b84eb70
--- /dev/null
+++ b/src/test/cases/IdenticalUnquoteTestCase.kiss
@@ -0,0 +1,13 @@
+(defMacroFunction arrayReaderMacro [stream]
+    (let [nextLineStream (stream.expect "array macro line" ->(stream.takeLineAsStream))]
+        (printExp `[,(read nextLineStream) ,(read nextLineStream) ,(read nextLineStream)])))
+
+(defReaderMacro "array " [stream]
+    (arrayReaderMacro stream))
+
+(var testArray
+    array 1 2 3
+    )
+
+(function _testDifferentValues []
+    (Assert.equals "[1,2,3]" "$testArray"))
\ No newline at end of file