1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-06-15 11:44:07 +03:00

26 lines
494 B
Plaintext
Executable File

puts "========="
puts " OCC503 "
puts "========="
puts ""
###############################
## Draw hangs up during sprops operation
###############################
#cpulimit 9000
restore [locate_data_file OCC503.brep] result
if [catch {sprops result} catch_result] {
set mistake 1
} else {
set mistake 0
}
if { $mistake != 0} {
puts "Faulty OCC503 : Draw hangs up during sprops operation "
} else {
puts "OCC503 OK: function SPROPS works without hangs up "
}
set 2dviewer 0