FAIL in (t-inhabited) (genus_test.clj:278)
FAIL in (t-inhabited) (genus_test.clj:278)
inhabited?
expected: (gns/inhabited? (quote (and Number (not (member 1 2 3)))) (constantly false))
actual: (not (gns/inhabited? (and Number (not (member 1 2 3))) #object[clojure.core$constantly$fn__5657 0x141cfa4a "clojure.core$constantly$fn__5657@141cfa4a"]))
lein test :only clojure-rte.genus-test/t-subtype?-and
FAIL in (t-subtype?-and) (genus_test.clj:245)
subtype? and
test 4
expected: (not (gns/subtype? (quote (and Long (not (member 0 2 4 6)))) (quote (not Long)) (constantly :dont-know)))
actual: (not (not :dont-know))