1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00
occt/tests/bugs/modalg_2/bug5805_4

60 lines
1.5 KiB
Plaintext
Executable File

puts "TODO ?OCC23748 ALL: ERROR. offsetperform operation not done."
puts "TODO ?OCC23748 ALL: Faulty OCC5805 : offsetshape is wrong"
puts "TODO ?OCC23748 ALL: Faulty OCC5805 : tolmax is wrong"
puts "TODO ?OCC23748 ALL: Tcl Exception: can't read"
puts "TODO ?OCC23748 ALL: TEST INCOMPLETE"
puts "============"
puts "OCC5805"
puts "============"
puts ""
######################################################
# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
######################################################
set BugNumber OCC5805
restore [locate_data_file OCC5805.brep] a
decho off
set che_a [checkshape a]
decho on
if { [regexp {Faulty} $che_a] } {
puts "Faulty ${BugNumber} : checkshape is wrong for a"
}
explode a f
offsetparameter 1e-7 c a
offsetload a -1 a_6
if { [catch { offsetperform result } catch_result] } {
puts "Faulty ${BugNumber} : offsetshape is wrong"
}
if { [catch { set tolmaxres [tolmax result] } catch_result] } {
puts "Faulty ${BugNumber} : tolmax is wrong"
}
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
if { [catch { expr $maxtolerance } catch_result] } {
puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
}
if { $maxtolerance > 1. } {
puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
}
set square 1185.03
set nb_v_good 10
set nb_e_good 15
set nb_w_good 7
set nb_f_good 7
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 41
set 2dviewer 0