From ca75962a335a9954962b0213e060e3895ddc69fb Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sun, 11 Dec 2022 01:37:40 +0200
Subject: Fix collection literal evaluation

---
 test/Spec.hs                 | 9 ++++++++-
 test/scripts/hash-map1.milch | 6 ++++++
 2 files changed, 14 insertions(+), 1 deletion(-)
 create mode 100644 test/scripts/hash-map1.milch

(limited to 'test')

diff --git a/test/Spec.hs b/test/Spec.hs
index f85ecac..e522c9c 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -137,7 +137,14 @@ e2eTests = testGroup "e2e" [
 
         let expectedAtomMap = M.singleton (LAtomRef 1) (astInteger 15)
         let gotAtomMap = stateAtomMap gotState
-        assertEqual "" expectedAtomMap gotAtomMap
+        assertEqual "" expectedAtomMap gotAtomMap,
+
+     do let env = builtinEnv
+        script1 <- readFile "test/scripts/hash-map1.milch"
+        (gotASTs, _) <- expectSuccessL env $ runInlineScript "<test>" script1
+
+        let expectedLastAST = astBoolean True
+        assertEqual "" expectedLastAST (last gotASTs)
     ]
 
 testGroup label xs = TestLabel label $ TestList $ map TestCase xs
diff --git a/test/scripts/hash-map1.milch b/test/scripts/hash-map1.milch
new file mode 100644
index 0000000..ed61ec0
--- /dev/null
+++ b/test/scripts/hash-map1.milch
@@ -0,0 +1,6 @@
+(let a "foo")
+
+(eq?
+    { a 1 :b 2 }
+    ; equivalent to
+    (hash-map [a 1 :b 2]))
-- 
cgit v1.3