mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
fb60057d23
Command tolmax was removed. Tcl command checkmaxtol is used now in test cases to check maximum tolerance. Reference values in test cases were updated.
23 lines
830 B
Plaintext
Executable File
23 lines
830 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC326"
|
|
puts "================"
|
|
puts ""
|
|
###########################################################
|
|
## Exception is raised in sewing on internal edges on attached shape
|
|
###########################################################
|
|
|
|
restore [locate_data_file OCC326.brep] a
|
|
|
|
if [catch { sewing result a } catch_result] {
|
|
puts "Faulty OCC326: here is sewing problem"
|
|
} else {
|
|
puts "OCC326 OK: Sewing is ok, there is no except"
|
|
}
|
|
|
|
checkmaxtol result -ref 411.37576056225498
|
|
checknbshapes result -shell 1
|
|
checkfreebounds result 254
|
|
|
|
set 2dviewer 0
|
|
|