[occt.git] / tests / bugs / vis / bug5682

puts "============"
puts "OCC5682"
puts "============"
puts ""
######################################################
# AIS_InteractiveContext::Remove does not remove the object from memory
######################################################

set BugNumber OCC5682

set aNbBoxes 10
set aBoxes {}
for {set i 1} {$i <= $aNbBoxes} {incr i} { box b$i $i 0 0 1 2 3; lappend aBoxes b$i }
box b 1 1 1

vclear
vinit View1
catch {vselmode 4 1}
vdisplay b
vfit
vclear

set listmem {}
set aNbChecks 50
set aMemBase [meminfo h]
puts "Memory base: [expr $aMemBase / 1024] KiB"
for {set anIter 1} {$anIter <= $aNbChecks} {incr anIter} {
  vdisplay {*}$aBoxes
  vfit
  set aMemDisp [meminfo h]
  puts "Memory usage: [expr ($aMemDisp - $aMemBase) / 1024] KiB"

  vclear
  set aMemCleared [meminfo h]
  lappend listmem $aMemCleared
  #checktrend $listmem 0 1 "Memory leak detected"
}
puts $listmem
vglinfo
checktrend $listmem 0 1 "Memory leak detected"
Commit	Line	Data
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
c22f6740	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"