fixed one unit test

stla · Oct 16, 2023 · 488560e · 488560e
1 parent 600e59b
commit 488560e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/Main.hs b/tests/Main.hs
@@ -108,9 +108,9 @@ main = defaultMain $
       assertApproxEqual "" 15 expected obtained,
 
     testCase "a value of theta_d prime" $ do
-      let expected = 0.95182196661267561994
+      let expected = 0.95182196661268
           obtained = theta_d' 2.5 0.3
-      assertApproxEqual "" 15 expected obtained,
+      assertApproxEqual "" 13 expected obtained,
 
     testCase "a value of theta_n prime" $ do
       let expected = 1.0526693354651613637