5 ######################################################
6 # AIS_InteractiveContext::Remove does not remove the object from memory
7 ######################################################
13 for {set i 1} {$i <= $aNbBoxes} {incr i} { box b$i $i 0 0 1 2 3; lappend aBoxes b$i }
25 set aMemBase [meminfo h]
26 puts "Memory base: [expr $aMemBase / 1024] KiB"
27 for {set anIter 1} {$anIter <= $aNbChecks} {incr anIter} {
30 set aMemDisp [meminfo h]
31 puts "Memory usage: [expr ($aMemDisp - $aMemBase) / 1024] KiB"
34 set aMemCleared [meminfo h]
35 lappend listmem $aMemCleared
36 #checktrend $listmem 0 1 "Memory leak detected"
40 checktrend $listmem 0 1 "Memory leak detected"