tests/bugs/fclasses/bug7287_3

   1 puts "============"
   2 puts "OCC7287"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Problem of Memory Leak
   7 ######################################################
   8
   9 #
  10 # Result is not Null shape
  11 #
  12
  13 set BugNumber OCC7287
  14
  15
  16 set NCycles 100
  17 box b1 10 10 10 100 100 100
  18 box b2 50 50 50
  19
  20 set listmem {}
  21 for {set i 1} {${i} <= ${NCycles}} {incr i } {
  22     bop b1 b2
  23     boptuc r
  24
  25     lappend listmem [meminfo h]
  26     if { [checktrend $listmem 0 100 "Memory leak detected"] } {
  27         puts "No memory leak, $i iterations"
  28         break
  29     }
  30 }
  31