Failing test case for #7

src/test/cases/ObjectFormTestCase.hx

@@ -0,0 +1,21 @@
+package test.cases;
+
+import utest.Test;
+import utest.Assert;
+import kiss.Prelude;
+import kiss.List;
+import haxe.ds.Option;
+import kiss.Kiss;
+#if js
+import js.lib.Promise;
+#end
+
+using StringTools;
+
+@:build(kiss.Kiss.build())
+class ObjectFormTestCase extends Test {
+    function testObjectFormWithAlias() {
+        _testObjectFormWithAlias();
+    }
+}
+ 

src/test/cases/ObjectFormTestCase.kiss

@@ -0,0 +1,16 @@
+(defAlias &ident Stream kiss.Stream)
+
+(defMacroFunction example []
+    `(object
+        Stream (Stream.fromString "")))
+
+(defMacro normalExample []
+    (printExp (example)))
+
+(defMacro macroExpandExample []
+    (printExp (macroExpand (example))))
+
+(function _testObjectFormWithAlias []
+    .Stream (normalExample)
+    .Stream (macroExpandExample)
+    (Assert.pass))