6d368502 |
1 | puts "REQUIRED All: Faulty shapes in variables faulty_1 to faulty_" |
0e94a94e |
2 | puts "========================" |
3 | puts " OCC366 " |
4 | puts "========================" |
5 | puts "" |
6 | ################################################## |
7b5e532f |
7 | ## Checkshape says that face is valid but it includes selfintersecting wire |
0e94a94e |
8 | ################################################## |
9 | |
10 | restore [locate_data_file buc61006.brep] result |
11 | |
0e94a94e |
12 | set che [checkshape result] |
0e94a94e |
13 | |
14 | if { [regexp "Faulty" $che] != 1 } { |
15 | puts "Error : Checkshape command works wrongly" |
16 | } |
17 | |
5747059b |
18 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
0e94a94e |
19 | |