puts "========"
puts "OCC28189"
puts "========"
puts ""
#################################################
# Result of Boolean operation is non-manifold wire
#################################################

polyline p1 0 0 0 1 0 0
polyline p2 0 0 0 1 0 0

orientation p1 R
orientation p2 F

bfuse result1 p1 p2
explode result1

if {![regexp "REVERSED" [whatis result1_1]]} {
  puts "Error: Incorrect orientation of wire"
}

bcommon result2 p2 p1
explode result2

if {![regexp "FORWARD" [whatis result2_1]]} {
  puts "Error: Incorrect orientation of wire"
}
