7dcac1df |
1 | puts "===========" |
2 | puts "OCC23766" |
3 | puts "===========" |
4 | puts "" |
5 | ############################################################ |
6 | # Shape orientation processing mechanism redesign |
7 | ############################################################ |
8 | |
9 | # test to check compatibility of old cbf format |
10 | |
11 | Open [locate_data_file bug23766_ttt1_old.cbf] D |
12 | |
13 | GetShape D 0:1:2:1:2 E1 |
14 | set info1 [whatis E1] |
15 | |
16 | ## to be FORWARD: |
17 | if { [regexp "FORWARD" $info1] != 1 } { |
18 | puts "Error: orientation of E1 is incorrect" |
19 | } else { |
20 | puts "OK: orientation of E1 is correct" |
21 | } |
22 | |
23 | GetShape D 0:1:3:1:2 E2 |
24 | set info2 [whatis E2] |
25 | |
26 | ## to be REVERSED: |
27 | if { [regexp "REVERSED" $info2] != 1 } { |
28 | puts "Error: orientation of E2 is incorrect" |
29 | } else { |
30 | puts "OK: orientation of E2 is correct" |
31 | } |
32 | |