From 3aa140213de434ab6ee6736142fd54c967f34ee9 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 10 Apr 2015 10:00:43 +0200 Subject: fix tests --- packages/tests/src/Numeric/GSL/Tests.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/tests/src/Numeric/GSL') diff --git a/packages/tests/src/Numeric/GSL/Tests.hs b/packages/tests/src/Numeric/GSL/Tests.hs index 2e225b6..e5d205d 100644 --- a/packages/tests/src/Numeric/GSL/Tests.hs +++ b/packages/tests/src/Numeric/GSL/Tests.hs @@ -42,7 +42,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 = norm2 (fromList (map fst sols) - fromList sol) < 1E-5 + ok2 = norm_2 (fromList (map fst sols) - fromList sol) < 1E-5 --------------------------------------------------------------------- -- cgit v1.2.3