[occt.git] / tests / bugs / vis / bug79

puts "========"
puts "OCC79"
puts "========"

vinit
restore [locate_data_file OCC162.brep] s
vdisplay s

verase s
vdisplay s

set listmem {}
set i_max 10
for {set i 1} {${i} <= ${i_max}} {incr i} {
    verase s
    vdisplay s

    lappend listmem [meminfo h]
    checktrend $listmem 0 1 "Memory leak detected"
}
Commit	Line	Data
61c421bf	1	puts "========"
	2	puts "OCC79"
	3	puts "========"
	4
	5	vinit
	6	restore [locate_data_file OCC162.brep] s
	7	vdisplay s
	8
	9	verase s
	10	vdisplay s
	11
	12	set listmem {}
	13	set i_max 10
	14	for {set i 1} {${i} <= ${i_max}} {incr i} {
67a1064e	15	verase s
67a1064e	16	vdisplay s
61c421bf	17
67a1064e	18	lappend listmem [meminfo h]
9aa684ed	19	checktrend $listmem 0 1 "Memory leak detected"
61c421bf	20	}