[occt.git] / tests / bugs / fclasses / bug27114

puts "========"
puts "OCC27114"
puts "========"
puts ""
##############################################
# DistShapeShape gives not all solutions
# Correct result is 2 solutions
##############################################

restore [locate_data_file bug27114.brep] aShape
explode aShape
set anInfo [distmini d aShape_1 aShape_2]

# Check number of solutions
if { [llength $anInfo] != 9 } {
    puts "ERROR: Incorrect number of solutions"
} else {
 puts "OK: Two solutions is found"
}

# Check extrema distance
set absTol 1.0e-10
set relTol 0.001
set aDist_Exp 0.0
set aDist [dval d_val]
checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol
Commit	Line	Data
fa6d1712	1	puts "========"
	2	puts "OCC27114"
	3	puts "========"
	4	puts ""
	5	##############################################
	6	# DistShapeShape gives not all solutions
	7	# Correct result is 2 solutions
	8	##############################################
	9
	10	restore [locate_data_file bug27114.brep] aShape
	11	explode aShape
	12	set anInfo [distmini d aShape_1 aShape_2]
	13
	14	# Check number of solutions
	15	if { [llength $anInfo] != 9 } {
	16	puts "ERROR: Incorrect number of solutions"
	17	} else {
	18	puts "OK: Two solutions is found"
	19	}
	20
	21	# Check extrema distance
	22	set absTol 1.0e-10
	23	set relTol 0.001
	24	set aDist_Exp 0.0
	25	set aDist [dval d_val]
	26	checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol