Add basic tests for metadata

Engelberg · Oct 30, 2019 · 06a0c00 · 06a0c00
1 parent 2115bae
commit 06a0c00
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/test/ubergraph/core_test.clj b/test/ubergraph/core_test.clj
@@ -424,3 +424,13 @@
     (testing "Check internal invariants of data structures"
       (satisfies-invariants g1)
       (satisfies-invariants g2))))
+
+(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)))))