From 020c0e092707101d69dbe4c73944a4352a7aa1bc Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 22 Mar 2017 14:38:01 +0100 Subject: increase tolerance in triTest --- packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/tests') diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index 55a5f74..6d54f4d 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs @@ -165,7 +165,7 @@ triTest = utest "triTest" ok1 where 1.0000, 6.0000 ] - ok1 = (maximum $ map abs $ concat $ toLists $ e - v) <= 1e-14 + ok1 = (norm_Inf . flatten $ e - v) <= 1e-13 ----------------------------------------------------- -- cgit v1.2.3