tests/bugs/vis/bug26538

   1 puts "============"
   2 puts "OCC26538"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Visualization - Infinite growth of maxtrix stack in OpenGl_Structure::Render
   7 #######################################################################
   8
   9 box b1 1 1 1
  10 box b2 1 1 1
  11
  12 vinit
  13 vdisplay b1
  14 vdisplay b2
  15 vsetlocation b2 10 10 10
  16 vfit
  17
  18 set listmem {}
  19
  20 set i_max 3
  21 for {set i 1} {${i} <= ${i_max}} {incr i} {
  22    vfps 1000
  23    lappend listmem [meminfo h]
  24    checktrend $listmem 0 1 "Memory leak detected"
  25 }
  26
  27 vdump ${imagedir}/${casename}.png