1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-04 13:13:25 +03:00
occt/tests/bugs/modalg_3/bug5805_6
ski fb60057d23 0026235: Command tolmax works wrong
Command tolmax was removed.
Tcl command checkmaxtol is used now in test cases to check maximum tolerance.
Reference values in test cases were updated.
2015-08-20 16:51:36 +03:00

39 lines
815 B
Plaintext
Executable File

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"
}
if { [catch { offsetshape result a -1 } catch_result] } {
puts "Faulty ${BugNumber} : offsetshape is wrong"
}
checkmaxtol result -min_tol 1.
set square 876.584
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