add more negative arg tests

Author: heltonmc

test/besseli_test.jl

@@ -105,7 +105,13 @@ end
  ### tests for negative arguments
 
 (v, x) = 12.0, 3.2
-@test besseli(v,x) ≈ 7.1455266650203694069897133431E-7
+@test besseli(v,x) ≈ 7.1455266650203694069897133431e-7
+
+(v,x) = 13.0, -1.0
+@test besseli(v,x) ≈ -1.995631678207200756444e-14
+
+(v,x) = 12.6, -3.0
+@test besseli(v,x) ≈ -2.725684975265100582482e-8 + 8.388795775899337839603e-8 * im
 
 (v, x) = -8.0, 4.2
 @test besseli(v,x) ≈ 0.0151395115677545706602449919627

test/besselk_test.jl

@@ -125,6 +125,12 @@ end
 (v, x) = 12.0, 3.2
 @test besselk(v,x) ≈ 56331.504348755621996013084096
 
+(v,x) = 13.0, -1.0
+@test besselk(v,x) ≈ -1921576392792.994084565 - 6.26946181952681217841e-14*im
+
+(v,x) = 12.6, -3.0
+@test besselk(v,x) ≈ -135222.7926354826692727 - 416172.9627453652120223*im
+
 (v, x) = -8.0, 4.2
 @test besselk(v,x) ≈ 3.65165949039881135495282699061