Carp/test/generics.carp
2020-01-28 21:32:15 +01:00

22 lines
372 B
Plaintext

(load "Test.carp")
(use Test)
(deftest test
(assert-equal test
1
(id 1)
"id works I"
)
(assert-equal test
&(Maybe.Just 1)
&(id (Maybe.Just 1))
"id works II"
)
(assert-equal test
20
((const 20) 1)
"const works"
)
)