53a1447a |
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" |
9aa684ed |
5 | |
352ffd73 |
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 | |
9aa684ed |
21 | set NCycles 10 |
352ffd73 |
22 | box b1 10 10 10 100 100 100 |
23 | box b2 50 50 50 |
352ffd73 |
24 | |
25 | set listmem {} |
26 | for {set i 1} {${i} <= ${NCycles}} {incr i } { |
5d05cf31 |
27 | bop b1 b2 |
352ffd73 |
28 | boptuc r |
29 | |
67a1064e |
30 | lappend listmem [meminfo h] |
9aa684ed |
31 | checktrend $listmem 0 100 "Memory leak detected" |
352ffd73 |
32 | } |
33 | |