puts "==========================================================="
puts "0031402: Geom_BSplineSurface::Segment produces wrong result"
puts "==========================================================="
puts ""

2dbsplinecurve curve 3 4 \
0 3 1.5 1 2.5 3 3 2 \
1.0 3.0 1 \
1.4 3.7 1 \
1.8 4.1 1 \
2.2 4.5 1 \
2.5 4.8 1 \
2.7 4.9 1 \
3.0 5.0 1 \
3.3 5.2 1

segment curve 1.5000000001 2.4999999999998
bounds curve u1 u2

checkreal "U1" [dval u1] 1.5 0.001 0.0001
checkreal "U2" [dval u2] 2.5 0.001 0.0001