| 1 | puts "================" |
| 2 | puts "BUC60654" |
| 3 | puts "OCC143" |
| 4 | puts "================" |
| 5 | puts "" |
| 6 | ###################################################################### |
| 7 | ## Raises exception "Standard_NotImplemented3" in GCPnts_AbscissaPoint on a Geom2d_OffsetCurve |
| 8 | ###################################################################### |
| 9 | |
| 10 | set len_expected 4.e100 |
| 11 | line line_2d 0 0 1 1 |
| 12 | |
| 13 | offset result line_2d 10 1 0 |
| 14 | |
| 15 | set info [length $result] |
| 16 | regexp {The length result is +([-0-9.+eE]+)} $info full len |
| 17 | |
| 18 | checkreal "Length" $len $len_expected 0. 1e-10 |