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 |
10 | set listmem {} |
11 | |
12 | box b 100 100 100 |
13 | |
14 | vinit |
15 | vdisplay b |
16 | vfit |
17 | |
18 | catch {vselmode 4 1} |
19 | vclear |
20 | |
67a1064e |
21 | lappend listmem [meminfo h] |
e54706ed |
22 | if { [checktrend $listmem 0 1 "Memory leak detected"] } { |
67a1064e |
23 | puts "No memory leak" |
24 | break |
e54706ed |
25 | } |