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

puts "============"
puts "OCC24658"
puts "============"
puts ""
#######################################################################
## fixshape changes source shape
#######################################################################

restore [locate_data_file bug24658.brep] a

puts "\nBefore shape healing"
regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance a] full expected_MaxTolerance

fixshape af a

puts "\nAfter shape healing"
regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance a] full MaxTol

set tol_abs_MaxTolerance 1.0e-06
set tol_rel_MaxTolerance 1.0e-06
checkreal "MaxTolerance" ${MaxTol} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
Commit	Line	Data
53446383	1	puts "============"
	2	puts "OCC24658"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	## fixshape changes source shape
	7	#######################################################################
	8
	9	restore [locate_data_file bug24658.brep] a
	10
	11	puts "\nBefore shape healing"
	12	regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance a] full expected_MaxTolerance
	13
	14	fixshape af a
	15
	16	puts "\nAfter shape healing"
	17	regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance a] full MaxTol
	18
	19	set tol_abs_MaxTolerance 1.0e-06
	20	set tol_rel_MaxTolerance 1.0e-06
	21	checkreal "MaxTolerance" ${MaxTol} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}