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
  11 box b 100 100 100
  12
  13 vinit
  14 catch {vselmode 4 1}
  15
  16 set listmem {}
  17 set i_max 5
  18 for {set i 1} {${i} <= ${i_max}} {incr i} {
  19     vdisplay b
  20     vfit
  21     vclear
  22
  23     lappend listmem [meminfo h]
  24     checktrend $listmem 0 1 "Memory leak detected"
  25 }