puts "==========="
puts "OCC15489"
puts "==========="

set BugNumber OCC15489

######################################################
# Constructor gp_Lin2d(A, B, C) creates line with origin point in infinity
######################################################

pload QAcommands

set A 1e-20
set B -1.
set C 2.

set OriginList [OCC15489 $A $B $C]
regexp {X_0 += +([-0-9.+eE]+)} $OriginList full X_0
regexp {Y_0 += +([-0-9.+eE]+)} $OriginList full Y_0

set good_X_0 -1.9999999999999999e-20
set good_Y_0 2

checkreal "X_0" ${X_0} ${good_X_0} 0 0.001
checkreal "Y_0" ${Y_0} ${good_Y_0} 0 0.001
