tests/bugs/xde/bug23773

   1 puts "================"
   2 puts "OCC23773"
   3 puts "================"
   4 puts ""
   5 ######################################################################################
   6 # Can not read names in STEP file
   7 ######################################################################################
   8 pload DCAF
   9
  10 ReadStep d1 [locate_data_file bug23773_2012-or-136-004-014-izzi-asm_PCAM.stp]
  11 set info1 [GetName d1 0:1:1:1:9]
  12 set info2 [GetName d1 0:1:1:1:8]
  13 set info3 [GetName d1 0:1:1:1:4]
  14 set info4 [GetName d1 0:1:1:1:7]
  15 set info5 [GetName d1 0:1:1:1:6]
  16 set info6 [GetName d1 0:1:1:1:5]
  17 set info7 [GetName d1 0:1:1:1:3]
  18
  19 if { [regexp "2012-OR-136-004-014-X" $info1] != 1 } {
  20    puts "Faulty : Label 0:1:1:1:9 is incorrect"
  21 }
  22 if { [regexp "2012-OR-136-004-014-X1" $info2] != 1 } {
  23    puts "Faulty : Label 0:1:1:1:8 is incorrect"
  24 }
  25 if { [regexp "2012-OR-136-004-014-X2" $info3] != 1 } {
  26    puts "Faulty : Label 0:1:1:1:4 is incorrect"
  27 }
  28 if { [regexp "2012-OR-136-004-014-X3" $info4] != 1 } {
  29    puts "Faulty : Label 0:1:1:1:7 is incorrect"
  30 }
  31 if { [regexp "2012-OR-136-004-014-X4" $info5] != 1 } {
  32    puts "Faulty : Label 0:1:1:1:6 is incorrect"
  33 }
  34 if { [regexp "2012-OR-136-004-014-X5" $info6] != 1 } {
  35    puts "Faulty : Label 0:1:1:1:5 is incorrect"
  36 }
  37 if { [regexp "2012-OR-136-004-014-X6" $info7] != 1 } {
  38    puts "Faulty : Label 0:1:1:1:3 is incorrect"
  39 }