fixed tests for cljs

redplanetlabs · Sep 16, 2024 · eaadcb2 · eaadcb2
1 parent 7a2fe14
commit eaadcb2
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/test/com/rpl/specter/core_test.cljc b/test/com/rpl/specter/core_test.cljc
@@ -1440,10 +1440,14 @@
   (is (= "abq" (setval s/LAST "q" "abc")))
   )
 
+(defn whitespace? [char]
+  (re-matches #"\s" (str char)))
+
 (deftest string-transform-test
   (is (= "123" (transform s/ALL identity "123")))
-  (is (= "123" (setval [s/ALL #(Character/isWhitespace %)] s/NONE "1 2 3")))
-  (is (= "123" (transform [(s/filterer #(Character/isWhitespace %))] s/NONE "1 2 3"))))
+  (is (= "123" (transform [s/ALL whitespace?] s/NONE "1 2 3")))
+  #?(:clj (is (= "123" (setval [s/ALL #(Character/isWhitespace %)] s/NONE "1 2 3"))))
+  #?(:clj (is (= "123" (transform [(s/filterer #(Character/isWhitespace %))] s/NONE "1 2 3")))))
 
 (deftest regex-navigation-test
   ;; also test regexes as implicit navs