14 lines
532 B
Plaintext
14 lines
532 B
Plaintext
|
(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)))))
|
||
|
|
|
||
|
|
|