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 set len_ch 4.0000000000000001e+100
  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 }