diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -33,3 +33,7 @@
 * Improve documentation
 
 * Add very basic benchmarking
+
+## 0.2.0.2 -- 2024-06-13
+
+* Cleanup testing and CI
diff --git a/tensort.cabal b/tensort.cabal
--- a/tensort.cabal
+++ b/tensort.cabal
@@ -20,7 +20,7 @@
 -- PVP summary:     +-+------- breaking API changes
 --                  | | +----- non-breaking API additions
 --                  | | | +--- code changes with no API change
-version:            0.2.0.1
+version:            0.2.0.2
 
 tested-with:        GHC==9.8.2, 
                     GHC==9.6.4, 
diff --git a/test/SortSpec.hs b/test/SortSpec.hs
--- a/test/SortSpec.hs
+++ b/test/SortSpec.hs
@@ -14,7 +14,7 @@
 result_is_sorted_bits :: ([Bit] -> [Bit]) -> [Bit] -> Property
 result_is_sorted_bits sort unsortedList =
   within
-    100000
+    1000000
     ( (length unsortedList < 10) ==>
         isSorted (SortBit (sort unsortedList))
     )
@@ -22,7 +22,7 @@
 result_is_sorted_records :: SortAlg -> [Record] -> Property
 result_is_sorted_records sort unsortedList =
   within
-    100000
+    1000000
     ( (length unsortedList < 10) ==>
         isSorted (sort (SortRec unsortedList))
     )
@@ -30,7 +30,7 @@
 result_is_sorted_records_short :: SortAlg -> [Record] -> Property
 result_is_sorted_records_short sort unsortedList =
   within
-    100000
+    1000000
     ( (length unsortedList < 6) ==>
         isSorted (sort (SortRec unsortedList))
     )
@@ -38,7 +38,7 @@
 result_is_sorted_custom_bitsize :: Int -> [Bit] -> Property
 result_is_sorted_custom_bitsize n unsortedList =
   within
-    100000
+    1000000
     ( (length unsortedList < 15) && (n > 1) ==>
         isSorted (SortBit (tensortBN n unsortedList))
     )
diff --git a/test/TestCheck.hs b/test/TestCheck.hs
--- a/test/TestCheck.hs
+++ b/test/TestCheck.hs
@@ -17,7 +17,7 @@
 --   ...exit with failure
 check :: (Testable prop) => prop -> IO ()
 check prop = do
-  result <- quickCheckResult prop
+  result <- quickCheckResult (withDiscardRatio 2000 prop)
   unless (isPass result) exitFailure
 
 -- | Returns True if a test passes, and False otherwise