diff --git a/appendful-persistent.cabal b/appendful-persistent.cabal
--- a/appendful-persistent.cabal
+++ b/appendful-persistent.cabal
@@ -1,11 +1,11 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.34.7.
+-- This file has been generated from package.yaml by hpack version 0.35.0.
 --
 -- see: https://github.com/sol/hpack
 
 name:           appendful-persistent
-version:        0.0.0.0
+version:        0.1.0.0
 description:    Persistent integration for ppend-only cooperative agreement
 homepage:       https://github.com/NorfairKing/appendful#readme
 bug-reports:    https://github.com/NorfairKing/appendful/issues
@@ -48,6 +48,8 @@
   hs-source-dirs:
       test
   ghc-options: -threaded -rtsopts -with-rtsopts=-N
+  build-tool-depends:
+      sydtest-discover:sydtest-discover
   build-depends:
       QuickCheck
     , appendful
@@ -56,9 +58,8 @@
     , containers
     , genvalidity
     , genvalidity-appendful
-    , genvalidity-hspec
     , genvalidity-persistent
-    , hspec
+    , genvalidity-sydtest
     , monad-logger
     , mtl
     , path
@@ -66,6 +67,7 @@
     , persistent
     , persistent-sqlite
     , persistent-template
+    , sydtest
     , text
     , validity
   default-language: Haskell2010
diff --git a/test/Data/Appendful/Persistent/SingleClientSpec.hs b/test/Data/Appendful/Persistent/SingleClientSpec.hs
--- a/test/Data/Appendful/Persistent/SingleClientSpec.hs
+++ b/test/Data/Appendful/Persistent/SingleClientSpec.hs
@@ -15,16 +15,15 @@
 import Data.List
 import qualified Data.Map as M
 import Database.Persist.Sql
-import Test.Hspec
-import Test.Hspec.QuickCheck
 import Test.QuickCheck
-import Test.Validity
+import Test.Syd hiding (runTest)
+import Test.Syd.Validity
 import TestUtils
 
 {-# ANN module ("HLint: ignore Reduce duplication" :: String) #-}
 
 spec :: Spec
-spec = modifyMaxShrinks (const 0) $
+spec =
   oneClientSpec $ do
     describe "sanity" $ do
       describe "setupClient & clientGetStore" $ do
@@ -156,7 +155,7 @@
   }
 
 oneClientSpec :: SpecWith TestEnv -> Spec
-oneClientSpec = around withTestEnv
+oneClientSpec = modifyMaxSuccess (`div` 10) . around withTestEnv
 
 withTestEnv :: (TestEnv -> IO a) -> IO a
 withTestEnv func =
diff --git a/test/Data/Appendful/Persistent/TwoClientsSpec.hs b/test/Data/Appendful/Persistent/TwoClientsSpec.hs
--- a/test/Data/Appendful/Persistent/TwoClientsSpec.hs
+++ b/test/Data/Appendful/Persistent/TwoClientsSpec.hs
@@ -13,15 +13,14 @@
 import Data.GenValidity.Appendful ()
 import qualified Data.Map as M
 import Database.Persist.Sql
-import Test.Hspec
-import Test.Hspec.QuickCheck
-import Test.Validity
+import Test.Syd hiding (runTest)
+import Test.Syd.Validity
 import TestUtils
 
 {-# ANN module ("HLint: ignore Reduce duplication" :: String) #-}
 
 spec :: Spec
-spec = modifyMaxShrinks (const 0) $
+spec =
   twoClientsSpec $ do
     describe "sanity" $ do
       describe "setupClient & clientGetStore" $ do
@@ -205,7 +204,9 @@
   }
 
 twoClientsSpec :: SpecWith TestEnv -> Spec
-twoClientsSpec = around withTestEnv
+twoClientsSpec =
+  modifyMaxSuccess (`div` 10)
+    . around withTestEnv
 
 withTestEnv :: (TestEnv -> IO a) -> IO a
 withTestEnv func =
diff --git a/test/Spec.hs b/test/Spec.hs
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -1,1 +1,1 @@
-{-# OPTIONS_GHC -F -pgmF hspec-discover #-}
+{-# OPTIONS_GHC -F -pgmF sydtest-discover #-}
diff --git a/test/TestUtils.hs b/test/TestUtils.hs
--- a/test/TestUtils.hs
+++ b/test/TestUtils.hs
@@ -27,12 +27,12 @@
 withServerPool func =
   runNoLoggingT $
     withSqlitePool ":memory:" 1 $ \serverPool -> do
-      flip runSqlPool serverPool $ void $ runMigrationSilent migrateServer
+      flip runSqlPool serverPool $ void $ runMigrationQuiet migrateServer
       liftIO $ func serverPool
 
 withClientPool :: (ConnectionPool -> IO a) -> IO a
 withClientPool func =
   runNoLoggingT $
     withSqlitePool ":memory:" 1 $ \clientPool -> do
-      flip runSqlPool clientPool $ void $ runMigrationSilent migrateClient
+      flip runSqlPool clientPool $ void $ runMigrationQuiet migrateClient
       liftIO $ func clientPool