mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
0027747: Incomplete section curves between faces
Added test case bugs/modalg_7/bug27747
This commit is contained in:
parent
5c655dd566
commit
3f912eb289
60
tests/bugs/modalg_7/bug27747
Normal file
60
tests/bugs/modalg_7/bug27747
Normal file
@ -0,0 +1,60 @@
|
||||
puts "========"
|
||||
puts "OCC27747"
|
||||
puts "========"
|
||||
puts ""
|
||||
#################################################
|
||||
# Incomplete section curves between faces
|
||||
#################################################
|
||||
|
||||
set GoodNbCurv 1
|
||||
set ToleranceReachedf1f3 6.0605798668789834e-08
|
||||
set ToleranceReachedf2f3 7.0639332021089653e-08
|
||||
|
||||
restore [locate_data_file bug27747_faces.brep] f
|
||||
explode f
|
||||
|
||||
# ----
|
||||
|
||||
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f_1 f_3 -2d] full Toler NbCurv
|
||||
if {${NbCurv} != ${GoodNbCurv}} {
|
||||
puts "Error: Number of curves is bad!"
|
||||
}
|
||||
checkreal TolReached $Toler $ToleranceReachedf1f3 0.0 0.1
|
||||
|
||||
# ----
|
||||
|
||||
set Toler 0.0
|
||||
set NbCurv 0
|
||||
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f_2 f_3 -2d] full Toler NbCurv
|
||||
if {${NbCurv} != ${GoodNbCurv}} {
|
||||
puts "Error: Number of curves is bad!"
|
||||
}
|
||||
checkreal TolReached $Toler $ToleranceReachedf2f3 0.0 0.1
|
||||
|
||||
# ----
|
||||
|
||||
settolerance f_1 1.e-7
|
||||
fixshape f1 f_1
|
||||
tolerance f1
|
||||
|
||||
set Toler 0.0
|
||||
set NbCurv 0
|
||||
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f1 f_3 -2d] full Toler NbCurv
|
||||
if {${NbCurv} != ${GoodNbCurv}} {
|
||||
puts "Error: Number of curves is bad!"
|
||||
}
|
||||
checkreal TolReached $Toler $ToleranceReachedf1f3 0.0 0.1
|
||||
|
||||
# ----
|
||||
|
||||
settolerance f_2 1.e-7
|
||||
fixshape f2 f_2
|
||||
tolerance f2
|
||||
|
||||
set Toler 0.0
|
||||
set NbCurv 0
|
||||
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f2 f_3 -2d] full Toler NbCurv
|
||||
if {${NbCurv} != ${GoodNbCurv}} {
|
||||
puts "Error: Number of curves is bad!"
|
||||
}
|
||||
checkreal TolReached $Toler $ToleranceReachedf2f3 0.0 0.1
|
Loading…
x
Reference in New Issue
Block a user