82cbc512 |
1 | if { [array get env os_type] != "" } { |
2 | set os $env(os_type) |
3 | } |
0e94a94e |
4 | puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" |
82cbc512 |
5 | if { [string compare $os "windows"] != 0 } { |
6 | puts "TODO OCC12345 ALL: TEST INCOMPLETE" |
7 | } |
0e94a94e |
8 | puts "================" |
9 | puts "OCC54" |
10 | puts "================" |
11 | puts "" |
12 | #################################################### |
13 | ## Exception is raised during command "small" in DRAW on attached shape. |
14 | #################################################### |
15 | |
16 | #cpulimit 9000 |
17 | # true CPU limit! cpulimit 2000 |
18 | cpulimit 100 |
19 | restore [locate_data_file OCC54.brep] result |
20 | |
21 | puts [checkshape result] |
22 | |
23 | set 3dviewer 0 |