puts "==========================================="
puts "OCC32213: Invalid result of UnifySameDomain"
puts "==========================================="
puts ""

restore [locate_data_file bug32213.brep] a

unifysamedom result a

checkshape result

checknbshapes result -solid 1 -shell 1 -face 21 -wire 22 -edge 57 -vertex 37

set tolres [checkmaxtol result]

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

checkprops result -s 81.9221