tests/bugs/fclasses/bug7287_4

   1 puts "TODO ?OCC25921 Debian60-64: Tcl Exception: Memory leak detected"
   2 puts "TODO ?OCC25921 Debian60-64: TEST INCOMPLETE"
   3
   4 puts "============"
   5 puts "OCC7287"
   6 puts "============"
   7 puts ""
   8 ######################################################
   9 # Problem of Memory Leak
  10 ######################################################
  11
  12 #
  13 # Result is not Null shape
  14 #
  15
  16 set BugNumber OCC7287
  17
  18 set NCycles 10
  19 box b1 10 10 10 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     bopcommon r
  26
  27     lappend listmem [meminfo h]
  28     checktrend $listmem 0 100 "Memory leak detected"
  29 }