add test for failing special case

Author: frenchy64

test/malli/parser_test.cljc

@@ -82,15 +82,18 @@
 
 (def transforming-parser-schemas
   "Schemas with transforming parsers."
-  [[:andn [:any :any]] [:catn [:any :any]] [:seqable [:catn [:any :any]]] [:multi {:dispatch #'any?} [true :any]]])
+  [[:andn [:any :any]]
+   [:catn [:any :any]]
+   [:seqable [:catn [:any :any]]]
+   [:multi {:dispatch #'any?} [true :any]]])
 
 (defn ensure-parser-type [expected-simple s]
   #?(:bb nil ;; test.chuck doesn't work in bb
      :default (let [s (m/schema s)
                     parse (m/parser s)
                     unparse (m/parser s)]
                 (if expected-simple
-                  (doseq [g (is (doall (mg/sample s)))]
+                  (doseq [g (mg/sample s)]
                     (testing (pr-str g)
                       (let [p (parse g)]
                         (is (identical? g p))
@@ -126,6 +129,15 @@
         (is (= expected-simple (simple-parser? s)))
         (ensure-parser-type expected-simple s)))))
 
+;;seems to fail cljs
+(deftest map-special-case-test
+  (let [s [:map [:foo :any] [:bar :int]]
+        parse (m/parser s)
+        unparse (m/unparser s)
+        g {:foo ##NaN :bar -4}
+        p (parse g)]
+    (is (identical? g p))))
+
 (deftest and-complex-parser-test
   (is (= {} (m/parse [:and :map [:fn map?]] {})))
   (is (= {} (m/parse [:and [:fn map?] :map] {})))