puts "================================================="
puts "OCC31855: Regression of the unifysamedom command."
puts "================================================="
puts ""

restore [locate_data_file bug31855_3.brep] a
unifysamedom result a

checkshape result

checknbshapes result -vertex 272 -edge 408 -wire 150 -face 143 -shell 1 -solid 1

set tolres [checkmaxtol result]

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

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