tests/bugs/xde/bug29888_2

   1 puts "=========="
   2 puts "OCC29888"
   3 puts "=========="
   4 puts ""
   5 #########################################
   6 # XCAFDoc_Editor::Expand() removes names
   7 #########################################
   8 pload ALL
   9
  10 XOpen [locate_data_file bug29888_part.xbf] D
  11
  12 XExpand D 0
  13
  14 set name_ref [GetName D 0:1:1:2:4]
  15 set name_part [GetName D 0:1:1:6]
  16 if {$name_ref != $name_part || $name_ref != "LanternPole_Body"} {
  17   puts "Error: name has been lost"
  18 }
  19
  20 set name_ref [GetName D 0:1:1:2:5]
  21 set name_part [GetName D 0:1:1:7]
  22 if {$name_ref != $name_part || $name_ref != "LanternPole_Chain"} {
  23   puts "Error: name has been lost"
  24 }
  25
  26 set name_ref [GetName D 0:1:1:2:6]
  27 set name_part [GetName D 0:1:1:8]
  28 if {$name_ref != $name_part || $name_ref != "LanternPole_Lantern"} {
  29   puts "Error: name has been lost"
  30 }
  31
  32 Close D