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"
}