test: Add tests for utils functions in utils_test.clj

2025-06-08 09:56:40 -07:00
parent 04efbd278b
commit ed31588e62
1 changed files with 20 additions and 0 deletions
@@ -0,0 +1,20 @@
+(ns milquetoast.utils-test
+  (:require [clojure.test :refer :all]
+            [milquetoast.utils :as utils]))
+
+(deftest test-parallelism
+  (testing "parallelism"
+    (is (integer? (utils/parallelism)))))
+
+(deftest test-pipe
+  (testing "pipe"
+    (let [in (chan)
+          out (utils/pipe in (map inc))]
+      (>!! in 1)
+      (is (= 2 (<!! out))))))
+
+(deftest test-json-parse-message
+  (testing "json-parse-message"
+    (let [msg {:payload "{\"key\":\"value\"}"}
+          parsed-msg (utils/json-parse-message msg)]
+      (is (= {:key "value"} (:payload parsed-msg))))))