make tests green again
This commit is contained in:
parent
9b31f67859
commit
0926754e68
31 changed files with 61 additions and 55 deletions
|
|
@ -6,11 +6,11 @@ when defined(GC_setMaxPause):
|
|||
GC_setMaxPause 2_000
|
||||
|
||||
type
|
||||
TTestObj = object of TObject
|
||||
TTestObj = object of RootObj
|
||||
x: string
|
||||
s: seq[int]
|
||||
|
||||
proc MakeObj(): TTestObj =
|
||||
proc makeObj(): TTestObj =
|
||||
result.x = "Hello"
|
||||
result.s = @[1,2,3]
|
||||
|
||||
|
|
@ -19,7 +19,7 @@ proc inProc() =
|
|||
when defined(gcMarkAndSweep) or defined(boehmgc):
|
||||
GC_fullcollect()
|
||||
var obj: TTestObj
|
||||
obj = MakeObj()
|
||||
obj = makeObj()
|
||||
if getOccupiedMem() > 300_000: quit("still a leak!")
|
||||
|
||||
inProc()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue