Add basic tests for metadata

Engelberg · Jan 7, 2020 · 8f299a0 · 8f299a0
1 parent aa53d03
commit 8f299a0
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/test/ubergraph/core_test.clj b/test/ubergraph/core_test.clj
@@ -452,4 +452,14 @@
                  (remove-attr 1 :keyword)
                  (remove-attr 1 [:1 :2])
                  (remove-attr 1 {:k :v})
-                 :attrs))))))
+                 :attrs))))))
+
+(deftest metadata-test
+  (let [g1 (graph [1 2])
+        g2 (with-meta g1 {:a 1})
+        g3 (vary-meta g2 assoc :b 2)]
+    (testing "Ubergraphs have metadata"
+      (is (= (meta g1) {}))
+      (is (= (meta g2) {:a 1}))
+      (is (= (meta g3) {:a 1 :b 2}))
+      (is (= g1 g2 g3)))))