mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
21 lines
543 B
Plaintext
Executable File
21 lines
543 B
Plaintext
Executable File
|
|
puts "========="
|
|
puts "BUC61006"
|
|
puts "========="
|
|
puts ""
|
|
#########################################################
|
|
## Checkshape says that face is valid but it inludes selfintersecting wire.
|
|
#########################################################
|
|
|
|
restore [locate_data_file buc61006.brep] result
|
|
decho off
|
|
set ch [checkshape result]
|
|
decho on
|
|
|
|
if {![string compare $ch "This shape seems to be valid"]} {
|
|
puts "Error : the checkshape command returns incorrect result."
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|