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

Some memory tests, etc.

Browse Source
This commit is contained in:
Erik Svedäng 2019-02-01 14:07:10 +01:00
parent 3e3643c914
commit da8fb684c9
4 changed files with 62 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
core/Core.carp
View File

@ -1,5 +1,6 @@
(load "Interfaces.carp")
(load "Macros.carp")
(load "Maybe.carp")
(load "Dynamic.carp")
(load "Format.carp")
(load "Int.carp")

3
core/Maybe.carp Normal file
View File

@ -0,0 +1,3 @@
(deftype (Maybe a)
(Just [a])
(Nothing []))

6
examples/sumtypes.carp Normal file
View File

@ -0,0 +1,6 @@
;; This is a bug right now because the 'x' variable:
(defn confusion []
(let [x (Maybe.Some @"Yo")]
(match x
(Maybe.Some x) x
(Maybe.None) @"Nope")))

53
test/memory.carp
View File

@ -363,6 +363,51 @@
(let-do [stuff [@"A" @"B" @"C"]]
(assert (= &[@"X" @"X" @"X"] &(endo-map &(fn [c] @"X") stuff)))))
(deftype StrangeThings
(Piff [String String])
(Puff [String String]))
(defn sumtype-1 []
(let [thing (StrangeThings.Piff @"A" @"B")]
(assert
(= @"B"
(match thing
(StrangeThings.Piff a b) b
(StrangeThings.Puff c d) d)))))
(defn sumtype-2 []
(let [thing (StrangeThings.Puff @"A" @"B")]
(assert
(= @"A"
(match thing
(StrangeThings.Piff a b) b
(StrangeThings.Puff a b) a)))))
(defn sumtype-3 []
(let [thing (StrangeThings.Piff @"A" @"B")
another-thing @"blah"]
(assert
(= @"A"
(match thing
(StrangeThings.Piff a b) a
(StrangeThings.Puff c d) another-thing)))))
(defn sumtype-4 []
(let [m (Maybe.Just @"Yo")]
(assert
(= @"Yo"
(match m
(Maybe.Just x) x
(Maybe.Nothing) @"Nope")))))
(defn sumtype-5 []
(let [m (Maybe.Nothing)]
(assert
(= @"Nope"
(match m
(Maybe.Just x) x
(Maybe.Nothing) @"Nope")))))
(deftest test
(assert-no-leak test scope-1 "scope-1 does not leak")
(assert-no-leak test scope-2 "scope-2 does not leak")
@ -421,4 +466,10 @@
(assert-no-leak test lambda-2 "lambda-2 does not leak")
(assert-no-leak test lambda-3 "lambda-3 does not leak")
(assert-no-leak test lambda-4 "lambda-4 does not leak")
(assert-no-leak test lambda-5 "lambda-5 does not leak"))
(assert-no-leak test lambda-5 "lambda-5 does not leak")
(assert-no-leak test sumtype-1 "sumtype-1 does not leak")
(assert-no-leak test sumtype-2 "sumtype-2 does not leak")
(assert-no-leak test sumtype-3 "sumtype-3 does not leak")
(assert-no-leak test sumtype-4 "sumtype-4 does not leak")
(assert-no-leak test sumtype-5 "sumtype-5 does not leak")
)