mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
6fa29cbf06
Test case for issue CR26717 Correction of test cases for issue CR26717 Test case for issue CR26717
47 lines
1.0 KiB
Plaintext
Executable File
47 lines
1.0 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC26717"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Error in IntPatch_PrmPrmIntersection: change of local resolution leads to break of walking line
|
|
######################################################
|
|
|
|
smallview
|
|
|
|
set expected_MaxTolerance 2.14e-05
|
|
set tol_abs_MaxTolerance 1.e-06
|
|
set tol_rel_MaxTolerance 1.e-06
|
|
|
|
set FileName1 bug26717_xrf1_eval_fuselage.brep
|
|
restore [locate_data_file ${FileName1}] a
|
|
|
|
set FileName2 bug26717_xrf1_eval5_wing.brep
|
|
restore [locate_data_file ${FileName2}] b
|
|
|
|
bfuse r a b
|
|
|
|
set aList [explode r]
|
|
|
|
# check 1
|
|
if { [llength ${aList}] == 1} {
|
|
puts "OK: Good explode of result"
|
|
} else {
|
|
puts "Error: Bad explode of result"
|
|
}
|
|
|
|
# check2
|
|
checknbshapes r -solid 1
|
|
|
|
# check3
|
|
checkshape r
|
|
|
|
# check4
|
|
regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance r] full MaxTolerance
|
|
checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
|
|
|
|
clear
|
|
donly r
|
|
fit
|
|
|
|
xwd ${imagedir}/${test_image}.png
|