tests/bugs/modalg_5/bug24107

   1 puts "================"
   2 puts "OCC24107"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # BRepAlgo::ConcatenateWireC0 method doesn't work on a translated wire
   7 #######################################################################
   8
   9 restore [locate_data_file bug24107_wire.brep] w
  10
  11 concatC0wire result w
  12
  13 checkshape result
  14
  15 set tolmax_w [tolmax w]
  16 regexp {max tol = ([-0-9.+eE]+)} ${tolmax_w} full CMP_TOL
  17
  18 set tolmax_result [tolmax result]
  19 regexp {max tol = ([-0-9.+eE]+)} ${tolmax_result} full MaxTolerance
  20
  21 if { ${MaxTolerance} > [expr 2 * ${CMP_TOL}] } {
  22    puts "Error: invalid tolerance of result wire"
  23 }