Adjusting code and testing cases for current state of OCCT
[occt.git] / tests / bugs / moddata / bug143
CommitLineData
a87752f3 1puts "================"
2puts "BUC60654"
3puts "OCC143"
4puts "================"
5puts ""
6######################################################################
7## Raises exception "Standard_NotImplemented3" in GCPnts_AbscissaPoint on a Geom2d_OffsetCurve
8######################################################################
9
d27ea0ef 10if { [array get env os_type] != "" } {
11 set os $env(os_type)
12}
13if { [string compare $os "windows"] == 0 } {
14 set len_ch 3.9999999999999993e+100
15} else {
16 set len_ch 4.0000000000000001e+100
17}
18
a87752f3 19line line_2d 0 0 1 1
20
21offset result line_2d 10 1 0
22
23set info [length $result]
24regexp {The length result is +([-0-9.+eE]+)} $info full len
25
d27ea0ef 26if { ${len} != ${len_ch} } {
27 puts "Error : Length is invalid"
28}