mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
13 lines
348 B
Plaintext
13 lines
348 B
Plaintext
(load "Test.carp")
|
|
(use Test)
|
|
|
|
(deftest test
|
|
(assert-equal test
|
|
1l
|
|
(do
|
|
(Debug.reset-memory-balance!)
|
|
(let [s @"String"]
|
|
(Unsafe.leak s))
|
|
(Debug.memory-balance))
|
|
"Unsafe.leak should stop Carp from freeing allocated memory"))
|