5 ######################################################
6 # Intersector is not symmetrical
7 ######################################################
9 restore [locate_data_file bug24035_face1] face1
10 restore [locate_data_file bug24035_face2] face2
13 set info1 [checkshape face1]
14 set info2 [checkshape face2]
18 if { [regexp "Faulty shapes in variables faulty_1 to faulty_2" $info1] != 1 } {
19 puts "Error : There is no 2 mistakes by checkshape on face1"
22 if { [regexp "Faulty shapes in variables faulty_1 to faulty_2" $info2] != 1 } {
23 puts "Error : There is no 2 mistakes by checkshape on face2"
28 puts "Error : Intersector is not symmetrical"
30 puts "OK : Intersector is symmetrical"