carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 05:25:28 +03:00
Code Issues Projects Releases Wiki Activity

Fix some memory errors (that should be compiler errors).

Browse Source
This commit is contained in:
Erik Svedäng 2020-05-05 14:08:07 +02:00
parent 6f70dbd18e
commit 26a4b02009
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
test/sumtypes.carp
View File

@ -35,17 +35,17 @@
(Nest.Nested (Nest.Nested (Nest.Nested x)))
x)
"Match matches nested sumtype constructors with variables")
(assert-equal test
"hello"
(let [m (Maybe.Just @"hello")]
(let [m (Maybe.Just @"hello")]
(assert-equal test
"hello"
(match-ref &m
(Maybe.Nothing) "wrong"
(Maybe.Just x ) x))
"match-ref works on simple sumtype")
(assert-equal test
"found"
(let [n (Nest.Nested (Nest.Nested (Nest.Nested @"found")))]
(Maybe.Just x ) x)
"match-ref works on simple sumtype"))
(let [n (Nest.Nested (Nest.Nested (Nest.Nested @"found")))]
(assert-equal test
"found"
(match-ref &n
(Nest.Nested (Nest.Nested (Nest.Nested s))) s))
"match-ref works on deeply nested sumtype")
(Nest.Nested (Nest.Nested (Nest.Nested s))) s)
"match-ref works on deeply nested sumtype"))
)