tests/bugs/modalg_6/bug27270

   1 puts "============"
   2 puts "OCC27270"
   3 puts "============"
   4 puts ""
   5 ###########################################################################################################
   6 #  Boolean operations: incorrect assembling of sub-shapes in container shapes (wires, shells, compsolids)
   7 ###########################################################################################################
   8
   9 box b1 200 200 200
  10 explode b1 w
  11 compound b1_1 b1_2 b1_3 b1_4 b1_5 b1_6 c1
  12 tcopy c1 c2
  13 ttranslate c2 100 0 300
  14 bfuse result c1 c2
  15 set info [explode result]
  16 if { [llength $info] > 2 } {
  17   puts "OK: result is correct"
  18 } else {
  19   puts "Error: incorrect assembling of sub-shapes in container shapes"
  20 }
  21
  22 checkprops result -l 9600
  23 checkshape result
  24 checkview -display result -3d -path ${imagedir}/${test_image}.png