1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-04 13:13:25 +03:00
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

30 lines
620 B
Plaintext

puts "==========="
puts " BUC60898"
puts "==========="
puts ""
pload XDE
set filepath [locate_data_file BUC60898.igs]
if [catch { igesbrep $filepath a *} result] {
puts "Faulty BUC60898: here is reading problem"
} else {
puts "BUC60898 OK"
tpcompound a
if [catch {sewing result 1e-7 a } catch_result] {
puts "Faulty BUC60898: function SEWING gives except"
} else {
puts " BUC60898 OK: function SEWING works without except"
}
checkmaxtol result -ref 0.077930308575156593
checknbshapes result -shell 4
checkfreebounds result 1725
set square 798.266
set 2dviewer 0
}