lib/tail.test.fnl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

(let [{: tail} (require :lib.tail)
      {: describe :end test-end} (require :lib.test)]
  (describe "tail()" (fn [t]
                       (t {:given "a list"
                           :should "return it minus the head"
                           :expected [:apple :pear]
                           :actual (tail [:orange :apple :pear])
                           })
                       (t {:given "a single item list"
                           :should "return empty list"
                           :expected []
                           :actual (tail [:orange])
                           })
                       (t {:given "an empty list"
                           :should "return empty list"
                           :expected []
                           :actual (tail [])
                           })
                       (test-end))))