tests/bugs/xde/bug29599

   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