tests/bugs/modalg_7/bug30174

   1 puts "============"
   2 puts "OCC30174"
   3 puts "============"
   4 puts ""
   5 ###########################################################################################################
   6 # ShapeUpgrade_UnifySameDomain does not unify cylindrical faces
   7 ###########################################################################################################
   8
   9 restore [locate_data_file bug30174_cylinder.brep] a
  10 unifysamedom result a
  11
  12 checkshape result
  13
  14 checknbshapes result -vertex 2 -edge 3 -wire 3 -face 3 -shell 1 -solid 1
  15
  16 set tolres [checkmaxtol result]
  17
  18 if { ${tolres} > 2.e-5} {
  19    puts "Error: bad tolerance of result"
  20 }