puts "============"
puts "OCC27082"
puts "============"
puts ""
###############################
## UnifySameDomain must add internal edges where appropriate to resolve self-intersections
###############################

restore [locate_data_file bug27082_shapes2.brep] a
explode a
bfuse r a_1 a_2
unifysamedom result r

don result
smallview; l; fit
bopcheck result
checknbshapes result -m UnifySameDomain -face 37 -edge 94

checkview -screenshot -2d -path ${imagedir}/${test_image}.png