tests/bugs/vis/bug172

   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
  18
  19     lappend listmem [meminfo h]
  20     if { [checktrend $listmem 0 1 "Memory leak detected"] } {
  21         puts "No memory leak, $i iterations"
  22         break
  23     }
  24 }
  25
  26