1 puts "TODO OCC27318 MacOS: Error : TEST FAILED"
4 puts "OCC27318: Memory is not released in Select3D_SensitiveSet when destroying AIS_InteractiveContext without removing objects"
8 pload VISUALIZATION QAcommands
10 # to measure initial memory correctly, open and close interactive context
14 set aMemInit [meminfo h]
15 puts "Initial mem: [expr $aMemInit / (1024 * 1024)] MiB ([expr $aMemInit])"
17 # create a box and display it in each interactive context. The context is
18 # the only instance that references to the box. Therefore, the box must be
19 # removed completely after each context's closing
20 for {set anIter 0} {$anIter < 300} {incr anIter} {
26 set aMemAfter [meminfo h]
27 puts "Memory after closing interactive context several times: [expr $aMemAfter / (1024 * 1024)] MiB ([expr $aMemAfter])"
29 set aRatio [expr $aMemAfter / double($aMemInit)]
31 # check if the memory difference is greater than 5%
32 if [expr $aRatio > 1.05] {
33 puts "Error : TEST FAILED"