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

puts "=========="
puts "OCC29599"
puts "=========="
puts ""
##########################################
# Incorrect expand compound method in XDE
##########################################
pload ALL

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

# check location of subshape
XGetShape sh D 0:1:1:10
XGetShape subsh D 0:1:1:10:1
set check_sub [issubshape subsh sh]
set check_sub [lindex $check_sub 5]

if {$check_sub != "Index"} {
  puts "Error: Wrong subshape location"
}

# check sharing of new part
set ref1 [XGetReferredShape D 0:1:1:1:5]
set ref2 [XGetReferredShape D 0:1:1:1:8]
if {$ref1 != $ref2} {
  puts "Error: Wrong sharing"
}

# check name
set name [GetName D 0:1:1:1:5]
if {$name != "l-bracket-assembly_1"} {
  puts "Error: Wrong name of component"
}

Close D
Commit	Line	Data
bc728d26	1	puts "=========="
	2	puts "OCC29599"
	3	puts "=========="
	4	puts ""
	5	##########################################
	6	# Incorrect expand compound method in XDE
	7	##########################################
	8	pload ALL
	9
	10	XOpen [locate_data_file bug29599.xbf] D
	11	XExpand D 0:1:1:1
	12
	13	# check location of subshape
	14	XGetShape sh D 0:1:1:10
	15	XGetShape subsh D 0:1:1:10:1
	16	set check_sub [issubshape subsh sh]
	17	set check_sub [lindex $check_sub 5]
	18
	19	if {$check_sub != "Index"} {
	20	puts "Error: Wrong subshape location"
	21	}
	22
	23	# check sharing of new part
	24	set ref1 [XGetReferredShape D 0:1:1:1:5]
	25	set ref2 [XGetReferredShape D 0:1:1:1:8]
	26	if {$ref1 != $ref2} {
	27	puts "Error: Wrong sharing"
	28	}
	29
	30	# check name
	31	set name [GetName D 0:1:1:1:5]
	32	if {$name != "l-bracket-assembly_1"} {
	33	puts "Error: Wrong name of component"
	34	}
	35
	36	Close D