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