puts "=================================================================================="
puts "OCC31736: ShapeUpgrade_UnifySameDomain algorithm does not unify all possible faces"
puts "=================================================================================="
puts ""

restore [locate_data_file bug31736_1.brep] a
unifysamedom result a

checkshape result

checknbshapes result -vertex 18 -edge 26 -wire 9 -face 9 -shell 1 -solid 1

set tolres [checkmaxtol result]

if { ${tolres} > 0.5} {
   puts "Error: bad tolerance of result"
}
