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

puts "========"
puts "OCC172"
puts "========"

pload XDE

vinit
restore [locate_data_file OCC162.brep] s 
vdisplay s

set listmem {}
set i_max 10
for {set i 1} {${i} <= ${i_max}} {incr i} {
    # select shape
    OCC172
    # deselect shape
    OCC172

    lappend listmem [meminfo h]
    checktrend $listmem 0 1 "Memory leak detected"
}
Commit	Line	Data
e54706ed	1	puts "========"
	2	puts "OCC172"
	3	puts "========"
	4
	5	pload XDE
	6
	7	vinit
	8	restore [locate_data_file OCC162.brep] s
	9	vdisplay s
	10
	11	set listmem {}
	12	set i_max 10
	13	for {set i 1} {${i} <= ${i_max}} {incr i} {
	14	# select shape
	15	OCC172
	16	# deselect shape
	17	OCC172
9aa684ed	18
67a1064e	19	lappend listmem [meminfo h]
9aa684ed	20	checktrend $listmem 0 1 "Memory leak detected"
e54706ed	21	}
	22
	23