blob: 1c7fb06b1bdc8b482b746d7af8bd123fcc01aa2c (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(let [{: contains } (require :lib.contains)]
(let [given "a list and an element it contains"
should "returns true"
expected true
actual (contains [:apple :orange :pear] :apple)]
(assert (= actual expected) (.. "Given " given " should " should)))
(let [given "a list and an element it does not contain"
should "returns false"
expected false
actual (contains [:apple :orange :pear] :gorilla)]
(assert (= actual expected) (.. "Given " given " should " should))))
|