tests/bugs/fclasses/bug7287_1

   1 puts "============"
   2 puts "OCC7287"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Problem of Memory Leak
   7 ######################################################
   8
   9 #
  10 # Result is Null shape
  11 #
  12
  13 set BugNumber OCC7287
  14
  15 set NCycles 10
  16 box b1 100 100 100
  17 box b2 50 50 50
  18 bop b1 b2
  19 bopcut r
  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     checktrend $listmem 0 10 "Memory leak detected"
  28 }