9aa684ed |
1 | puts "TODO ?OCC25921 Debian60-64: Tcl Exception: Memory leak detected" |
2 | puts "TODO ?OCC25921 Debian60-64: TEST INCOMPLETE" |
3 | |
352ffd73 |
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 | |
9aa684ed |
18 | set NCycles 10 |
352ffd73 |
19 | box b1 10 10 10 100 100 100 |
20 | box b2 50 50 50 |
352ffd73 |
21 | |
22 | set listmem {} |
23 | for {set i 1} {${i} <= ${NCycles}} {incr i } { |
5d05cf31 |
24 | bop b1 b2 |
352ffd73 |
25 | bopcommon r |
26 | |
67a1064e |
27 | lappend listmem [meminfo h] |
9aa684ed |
28 | checktrend $listmem 0 100 "Memory leak detected" |
352ffd73 |
29 | } |