mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
22 lines
372 B
Plaintext
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"
|
|
)
|
|
)
|