tests/v3d/memory/bug5682

   1 puts "============"
   2 puts "OCC5682: AIS_InteractiveContext::Remove does not remove the object from memory"
   3 puts "============"
   4 puts ""
   5
   6 pload MODELING VISUALIZATION
   7
   8 set aNbBoxes 10
   9 set aBoxes {}
  10 for {set i 1} {$i <= $aNbBoxes} {incr i} { box b$i $i 0 0 1 2 3; lappend aBoxes b$i }
  11 box b 1 1 1
  12
  13 vclear
  14 vinit View1
  15 catch {vselmode 4 1}
  16 vdisplay b
  17 vfit
  18 vclear
  19
  20 set listmem {}
  21 set aNbChecks 50
  22 set aMemBase [meminfo h]
  23 puts "Memory base: [expr $aMemBase / 1024] KiB"
  24 for {set anIter 1} {$anIter <= $aNbChecks} {incr anIter} {
  25   vdisplay {*}$aBoxes
  26   vfit
  27   set aMemDisp [meminfo h]
  28   puts "Memory usage: [expr ($aMemDisp - $aMemBase) / 1024] KiB"
  29
  30   vclear
  31   set aMemCleared [meminfo h]
  32   lappend listmem $aMemCleared
  33   #checktrend $listmem 0 1 "Memory leak detected"
  34 }
  35 puts $listmem
  36 vglinfo
  37 checktrend $listmem 0 1 "Memory leak detected"