puts "==============================================================="
puts "0030789: Data Exchange - Some names are lost during STEP import"
puts "==============================================================="
puts ""

# Load file

pload DCAF
ReadStep D [locate_data_file bug30789.stp]

# Check several names came from problematic entities
set name [GetName D 0:1:1:10]
if {$name != "F5347130221100"} {
  puts "Error: name of entity is lost."
}
set name [GetName D 0:1:1:20]
if {$name != "A5397301720500"} {
  puts "Error: name of entity is lost."
}
set name [GetName D 0:1:1:34]
if {$name != "F5349193000400-CUT01"} {
  puts "Error: name of entity is lost."
}
set name [GetName D 0:1:1:48]
if {$name != "F5349195500100-FLX05"} {
  puts "Error: name of entity is lost."
}
set name [GetName D 0:1:1:74]
if {$name != "F5349193500000-FLX10"} {
  puts "Error: name of entity is lost."
}

Close D
