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

puts "============"
puts "OCC24623_4"
puts "============"
puts ""
#######################################################################
puts "Visualization - improve selection mechanism"
# tests memory leaks in creation of selection primitives for connected
# interactive objects: checks that there is no "dead links" to reference
#                      interactives after its clearing
#######################################################################

puts ""
pload MODELING VISUALIZATION
psphere s 0.5
tclean  s
incmesh s 0.001
trinfo  s
vinit
vclear

set aMemInit [meminfo h]
set anIterNb 100

for {set anIterCount 0} {$anIterCount < $anIterNb} {incr anIterCount} {
    set aNb 11

    vconnectto i_1 0 0 0 s -nodisplay
    vloadselection i_1
    for {set i 2} {$i < $aNb} {incr i} { vconnectto i_${i} ${i} 0 0 i_1 -nodisplay; vloadselection i_${i} }
    vclear
}

set aMemClear [meminfo h]

puts "Initial memory : [expr $aMemInit   / (1024 * 1024)] MiB"
puts "Clearing       : [expr $aMemClear  / (1024 * 1024)] MiB"

set aRatio [expr $aMemClear / double($aMemInit)]

# check if the memory difference is greater than 20%
if {[expr $aRatio > 1.2]} {
    puts "Error : TEST FAILED"
}
Commit	Line	Data
f751596e	1	puts "============"
	2	puts "OCC24623_4"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	puts "Visualization - improve selection mechanism"
	7	# tests memory leaks in creation of selection primitives for connected
	8	# interactive objects: checks that there is no "dead links" to reference
	9	# interactives after its clearing
	10	#######################################################################
	11
	12	puts ""
	13	pload MODELING VISUALIZATION
	14	psphere s 0.5
	15	tclean s
	16	incmesh s 0.001
	17	trinfo s
	18	vinit
	19	vclear
	20
	21	set aMemInit [meminfo h]
	22	set anIterNb 100
	23
	24	for {set anIterCount 0} {$anIterCount < $anIterNb} {incr anIterCount} {
	25	set aNb 11
	26
	27	vconnectto i_1 0 0 0 s -nodisplay
	28	vloadselection i_1
	29	for {set i 2} {$i < $aNb} {incr i} { vconnectto i_${i} ${i} 0 0 i_1 -nodisplay; vloadselection i_${i} }
	30	vclear
	31	}
	32
	33	set aMemClear [meminfo h]
	34
	35	puts "Initial memory : [expr $aMemInit / (1024 * 1024)] MiB"
	36	puts "Clearing : [expr $aMemClear / (1024 * 1024)] MiB"
	37
	38	set aRatio [expr $aMemClear / double($aMemInit)]
	39
	40	# check if the memory difference is greater than 20%
	41	if {[expr $aRatio > 1.2]} {
	42	puts "Error : TEST FAILED"
	43	}