Skip to content

Commit

Permalink
* src/test/cljs/cljs/core/logic/tests.cljs: bring in the nil tests
Browse files Browse the repository at this point in the history
  • Loading branch information
David Nolen authored and David Nolen committed Apr 3, 2012
1 parent c52fa5e commit a1573e5
Showing 1 changed file with 18 additions and 20 deletions.
38 changes: 18 additions & 20 deletions src/test/cljs/cljs/core/logic/tests.cljs
Expand Up @@ -743,31 +743,29 @@
;; -----------------------------------------------------------------------------
;; nil in collection

(comment
(assert (= (run* [q]
(m/== q [nil]))
'([nil])))
(assert (= (run* [q]
(m/== q [nil]))
'([nil])))

(assert (= (run* [q]
(m/== q [1 nil]))
'([1 nil])))
(assert (= (run* [q]
(m/== q [1 nil]))
'([1 nil])))

(assert (= (run* [q]
(m/== q [nil 1]))
'([nil 1])))
(assert (= (run* [q]
(m/== q [nil 1]))
'([nil 1])))

(assert (= (run* [q]
(m/== q '(nil)))
'((nil))))
(assert (= (run* [q]
(m/== q '(nil)))
'((nil))))

(assert (= (run* [q]
(m/== q {:foo nil}))
'({:foo nil})))
(assert (= (run* [q]
(m/== q {:foo nil}))
'({:foo nil})))

(assert (= (run* [q]
(m/== q {nil :foo}))
'({nil :foo})))
)
(assert (= (run* [q]
(m/== q {nil :foo}))
'({nil :foo})))

;; -----------------------------------------------------------------------------
;; Occurs Check
Expand Down

0 comments on commit a1573e5

Please sign in to comment.