tests/bugs/modalg_5/bug24946

   1 puts "==========="
   2 puts "OCC24946"
   3 puts "==========="
   4 puts ""
   5 ######################################################
   6 # Wrong result obtained by Extrema Curve/Curve
   7 ######################################################
   8
   9 restore [locate_data_file bug24946_ez5] b1
  10 restore [locate_data_file bug24946_ez101] b2
  11
  12 mkcurve cb1 b1
  13 mkcurve cb2 b2
  14
  15 extrema cb1 cb2
  16 regexp {The length ext_1 is+ +([-0-9.+eE]+)} [length ext_1] full ll
  17
  18 if { $ll < 1.0e-7 } {
  19   puts "OK: extrema is good"
  20 } else {
  21   puts "Error: extrema is wrong"
  22 }