14 lines
581 B
Plaintext
14 lines
581 B
Plaintext
|
(let [{: keys} (require :lib.keys)
|
||
|
|
{: describe :end test-end} (require :lib.test)]
|
||
|
|
(describe "keys()" (fn [t]
|
||
|
|
(let [input {:apple :red :banana :yellow}
|
||
|
|
actual (keys input)
|
||
|
|
sorted (table.sort actual) ;; SIDE EFFECT!!
|
||
|
|
]
|
||
|
|
(t {:given "a table"
|
||
|
|
:should "returns a list of keys"
|
||
|
|
:expected [:apple :banana]
|
||
|
|
: actual})
|
||
|
|
(test-end)))))
|
||
|
|
|