tests/bugs/fclasses/bug7287_5

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