puts "================================================================================"
puts "OCC29382: ShapeUpgrade_UnifySameDomain algorithm incorrectly processes the shape"
puts "================================================================================"
puts ""

restore [locate_data_file bug29382_Group_3.brep] a

unifysamedom result a +b

checkshape result
checkshape a

checknbshapes result -solid 3 -shell 3 -face 16 -wire 16 -edge 30 -vertex 18

set tolres [checkmaxtol result]

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

explode result
checkprops result_1 -v 4.41996e-06
checkprops result_2 -v 1.30453e-06
checkprops result_3 -v 1.16532e-06