summary refs log tree commit diff
path: root/lib/slice.test.fnl
blob: 9293f93f4e8b1d491a0d114dcc33f795879f345d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
(let [{: slice} (require :lib.slice)
      {: describe :end test-end} (require :lib.test)]
  (describe "slice()" (fn [t]
                       (t 
                         (let [t [:apple :orange :pear :banana :strawberry]
                              ]
                           {:given "a list of elements and a start"
                            :should "return the list starting at start"
                            :expected [:orange :pear :banana :strawberry]
                            :actual  (slice t 2)}))
                       (t 
                         (let [t [:apple :orange :pear :banana :strawberry]
                              ]
                           {:given "a list of elements and a start and a stop"
                            :should "return the items between the two"
                            :expected [:orange :pear]
                            :actual  (slice t 2 3)}))
                       (test-end))))