mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
9aa684edf4
Unstable test cases were reviewed Modified test cases using checktrend command Modified test cases for Linux platform Modified test cases for Debug mode
71 lines
1.7 KiB
Plaintext
Executable File
71 lines
1.7 KiB
Plaintext
Executable File
puts "TODO ?OCC25718 ALL: Faulty OCC5805 : result is not Closed shape"
|
|
puts "TODO ?OCC25718 ALL: Tcl Exception: result is not a topological shape!!!"
|
|
puts "TODO ?OCC25718 ALL: Faulty shapes in variables faulty_1 to faulty_"
|
|
puts "TODO ?OCC25718 ALL: Error : The square of result shape is"
|
|
puts "TODO ?OCC25718 ALL: Error : Result shape is WRONG"
|
|
puts "TODO ?OCC25718 ALL: ERROR. offsetperform operation not done"
|
|
puts "TODO ?OCC25718 ALL: TEST INCOMPLETE"
|
|
|
|
puts "============"
|
|
puts "OCC5805"
|
|
puts "============"
|
|
|
|
#######################################################################
|
|
# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
|
|
#######################################################################
|
|
|
|
set BugNumber OCC5805
|
|
|
|
set z1 5
|
|
set z2 -5
|
|
|
|
# beziercurve1
|
|
beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
|
|
mkedge e1 bc1
|
|
wire UpCover e1
|
|
|
|
# beziercurve2
|
|
beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
|
|
mkedge e2 bc2
|
|
wire BottomCover e2
|
|
|
|
set issolid 1
|
|
set isruled 1
|
|
if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
|
|
puts "Faulty ${BugNumber} : thrusections is wrong"
|
|
|
|
}
|
|
|
|
set distance -0.001
|
|
catch { OFFSETSHAPE $distance {s_3} $calcul $type }
|
|
# Bad result
|
|
|
|
|
|
set square 495.635
|
|
|
|
set nb_v_good 2
|
|
set nb_e_good 3
|
|
set nb_w_good 3
|
|
set nb_f_good 3
|
|
set nb_sh_good 1
|
|
set nb_sol_good 1
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 0
|
|
set nb_shape_good 13
|
|
|
|
|
|
set index [lsearch [whatis s] Closed]
|
|
if {$index == -1} {
|
|
puts "Faulty ${BugNumber} : s is not Closed shape"
|
|
|
|
}
|
|
|
|
set index [lsearch [whatis result] Closed]
|
|
if {$index == -1} {
|
|
puts "Faulty ${BugNumber} : result is not Closed shape"
|
|
|
|
}
|
|
|
|
|
|
set 2dviewer 0
|