tests/bugs/moddata_3/bug24474

   1 puts "=================================================="
   2 puts "Check count of segments in approximating polyline."
   3 puts "=================================================="
   4 puts ""
   5
   6 restore [locate_data_file bug24474.draw] c
   7 discrCurve p c nbPnts 3 uniform 1
   8 regexp {Poles\, +([0-9]+)} [dump p] full n
   9 if {$n != 3} {
  10   puts "Error: invalid discretization."
  11 }