[occt.git] / tests / bugs / xde / bug29436_3

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

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

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

Close D
Commit	Line	Data
00dfcc76	1	puts "=========="
	2	puts "OCC29436"
	3	puts "=========="
	4	puts ""
	5	########################################
	6	# Extend Expand compounds functionality
	7	########################################
	8	pload ALL
	9
	10	XOpen [locate_data_file bug29436_shell.xbf] D
	11	XExpand D 1 0:1:1:1
	12
	13	# check colors
	14	set color [XGetShapeColor D 0:1:1:2:1 c]
	15	if {$color != "RED"} {
	16	puts "Error: metadata lost during expand"
	17	}
	18	set color [XGetShapeColor D 0:1:1:4:1 c]
	19	if {$color != "RED"} {
	20	puts "Error: metadata lost during expand"
	21	}
	22
	23	Close D