Adjusting code and testing cases for current state of OCCT
[occt.git] / tests / bugs / moddata / bug143
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 if { [array get env os_type] != "" } {
11     set os $env(os_type)
12 }
13 if { [string compare $os "windows"] == 0 } {
14    set len_ch 3.9999999999999993e+100
15 } else {
16   set len_ch 4.0000000000000001e+100
17 }
18
19 line line_2d 0 0 1 1
20
21 offset result line_2d 10 1 0
22
23 set info [length $result]
24 regexp {The length result is +([-0-9.+eE]+)} $info full len
25
26 if { ${len} != ${len_ch} } {
27     puts "Error : Length is invalid"
28 }