diff --git a/rds-data.cabal b/rds-data.cabal
--- a/rds-data.cabal
+++ b/rds-data.cabal
@@ -1,7 +1,7 @@
 cabal-version: 3.6
 
 name:                   rds-data
-version:                0.0.0.9
+version:                0.0.0.10
 synopsis:               Codecs for use with AWS rds-data
 description:            Codecs for use with AWS rds-data.
 category:               Data
diff --git a/testlib/Data/RdsData/Polysemy/Test/Cluster.hs b/testlib/Data/RdsData/Polysemy/Test/Cluster.hs
--- a/testlib/Data/RdsData/Polysemy/Test/Cluster.hs
+++ b/testlib/Data/RdsData/Polysemy/Test/Cluster.hs
@@ -124,7 +124,7 @@
   -> Sem r ()
 waitUntilRdsDbClusterAvailable dbClusterArn =
   withFrozenCallStack do
-    repeatNWhileM_ 24 $ \_ -> do
+    repeatNWhileM_ 120 $ \_ -> do
       result <- sendAws $
         AWS.newDescribeDBClusters
           & the @"dbClusterIdentifier" .~ Just dbClusterArn
@@ -132,5 +132,5 @@
       let mStatus = result ^? the @"dbClusters" . _Just . each . the @"status" . _Just
 
       if mStatus == Just "available"
-        then pure False
+        then threadDelay 1_000_000 >> pure False
         else threadDelay 1_000_000 >> pure True