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

21 lines
289 B
Plaintext
Executable File

puts "================"
puts "OCC35"
puts "================"
puts ""
restore [locate_data_file OCC35.brep] result
decho off
set info [checkshape result]
decho on
if { [regexp "Faulty" $info] != 1 } {
puts "Command checkshape works wrongly (should be faulty)"
}
set 2dviewer 0