[occt.git] / tests / bugs / caf / bug31075

puts "============"
puts "0031075: Application Framework - reading STEP file into TDocStd_Document leads to memory leaks"
puts "============"

pload XDE

puts "Create a new document outside of application, add a shape an release all variables in cycle to see if allocated heap memory grows"
set listmem {}
for {set i 1} {$i < 100} {incr i} {
  NewDocument D
  box aBox 10 10 10
  XAddShape D aBox
  unset aBox
  unset D
  lappend listmem [meminfo h]
  checktrend $listmem 0 0 "Memory leak"
}
Commit	Line	Data
ef779ae0	1	puts "============"
	2	puts "0031075: Application Framework - reading STEP file into TDocStd_Document leads to memory leaks"
	3	puts "============"
	4
	5	pload XDE
	6
	7	puts "Create a new document outside of application, add a shape an release all variables in cycle to see if allocated heap memory grows"
	8	set listmem {}
	9	for {set i 1} {$i < 100} {incr i} {
	10	NewDocument D
	11	box aBox 10 10 10
	12	XAddShape D aBox
	13	unset aBox
	14	unset D
	15	lappend listmem [meminfo h]
	16	checktrend $listmem 0 0 "Memory leak"
	17	}