Add map->record test

babashka · Jan 13, 2025 · 483dd63 · 483dd63
1 parent 920b6b3
commit 483dd63
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test/sci/records_test.cljc b/test/sci/records_test.cljc
@@ -240,3 +240,7 @@
 
 (deftest satisfies-IRecord-test
   #?(:cljs (is (true? (sci/eval-string "(defrecord Foo []) (satisfies? IRecord (->Foo))")))))
+
+(deftest map-constructor-nil-test
+  (is (true? (sci/eval-string "(defrecord Foo [a]) (and (contains? (map->Foo {}) :a)
+(nil? (:a (map->Foo {}))))"))))