0e94a94e |
1 | |
2 | puts "=========" |
3 | puts " OCC501 " |
4 | puts "=========" |
5 | puts "" |
6 | ################################################## |
7 | ## Exception during tcopy command (only in 3.0fix), SAM1339 (#2137) |
8 | ################################################### |
9 | |
10 | restore [locate_data_file OCC501.brep] result |
11 | |
12 | if [catch {tcopy result b } catch_result] { |
13 | puts "Faulty OCC501 : function TCOPY works wrongly " |
14 | } else { |
15 | puts "OCC501 OK: function TCOPY works without hangs up " |
16 | } |
58cf74e0 |
17 | checkprops result -s 121895 |
18 | checkshape result |
5747059b |
19 | checkview -display result -2d -path ${imagedir}/${test_image}.png |