[occt.git] / tests / bugs / modalg_6 / bug26616

puts "========"
puts "OCC26616"
puts "========"
puts ""
############################################
# Memory leak in IntTools_Context::Hatcher
############################################

restore [locate_data_file OCC26635_t0.brep] t0
restore [locate_data_file OCC26635_t1.brep] t1

bfuse res t0 t1

set listmem {}
for {set i 1} {$i < 10} {incr i} {
    bfuse res t0 t1

    lappend listmem [meminfo h]
    checktrend $listmem 0 64 "Memory leak detected"
}
Commit	Line	Data
f41525d3	1	puts "========"
	2	puts "OCC26616"
	3	puts "========"
	4	puts ""
	5	############################################
	6	# Memory leak in IntTools_Context::Hatcher
	7	############################################
	8
	9	restore [locate_data_file OCC26635_t0.brep] t0
	10	restore [locate_data_file OCC26635_t1.brep] t1
3554ea68	11
f41525d3	12	bfuse res t0 t1
3554ea68	13
	14	set listmem {}
	15	for {set i 1} {$i < 10} {incr i} {
	16	bfuse res t0 t1
	17
	18	lappend listmem [meminfo h]
	19	checktrend $listmem 0 64 "Memory leak detected"
f41525d3	20	}