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

puts "========"
puts "OCC27604"
puts "Application Framework - memory is not released after closing XBF file"
puts "========"
puts ""

set aBigShape Bottom.brep

pload OCAF MODELING

# just a big shape to fit in memory
restore [locate_data_file $aBigShape] s

# store it in the document
NewDocument D BinOcaf
SetShape D "0:2" s
SaveAs D test.cbf
Close D

# store the memory used before opening a document
set aBefore [meminfo h]

Open test.cbf DD
set aDocLoaded [meminfo h]
set aBigDelta [expr $aDocLoaded - $aBefore]
Close DD

set anAfter [meminfo h]
set aDelta [expr $anAfter - $aBefore]

puts "Memory used before: $aBefore"
puts "After open: $aDocLoaded"
puts "After close: $anAfter"

# if after the close the memory used left 5% more than before closed, this is an issue
# (less 5% is the measurement tolerance)
if {[expr $aBigDelta / 20. - $aDelta] < 0} {
  puts "Error: the memory is not freed after Open/Close"
}
Commit	Line	Data
bf954475	1	puts "========"
	2	puts "OCC27604"
	3	puts "Application Framework - memory is not released after closing XBF file"
	4	puts "========"
	5	puts ""
	6
	7	set aBigShape Bottom.brep
	8
	9	pload OCAF MODELING
	10
	11	# just a big shape to fit in memory
	12	restore [locate_data_file $aBigShape] s
	13
	14	# store it in the document
	15	NewDocument D BinOcaf
	16	SetShape D "0:2" s
	17	SaveAs D test.cbf
	18	Close D
	19
	20	# store the memory used before opening a document
	21	set aBefore [meminfo h]
	22
	23	Open test.cbf DD
	24	set aDocLoaded [meminfo h]
	25	set aBigDelta [expr $aDocLoaded - $aBefore]
	26	Close DD
	27
	28	set anAfter [meminfo h]
	29	set aDelta [expr $anAfter - $aBefore]
	30
	31	puts "Memory used before: $aBefore"
	32	puts "After open: $aDocLoaded"
	33	puts "After close: $anAfter"
	34
	35	# if after the close the memory used left 5% more than before closed, this is an issue
	36	# (less 5% is the measurement tolerance)
	37	if {[expr $aBigDelta / 20. - $aDelta] < 0} {
	38	puts "Error: the memory is not freed after Open/Close"
	39	}