1 puts "TODO OCC24156 MacOS: Error: orientation of E2 is incorrect"
7 ############################################################
8 # Shape orientation processing mechanism redesign
9 ############################################################
11 # test to check compatibility of old xml format
13 Open [locate_data_file bug23766_ttt1_old.xml] D
15 GetShape D 0:1:2:1:2 E1
19 if { [regexp "FORWARD" $info1] != 1 } {
20 puts "Error: orientation of E1 is incorrect"
22 puts "OK: orientation of E1 is correct"
25 GetShape D 0:1:3:1:2 E2
29 if { [regexp "REVERSED" $info2] != 1 } {
30 puts "Error: orientation of E2 is incorrect"
32 puts "OK: orientation of E2 is correct"