tests/bugs/vis/bug5682

   1 puts "============"
   2 puts "OCC5682"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # AIS_InteractiveContext::Remove does not remove the object from memory
   7 ######################################################
   8
   9 set BugNumber OCC5682
  10 set listmem {}
  11
  12 box b 100 100 100
  13
  14 vinit
  15 vdisplay b
  16 vfit
  17
  18 catch {vselmode 4 1}
  19 vclear
  20
  21 lappend listmem [meminfo h]
  22 if { [checktrend $listmem 0 1 "Memory leak detected"] } {
  23     puts "No memory leak"
  24     break
  25 }