mirror of
https://github.com/carp-lang/Carp.git
synced 2024-11-05 04:44:12 +03:00
10 lines
410 B
Plaintext
10 lines
410 B
Plaintext
;; This test is special because it requires it's own run.
|
|
;; It initializes a global with a something that needs to allocate memory and call functions,
|
|
;; then checks that the memory balance is correct after the init step.
|
|
|
|
(def g (copy (Array.unsafe-nth &[@"A" @"B" @"C"] 1)))
|
|
|
|
;; The one allocation left after 'carp_init_globals' should be 'g' itself:
|
|
(defn main []
|
|
(assert (= 1l (Debug.memory-balance))))
|