tests/bugs/fclasses/bug7287_1

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