0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / bug23766_2
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 std 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 }