add test

metosin · Nov 13, 2024 · 33915cb · 33915cb
1 parent ee53a1a
commit 33915cb
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test/malli/generator_test.cljc b/test/malli/generator_test.cljc
@@ -1010,6 +1010,10 @@
         (<= (int \A) i (int \Z))
         (<= (int \0) i (int \9)))))
 
+(deftest alphanumeric-char?-test
+  (is (alphanumeric-char? \a))
+  (is (not (alphanumeric-char? \-))))
+
 (defn alphanumeric-string? [s]
   {:pre [(string? s)]}
   (every? alphanumeric-char? s))