tests/bugs/modalg_7/bug31187

   1 puts "============================================================="
   2 puts "OCC31187: Unify same domain algorithm produces invalid shape."
   3 puts "============================================================="
   4 puts ""
   5
   6 restore [locate_data_file bug31187_fuse.brep] a
   7
   8 unifysamedom result a -t 1.e-4 -a 1.e-6
   9
  10 checkshape result
  11
  12 checknbshapes result -solid 1 -shell 1 -face 13 -wire 13 -edge 36 -vertex 25
  13
  14 set tolres [checkmaxtol result]
  15
  16 if { ${tolres} > 6.e-5} {
  17    puts "Error: bad tolerance of result"
  18 }