tests/bugs/fclasses/bug7287_5

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