data/unit-testing/allocate_and_free.fate


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(fate_version 1)

(local (ptr int) p0)

(allocate! p0)
(set! (at p0) 72)

(assert! (= (at p0) 72)
   [FAILED] Test 0
)

(free! (at p0))

[COMPLETED]

(end!)