mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
19 lines
501 B
Plaintext
19 lines
501 B
Plaintext
puts "========"
|
|
puts "OCC27184"
|
|
puts "========"
|
|
puts ""
|
|
##############################################
|
|
# BRepExtrema_DistShapeShape returns wrong result
|
|
# Correct distance is 0.0
|
|
##############################################
|
|
|
|
restore [locate_data_file bug27184.brep] aShape
|
|
explode aShape
|
|
set anInfo [distmini d aShape_1 aShape_2]
|
|
|
|
# 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 |