tests/bugs/fclasses/bug15489

   1 puts "==========="
   2 puts "OCC15489"
   3 puts "==========="
   4
   5 set BugNumber OCC15489
   6
   7 ######################################################
   8 # Constructor gp_Lin2d(A, B, C) creates line with origin point in infinity
   9 ######################################################
  10
  11 pload QAcommands
  12
  13 set A 1e-20
  14 set B -1.
  15 set C 2.
  16
  17 set OriginList [OCC15489 $A $B $C]
  18 regexp {X_0 += +([-0-9.+eE]+)} $OriginList full X_0
  19 regexp {Y_0 += +([-0-9.+eE]+)} $OriginList full Y_0
  20
  21 set good_X_0 -1.9999999999999999e-20
  22 set good_Y_0 2
  23
  24 checkreal "X_0" ${X_0} ${good_X_0} 0 0.001
  25 checkreal "Y_0" ${Y_0} ${good_Y_0} 0 0.001