Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug503
1 puts "========="
2 puts " OCC503 "
3 puts "========="
4 puts ""
5 ###############################
6 ## Draw hangs up during sprops operation
7 ###############################
8
9 #cpulimit 9000
10
11 restore [locate_data_file OCC503.brep] result
12
13 if [catch {sprops result 0.001 } catch_result] {
14     set mistake 1
15 } else {
16     set mistake 0
17 }
18
19 if { $mistake != 0} {
20     puts "Faulty OCC503 : Draw hangs up during sprops operation "
21 } else {
22     puts "OCC503 OK: function SPROPS works without hangs up "
23 }
24
25 set 2dviewer 0
26