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

restore [locate_data_file bug31855_2.brep] a
unifysamedom result a

checkshape result

checknbshapes result -vertex 664 -edge 996 -wire 484 -face 406 -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