puts "============================================================="
puts "OCC31187: Unify same domain algorithm produces invalid shape."
puts "============================================================="
puts ""

restore [locate_data_file bug31187_fuse.brep] a

unifysamedom result a -t 1.e-4 -a 1.e-6

checkshape result

checknbshapes result -solid 1 -shell 1 -face 13 -wire 13 -edge 36 -vertex 25

set tolres [checkmaxtol result]

if { ${tolres} > 6.e-5} {
   puts "Error: bad tolerance of result"
}