tests/bugs/vis/bug79

   1 puts "========"
   2 puts "OCC79"
   3 puts "========"
   4
   5 vinit
   6 restore [locate_data_file OCC162.brep] s
   7 vdisplay s
   8
   9 verase s
  10 vdisplay s
  11
  12 set listmem {}
  13 set i_max 10
  14 for {set i 1} {${i} <= ${i_max}} {incr i} {
  15     verase s
  16     vdisplay s
  17
  18     lappend listmem [meminfo h]
  19     checktrend $listmem 0 1 "Memory leak detected"
  20 }