1 puts "TODO ?OCC7287 ALL: Tcl Exception: Memory leak detected"
2 puts "TODO ?OCC7287 ALL: TEST INCOMPLETE"
7 ######################################################
8 # Problem of Memory Leak
9 ######################################################
12 # Result is Null shape
22 for {set i 1} {${i} <= ${NCycles}} {incr i } {
26 lappend listmem [meminfo h]
27 if { [checktrend $listmem 0 100 "Memory leak detected"] } {
28 puts "No memory leak, $i iterations"