Update core_test.clj

Basic tests for unid fn
verberktstan · Jan 27, 2024 · 2a02952 · 2a02952
1 parent 4c19e52
commit 2a02952
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/test/swark/core_test.clj b/test/swark/core_test.clj
@@ -63,6 +63,11 @@
     nil             "  "
     nil             nil))
 
+(t/deftest unid
+  (t/is (string? (sut/unid)))
+  (t/is (-> #{"a" "b"} sut/unid count #{3}))
+  (t/is (-> (reduce #(unid %1) #{} (range 99)) count #{99})))
+
 (t/deftest ->keyword
   (t/are [result match replacement input] (= result (sut/->keyword match replacement input))
     :test     nil          nil :test