tests/bugs/modalg_7/bug31441

   1 puts "============================================"
   2 puts "OCC31441: UnifySameDomain corrupts the shape"
   3 puts "============================================"
   4 puts ""
   5
   6 brestore [locate_data_file bug31441.brep] a
   7
   8 unifysamedom result a
   9
  10 checkshape result
  11
  12 checknbshapes result -solid 1 -shell 2 -face 46 -wire 48 -edge 128 -vertex 84
  13
  14 set tolres [checkmaxtol result]
  15
  16 if { ${tolres} > 2.e-7} {
  17    puts "Error: bad tolerance of result"
  18 }
  19
  20 checkprops result -v 1.10788