12 lines
520 B
Plaintext
12 lines
520 B
Plaintext
|
(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))))
|