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

puts "=========="
puts "OCC29890"
puts "=========="
puts ""
##############################
# Problem in Expand Compounds
##############################
pload ALL

# Open file and expand
XOpen [locate_data_file bug29890.xbf] D
XExpand D 1 0:1:1:1238

# Check
set children [Children D 0:1:1:1239]
if {$children != "0:1:1:1239:1 0:1:1:1239:3 "} {
  puts "Error: wrong expand compounds."
}
Close D
Commit	Line	Data
fcdb829c	1	puts "=========="
	2	puts "OCC29890"
	3	puts "=========="
	4	puts ""
	5	##############################
	6	# Problem in Expand Compounds
	7	##############################
	8	pload ALL
	9
	10	# Open file and expand
	11	XOpen [locate_data_file bug29890.xbf] D
	12	XExpand D 1 0:1:1:1238
	13
	14	# Check
	15	set children [Children D 0:1:1:1239]
	16	if {$children != "0:1:1:1239:1 0:1:1:1239:3 "} {
	17	puts "Error: wrong expand compounds."
	18	}
	19	Close D