[occt.git] / tests / bugs / heal / bug26957

puts "============"
puts "OCC26957"
puts "============"
puts ""
###########################################################
## Unify same domain operation is slow for multiple shells
###########################################################

restore [locate_data_file bug26957-w-700.brep] a1

nbshapes a1
regexp {([-0-9.+eE]+)} [time {unifysamedom r1 a1}] full t1
puts "t1=$t1"

sewing a2 0.0 a1

puts ""
nbshapes a2
regexp {([-0-9.+eE]+)} [time {unifysamedom r2 a2}] full t2
puts "t2=$t2"

set tol_rel 0.1
if { [expr (${t1}*1. - ${t2}) / ${t2}] > ${tol_rel}} {
   puts "Error: Unify same domain operation is slow for multiple shells"
}
Commit	Line	Data
cba287d6	1	puts "============"
	2	puts "OCC26957"
	3	puts "============"
	4	puts ""
	5	###########################################################
	6	## Unify same domain operation is slow for multiple shells
	7	###########################################################
	8
	9	restore [locate_data_file bug26957-w-700.brep] a1
	10
	11	nbshapes a1
	12	regexp {([-0-9.+eE]+)} [time {unifysamedom r1 a1}] full t1
	13	puts "t1=$t1"
	14
	15	sewing a2 0.0 a1
	16
	17	puts ""
	18	nbshapes a2
	19	regexp {([-0-9.+eE]+)} [time {unifysamedom r2 a2}] full t2
	20	puts "t2=$t2"
	21
	22	set tol_rel 0.1
	23	if { [expr (${t1}*1. - ${t2}) / ${t2}] > ${tol_rel}} {
	24	puts "Error: Unify same domain operation is slow for multiple shells"
	25	}