Failing test case for #6

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();
+    }
+}

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"))