blob: 7514121788654e38e8675ff979ac65da7b12649f (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(let [{: head } (require :lib.head)]
(let [given "a lift of elements"
it "returns the first element of a list"
expected :apple
actual (head [:apple :orange :pear])]
(assert (= actual expected) (.. "Given " given " it " it)))
(let [given "an empty list"
it "returns an empty list"
expected 0
actual (length (head []))]
(assert (= actual expected) (.. "Given " given " it " it))))
|