puts "=========================================================="
puts "OCC32332: Incorrect result of ShapeUpgrade_UnifySameDomain"
puts "=========================================================="
puts ""

restore [locate_data_file bug32332_1.brep] a

unifysamedom result a

checkshape result

checknbshapes result -wire 4 -edge 9 -vertex 6

set tolres [checkmaxtol result]

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