Commit | Line | Data |
---|---|---|
96a85238 RL |
1 | puts "TODO ?OCC7287 ALL: Tcl Exception: Memory leak detected" |
2 | puts "TODO ?OCC7287 ALL: TEST INCOMPLETE" | |
352ffd73 | 3 | puts "============" |
4 | puts "OCC7287" | |
5 | puts "============" | |
6 | puts "" | |
7 | ###################################################### | |
8 | # Problem of Memory Leak | |
9 | ###################################################### | |
10 | ||
11 | # | |
12 | # Result is Null shape | |
13 | # | |
14 | ||
15 | set BugNumber OCC7287 | |
16 | ||
5d05cf31 | 17 | set NCycles 100 |
352ffd73 | 18 | box b1 100 100 100 |
19 | box b2 50 50 50 | |
352ffd73 | 20 | |
21 | set listmem {} | |
22 | for {set i 1} {${i} <= ${NCycles}} {incr i } { | |
5d05cf31 | 23 | bop b1 b2 |
352ffd73 | 24 | bopcut r |
25 | ||
67a1064e | 26 | lappend listmem [meminfo h] |
5a77460e | 27 | if { [checktrend $listmem 0 100 "Memory leak detected"] } { |
67a1064e | 28 | puts "No memory leak, $i iterations" |
29 | break | |
352ffd73 | 30 | } |
31 | } |