Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / buc60654
1 puts "=================================="
2 puts "BUC60654"
3 puts "=================================="
4 puts ""
5 ##########################################################
6 ## Raises exception in GCPnts_AbscissaPoint on a Geom2d_OffsetCurve 
7 ##########################################################
8
9 set len_ch 4.0000000000000001e+100
10
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 if { ${len} != ${len_ch} } {
19     puts "Error : length is invalid"
20 }
21