Merge pull request #60 from kaBeech/fix-test-failure

Fix test failure
kaBeech · Jun 16, 2024 · 3e68535 · 3e68535
2 parents c9abadb + 43443cd
commit 3e68535
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -37,3 +37,7 @@
 ## 0.2.0.2 -- 2024-06-13
 
 * Cleanup testing and CI
+
+## 0.2.0.3 -- 2024-06-16
+
+* Improve testing compatibility (fix text breaking Stackage build)
diff --git a/tensort.cabal b/tensort.cabal
@@ -20,7 +20,7 @@ name:               tensort
 -- PVP summary:     +-+------- breaking API changes
 --                  | | +----- non-breaking API additions
 --                  | | | +--- code changes with no API change
-version:            0.2.0.2
+version:            0.2.0.3
 
 tested-with:        GHC==9.8.2, 
                     GHC==9.6.4, 

diff --git a/test/TestCheck.hs b/test/TestCheck.hs
@@ -17,7 +17,7 @@ import Test.QuickCheck
 --   ...exit with failure
 check :: (Testable prop) => prop -> IO ()
 check prop = do
-  result <- quickCheckResult (withDiscardRatio 2000 prop)
+  result <- quickCheckWithResult stdArgs {maxDiscardRatio = 2000} prop
   unless (isPass result) exitFailure
 
 -- | Returns True if a test passes, and False otherwise