diff options
| author | Alberto Ruiz <aruiz@um.es> | 2017-03-22 14:38:01 +0100 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2017-03-22 14:38:01 +0100 |
| commit | 020c0e092707101d69dbe4c73944a4352a7aa1bc (patch) | |
| tree | bae4b80ac5820e2c733798a4f05f365e2a637efd | |
| parent | db8efa9f0d46ee21f0dacdfe35c0d966d91d751d (diff) | |
increase tolerance in triTest
| -rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 165 | 1.0000, 6.0000 | 165 | 1.0000, 6.0000 |
| 166 | ] | 166 | ] |
| 167 | 167 | ||
| 168 | ok1 = (maximum $ map abs $ concat $ toLists $ e - v) <= 1e-14 | 168 | ok1 = (norm_Inf . flatten $ e - v) <= 1e-13 |
| 169 | 169 | ||
| 170 | ----------------------------------------------------- | 170 | ----------------------------------------------------- |
| 171 | 171 | ||