tests/bugs/fclasses/bug7287_1

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