[occt.git] / tests / bugs / modalg_5 / bug24107

puts "================"
puts "OCC24107"
puts "================"
puts ""
#######################################################################
# BRepAlgo::ConcatenateWireC0 method doesn't work on a translated wire
#######################################################################

restore [locate_data_file bug24107_wire.brep] w

concatC0wire result w

checkshape result

set tolmax_w [tolmax w]
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_w} full CMP_TOL

set tolmax_result [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_result} full MaxTolerance

if { ${MaxTolerance} > [expr 2 * ${CMP_TOL}] } {
   puts "Error: invalid tolerance of result wire"
}
Commit	Line	Data
6f005d2a	1	puts "================"
	2	puts "OCC24107"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# BRepAlgo::ConcatenateWireC0 method doesn't work on a translated wire
	7	#######################################################################
	8
	9	restore [locate_data_file bug24107_wire.brep] w
	10
	11	concatC0wire result w
	12
	13	checkshape result
	14
	15	set tolmax_w [tolmax w]
	16	regexp {max tol = ([-0-9.+eE]+)} ${tolmax_w} full CMP_TOL
	17
	18	set tolmax_result [tolmax result]
	19	regexp {max tol = ([-0-9.+eE]+)} ${tolmax_result} full MaxTolerance
	20
	21	if { ${MaxTolerance} > [expr 2 * ${CMP_TOL}] } {
	22	puts "Error: invalid tolerance of result wire"
	23	}