1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
occt/tests/bugs/modalg_2/bug5805_41
ika c97067ad95 0023439: Integration of test grid "xigs" into the new testing system
Loop back tests for iges and step files with possibility of generation of reference data.
Clean up of test scripts (removal of obsolete code, adding comments, corrected formatting)
two fixes were done (same like bug 23722 and bug 23736)
Cancelling checking for number of warnings
rewrite some test scripts in cause of this and fix 23794
Tolerance checking was weakened.
Fix to check instability on Linux (bug 23822) was added.
TODO messages was added to tests which have different results on Windows and Mandriva2010
Ability to update this TODO in regeneration mode was added.
Add fix to bug 23852
Test groups were recomposed.
'dataexch' was renamed to 'de'.
CPU limit was decreased from 2000 sec. to 1500 sec.
2013-04-05 16:09:52 +04:00

68 lines
1.6 KiB
Plaintext
Executable File

puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "TODO OCC11111 ALL: Error : The square of result shape is"
puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO ?OCC11111 ALL: Faulty OCC5805 : result is not Closed shape"
puts "TODO ?OCC11111 ALL: Error : The command is not valid"
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 {} $calcul $type }
# Null 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