tests/bugs/modalg_7/bug31120

   1 puts "================================================="
   2 puts "OCC31120: Memory leak in BRepOffsetAPI_MakeOffset"
   3 puts "================================================="
   4 puts ""
   5
   6 restore [locate_data_file bug31120_wire.brep] w
   7
   8 mkoffset r w 1 0.5
   9 set log [meminfo h]
  10 regexp {([0-9+-.eE]*)} $log full memval1
  11
  12 for {set i 0} {$i < 20} {incr i} {
  13   mkoffset r w 1 0.5
  14   set log [meminfo h]
  15   regexp {([0-9+-.eE]*)} $log full memval
  16
  17   set ratio (${memval}-{$memval1})/${memval1}
  18
  19   if { ${ratio} > 0.05} {
  20       puts "Error: memory leak"
  21   }
  22 }