puts "=========="
puts "OCC29436"
puts "=========="
puts ""
########################################
# Extend Expand compounds functionality
########################################
pload ALL

XOpen [locate_data_file bug29436_compsolid.xbf] D
XExpand D 1 0:1:1:1

# check colors
set color [XGetShapeColor D 0:1:1:2]
if {$color != "RED"} {
  puts "Error: metadata lost during expand"
}
set color [XGetShapeColor D 0:1:1:4]
if {$color != "RED"} {
  puts "Error: metadata lost during expand"
}
set color [XGetShapeColor D 0:1:1:6]
if {$color != "RED"} {
  puts "Error: metadata lost during expand"
}

Close D
