FAIL in (t-canonicalize-and) (genus_test.clj:337)
FAIL in (t-canonicalize-and) (genus_test.clj:337)
canonicalize-type and
test 2
expected: (= (quote (member 1.0 2.0))
(gns/canonicalize-type (quote (and Double (member 1.0 2.0 "a" "b")))))
actual: (not (= (member 1.0 2.0)
(= 1.0)))
lein test :only clojure-rte.genus-test/t-canonicalize-or
FAIL in (t-canonicalize-or) (genus_test.clj:344)
canonicalize-type or
test 0
expected: (= (gns/canonicalize-type (quote (or Double (member 1.0 2.0 "a" "b"))))
(quote (or Double (member "a" "b"))))
actual: (not (= (or Double (= "a"))
(or Double (member "a" "b"))))
Edited by Jim Newton