1 files changed, 2 insertions, 2 deletions

diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs
index 91f6742..77bb2f7 100644
--- a/lib/Numeric/LinearAlgebra/Tests.hs
+++ b/lib/Numeric/LinearAlgebra/Tests.hs
@@ -168,7 +168,7 @@ fittingTest = utest "levmar" (ok1 && ok2)
     sol = fst $ fitModel 1E-4 1E-4 20 (expModel, expModelDer) dat [1,0,0]
 
     ok1 = and (zipWith f sols [5,0.1,1]) where f (x,d) r = abs (x-r)<2*d
-    ok2 = pnorm PNorm2 (fromList (map fst sols) - fromList sol) < 1E-5
+    ok2 = norm2 (fromList (map fst sols) - fromList sol) < 1E-5
 
 -----------------------------------------------------
 
@@ -318,7 +318,7 @@ runTests n = do
     test (cholProp   . rPosDef)
     test (cholProp   . cPosDef)
     putStrLn "------ expm"
-    test (expmDiagProp . rSqWC)
+    test (expmDiagProp . complex. rSqWC)
     test (expmDiagProp . cSqWC)
     putStrLn "------ fft"
     test (\v -> ifft (fft v) |~| v)