tests/bugs/modalg_5/bug25199

   1 puts "============"
   2 puts "OCC25199"
   3 puts "============"
   4 puts ""
   5 ###############################################################################################
   6 # Bad tolerance edge generated by blend algorithm
   7 ###############################################################################################
   8
   9 decho off
  10 test bugs modalg_3 bug615
  11 decho on
  12
  13 explode result E
  14
  15 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result_21] full MaxTol_1
  16
  17 puts "MaxTolerance = $MaxTol_1"
  18
  19 set MaxTol 0.001
  20
  21 if { $MaxTol_1 > $MaxTol } {
  22     puts "Faulty OCC25199:  Bad tolerance edge generated by blend algorithm"
  23 } else {
  24     puts "OCC25199 OK:  Good tolerance edge generated by blend algorithm"
  25 }
  26