tests/bugs/caf/bug23766_1

   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