[occt.git] / tests / bugs / fclasses / bug24863_1

# Test for #24863: memory leak

set listmem {}

for {set i 1} {$i < 10} {incr i} {
    box b 10 10 10

    lappend listmem [meminfo h]
    checktrend $listmem 0 256 "Memory leak detected"
}
Commit	Line	Data
1951a27c	1	# Test for #24863: memory leak
	2
	3	set listmem {}
	4
9aa684ed	5	for {set i 1} {$i < 10} {incr i} {
1951a27c	6	box b 10 10 10
	7
	8	lappend listmem [meminfo h]
9aa684ed	9	checktrend $listmem 0 256 "Memory leak detected"
1951a27c	10	}