Finish the test

Author: codeboost

test/xitdb/map_test.clj

@@ -5,6 +5,18 @@
 
 (deftest map-with-complex-keys
   (with-db [db (tu/test-db)]
-    (reset! db {:foo {{:bar :baz} 42}})
-    #_(reset! db {:foo {[1 :bar] 31
-                        [2 :baz] 42}})))
+    (testing "Composite values as keys"
+      (reset! db {:foo {{:bar :baz} 42}})
+      (is (= {:foo {{:bar :baz} 42}}
+             (tu/materialize @db)))
+
+      (reset! db {:foo {[1 :bar] 31
+                        [2 :baz] 42}})
+      (is (= {:foo {[1 :bar] 31
+                    [2 :baz] 42}}
+             (tu/materialize @db)))
+
+      (swap! db update :foo dissoc [2 :baz])
+      
+      (is (= {:foo {[1 :bar] 31}}
+             (tu/materialize @db))))))