tests/bugs/modalg_7/bug29504_1

   1 puts "===================================================================================================="
   2 puts "OCC29504: ShapeUpgrade_UnifySameDomain produces invalid shape and ShapeFix_Shape is unable to fix it"
   3 puts "===================================================================================================="
   4 puts ""
   5
   6 restore [locate_data_file bug29504_cyl.brep] s
   7 unifysamedom result s
   8
   9 checkshape result
  10 checkshape s
  11
  12 checknbshapes result -face 1 -wire 1 -edge 4 -vertex 4
  13
  14 set tolres [checkmaxtol result]
  15
  16 if { ${tolres} > 1.000008e-07} {
  17    puts "Error: bad tolerance of result"
  18 }
  19
  20 checkprops result -s 104.72