e54706ed |
1 | puts "============" |
2 | puts "OCC5682" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # AIS_InteractiveContext::Remove does not remove the object from memory |
7 | ###################################################### |
8 | |
9 | set BugNumber OCC5682 |
e54706ed |
10 | |
c22f6740 |
11 | set aNbBoxes 10 |
12 | set aBoxes {} |
13 | for {set i 1} {$i <= $aNbBoxes} {incr i} { box b$i $i 0 0 1 2 3; lappend aBoxes b$i } |
14 | box b 1 1 1 |
e54706ed |
15 | |
c22f6740 |
16 | vclear |
17 | vinit View1 |
e54706ed |
18 | catch {vselmode 4 1} |
c22f6740 |
19 | vdisplay b |
20 | vfit |
21 | vclear |
e54706ed |
22 | |
9aa684ed |
23 | set listmem {} |
c22f6740 |
24 | set aNbChecks 50 |
25 | set aMemBase [meminfo h] |
26 | puts "Memory base: [expr $aMemBase / 1024] KiB" |
27 | for {set anIter 1} {$anIter <= $aNbChecks} {incr anIter} { |
28 | vdisplay {*}$aBoxes |
29 | vfit |
30 | set aMemDisp [meminfo h] |
31 | puts "Memory usage: [expr ($aMemDisp - $aMemBase) / 1024] KiB" |
9aa684ed |
32 | |
c22f6740 |
33 | vclear |
34 | set aMemCleared [meminfo h] |
35 | lappend listmem $aMemCleared |
36 | #checktrend $listmem 0 1 "Memory leak detected" |
e54706ed |
37 | } |
c22f6740 |
38 | puts $listmem |
39 | vglinfo |
40 | checktrend $listmem 0 1 "Memory leak detected" |