Fix #928: record constructor supports optional meta + ext map

babashka · Sep 30, 2024 · a7642b1 · a7642b1
1 parent f83e9cf
commit a7642b1
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -14,6 +14,7 @@ SCI is used in [babashka](https://github.com/babashka/babashka),
 
 - Fix [#926](https://github.com/babashka/sci/issues/926): Support `add-watch` on vars in CLJS
 - Support `aset` on primitive array using reflection
+- Fix [#928](https://github.com/babashka/sci/issues/928): record constructor supports optional meta + ext map
 
 ## 0.8.43 (2024-08-06)
 

diff --git a/test/sci/records_test.cljc b/test/sci/records_test.cljc
@@ -139,7 +139,10 @@
            (tu/eval*
             "(defprotocol IFoo (foo [this]))
              (defrecord Foo [x] IFoo (foo [this] (Foo. x)))
-             (into {} (foo (Foo. 1)))" {})))))
+             (into {} (foo (Foo. 1)))" {}))))
+  (testing "meta and ext"
+    (is (true? (tu/eval* "(defrecord Dude [x]) (let [x (new Dude 1 {:meta 1} {:ext 2})]
+(and (= 1 (:x x)) (= 1 (:meta (meta x))) (= 2 (:ext x))))" {})))))
 
 (deftest repr-test
   (let [prog "