34 lines
1.0 KiB
Fennel
34 lines
1.0 KiB
Fennel
(let [{:print pprint} (require :lib.table)
|
|
{: describe : test-end} (require :lib.test)
|
|
{: Either : Left : Right } (require :lib.either)]
|
|
(describe "# EITHER" (fn [t]
|
|
(t {:given "a new either"
|
|
:should "set its value correctly"
|
|
:expected :poop
|
|
:actual (. (Either:new :poop) :value) })
|
|
(t (let [r (Right:new "rain")
|
|
map (r:map #(.. "b" $1))
|
|
expected :brain
|
|
actual (. map :value)]
|
|
{:given "a Right of some value"
|
|
:should "map"
|
|
expected
|
|
actual }))
|
|
(t (let [ l (Left:new "rain")
|
|
map (l:map #(.. "b" $1))
|
|
expected :rain
|
|
actual (. map :value) ]
|
|
{:given "a Left of some value"
|
|
:should "not map"
|
|
expected
|
|
actual }))
|
|
(t (let [ e (Either.of "rank")
|
|
map (e:map #(.. "f" $1))
|
|
expected :frank
|
|
actual (. map :value) ]
|
|
{:given "Either.of"
|
|
:should "map"
|
|
expected
|
|
actual }))
|
|
(test-end))))
|