tests/bugs/modalg_7/bug28151

   1 puts "TODO OCC28151 ALL: Faulty shapes in variables faulty_1 to"
   2 puts "TODO OCC28151 ALL: Error: MaxTolerance"
   3
   4 puts "========"
   5 puts "OCC28151"
   6 puts "========"
   7 puts ""
   8 ##########################################################
   9 ## Sewing faces results in a shell with very big tolerance
  10 ##########################################################
  11
  12 restore [locate_data_file bug28151_surfs.brep] s
  13
  14 puts "\nBefore sewing"
  15 whatis s
  16 checkshape s
  17 tolerance s
  18
  19 set expected_MaxTolerance 0.1
  20 sewing result ${expected_MaxTolerance} s
  21
  22 puts "\nAfter sewing"
  23 whatis result
  24 checkshape result
  25
  26 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol
  27
  28 set expected_MaxTolerance 0.1
  29 set tol_abs_MaxTolerance 0.05
  30 set tol_rel_MaxTolerance 0.5
  31 checkreal "MaxTolerance" ${MaxTol} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
  32
  33 checkview -display s -3d -path ${imagedir}/${test_image}-s.png
  34 checkview -display result -3d -path ${imagedir}/${test_image}-result.png