summary refs log tree commit diff
path: root/lib/kvflip.test.fnl
blob: 162650d5f3ff62882d325422d687126b7e1c17e2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
(let [{: kvflip} (require :lib.kvflip)
      {: describe :end test-end} (require :lib.test)]
  (describe "kvflip()" (fn [t]
                       (let [input {:apple "red" :banana "yellow"}
                             expected {:red "apple" :yellow "banana"}
                             ]
                         (t {:given "a table"
                             :should "kvflip that table!"
                             : expected
                             :actual (kvflip input)})
                         (test-end)))))