404d419d |
1 | puts "============" |
2 | puts "OCC24035" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Intersector is not symmetrical |
7 | ###################################################### |
8 | |
9 | restore [locate_data_file bug24035_face1] face1 |
10 | restore [locate_data_file bug24035_face2] face2 |
11 | |
12 | decho off |
13 | set info1 [checkshape face1] |
14 | set info2 [checkshape face2] |
15 | decho on |
16 | |
17 | set status 0 |
18 | if { [regexp "Faulty shapes in variables faulty_1 to faulty_2" $info1] != 1 } { |
b045e6a4 |
19 | puts "Error : There is no 2 mistakes by checkshape on face1" |
404d419d |
20 | set status 1 |
21 | } |
22 | if { [regexp "Faulty shapes in variables faulty_1 to faulty_2" $info2] != 1 } { |
b045e6a4 |
23 | puts "Error : There is no 2 mistakes by checkshape on face2" |
404d419d |
24 | set stauts 1 |
25 | } |
26 | |
27 | if { $status != 0 } { |
28 | puts "Error : Intersector is not symmetrical" |
29 | } else { |
30 | puts "OK : Intersector is symmetrical" |
31 | } |