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     checktrend $listmem 0 1 "Memory leak detected"
  21 }
  22
  23