1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
discard """
outputsub: "no leak: "
"""
when defined(GC_setMaxPause):
GC_setMaxPause 2_000
type
TTestObj = object of RootObj
x: string
s: seq[int]
proc makeObj(): TTestObj =
result.x = "Hello"
result.s = @[1,2,3]
const numIter =
when defined(boehmgc):
# super slow because GC_fullcollect() at each iteration; especially
# on OSX 10.15 where it takes ~170s
# `getOccupiedMem` should be constant after each iteration for i >= 3
1_000
elif defined(gcMarkAndSweep):
# likewise, somewhat slow, 1_000_000 would run for 8s
# and same remark as above
100_000
else: 1_000_000
proc inProc() =
for i in 1 .. numIter:
when defined(gcMarkAndSweep) or defined(boehmgc):
GC_fullcollect()
var obj: TTestObj
obj = makeObj()
if getOccupiedMem() > 300_000: quit("still a leak!")
inProc()
echo "no leak: ", getOccupiedMem()
|
