| 1 | if { [array get env os_type] != "" } { |
| 2 | set os $env(os_type) |
| 3 | } |
| 4 | puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" |
| 5 | if { [string compare $os "windows"] != 0 } { |
| 6 | puts "TODO OCC12345 ALL: TEST INCOMPLETE" |
| 7 | } |
| 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 300 |
| 17 | restore [locate_data_file OCC54.brep] result |
| 18 | |
| 19 | puts [checkshape result] |
| 20 | |
| 21 | set 3dviewer 0 |