OCCT

puts "=================================================="
puts "Check count of segments in approximating polyline."
puts "=================================================="
puts ""

restore [locate_data_file bug24474.draw] c
discrCurve p c nbPnts 3 uniform 1
regexp {Poles\, +([0-9]+)} [dump p] full n
if {$n != 3} {
  puts "Error: invalid discretization."
}