tests/bugs/xde/bug27169

   1 puts "=========="
   2 puts "OCC27169"
   3 puts "=========="
   4 puts ""
   5 ########################################################################
   6 # Suspitious behavior of importing names during STEP import
   7 ########################################################################
   8
   9 pload DCAF
  10
  11 ReadStep D [locate_data_file bug27169_robot01.step]
  12
  13 set label_1 0:1:1:1:1
  14 set label_2 0:1:1:1:2
  15 set label_3 0:1:1:1:3
  16 set label_4 0:1:1:1:4
  17
  18 set Name_1 [GetName D ${label_1}]
  19 set Name_2 [GetName D ${label_2}]
  20 set Name_3 [GetName D ${label_3}]
  21 set Name_4 [GetName D ${label_4}]
  22
  23 puts "Name_1='${Name_1}'"
  24 puts "Name_2='${Name_2}'"
  25 puts "Name_3='${Name_3}'"
  26 puts "Name_4='${Name_4}'"
  27
  28 if (![regexp {NAUO1} ${Name_1}]) {
  29   puts "Error: Name of entitie ${label_1} is bad"
  30 } else {
  31   puts "OK: Name of entitie ${label_1} is good"
  32 }
  33 if (![regexp {NAUO2} ${Name_2}]) {
  34   puts "Error: Name of entitie ${label_2} is bad"
  35 } else {
  36   puts "OK: Name of entitie ${label_2} is good"
  37 }
  38 if (![regexp {NAUO3} ${Name_3}]) {
  39   puts "Error: Name of entitie ${label_3} is bad"
  40 } else {
  41   puts "OK: Name of entitie ${label_3} is good"
  42 }
  43 if (![regexp {NAUO4} ${Name_4}]) {
  44   puts "Error: Name of entitie ${label_4} is bad"
  45 } else {
  46   puts "OK: Name of entitie ${label_4} is good"
  47 }