puts "=============================================="
puts "OCC32814: Unifysamedom produces invalid result"
puts "=============================================="
puts ""

restore [locate_data_file bug32814_2.brep] s

unifysamedom result s

checkshape result
bopargcheck result

checknbshapes result -t -solid 1 -shell 1 -face 78 -wire 110 -edge 220 -vertex 136

set tolres [checkmaxtol result]

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

checkprops result -s 1.61456e+06 -v 3e+07

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