Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / buc60654
CommitLineData
a87752f3 1puts "=================================="
2puts "BUC60654"
3puts "=================================="
4puts ""
5##########################################################
6## Raises exception in GCPnts_AbscissaPoint on a Geom2d_OffsetCurve
7##########################################################
8
9set len_ch 4.0000000000000001e+100
10
11line line_2d 0 0 1 1
12
13offset result line_2d 10 1 0
14
15set info [length $result]
16regexp {The length result is +([-0-9.+eE]+)} $info full len
17
18if { ${len} != ${len_ch} } {
19 puts "Error : length is invalid"
20}
21