tests/bugs/heal/bug31778

   1 puts "============================================="
   2 puts "OCC31778: UnifySameDomain fails in Debug mode"
   3 puts "============================================="
   4 puts ""
   5
   6 brestore [locate_data_file bug31778.brep] s
   7 explode s
   8 bclearobjects
   9 bcleartools
  10 baddobjects s_1
  11 baddtools s_2 s_3
  12 bfillds
  13 bbop q 1
  14 explode q
  15
  16 unifysamedom result q_1
  17
  18 checkshape result
  19
  20 checknbshapes result -solid 1 -shell 1 -face 19 -wire 21 -edge 51 -vertex 34
  21
  22 set tolres [checkmaxtol result]
  23
  24 if { ${tolres} > 5.e-5} {
  25    puts "Error: bad tolerance of result"
  26 }
  27
  28 checkprops result -v 15173.9