puts "============"
puts "OCC30174"
puts "============"
puts ""
###########################################################################################################
# ShapeUpgrade_UnifySameDomain does not unify cylindrical faces
###########################################################################################################

restore [locate_data_file bug30174_cylinder.brep] a
unifysamedom result a

checkshape result

checknbshapes result -vertex 2 -edge 3 -wire 3 -face 3 -shell 1 -solid 1

set tolres [checkmaxtol result]

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