diff --git a/auto-update.cabal b/auto-update.cabal
--- a/auto-update.cabal
+++ b/auto-update.cabal
@@ -1,5 +1,5 @@
 name:                auto-update
-version:             0.1.1.1
+version:             0.1.1.2
 synopsis:            Efficiently run periodic, on-demand actions
 description:
     A common problem is the desire to have an action run at a scheduled interval, but only if it is needed. For example, instead of having every web request result in a new @getCurrentTime@ call, we'd like to have a single worker thread run every second, updating an @IORef@. However, if the request frequency is less than once per second, this is a pessimization, and worse, kills idle GC.
@@ -25,6 +25,7 @@
 test-suite spec
   main-is:         Spec.hs
   other-modules:   Control.AutoUpdateSpec
+                   Control.ReaperSpec
   hs-source-dirs:  test
   type:            exitcode-stdio-1.0
   build-depends:   base, auto-update, hspec
diff --git a/test/Control/AutoUpdateSpec.hs b/test/Control/AutoUpdateSpec.hs
--- a/test/Control/AutoUpdateSpec.hs
+++ b/test/Control/AutoUpdateSpec.hs
@@ -10,7 +10,7 @@
 spec :: Spec
 spec = do
     prop "incrementer" $ \st' -> do
-        let st = abs st'
+        let st = abs st' `mod` 10000
         ref <- newIORef 0
         next <- mkAutoUpdate defaultUpdateSettings
             { updateAction = atomicModifyIORef ref $ \i ->
diff --git a/test/Control/ReaperSpec.hs b/test/Control/ReaperSpec.hs
new file mode 100644
--- /dev/null
+++ b/test/Control/ReaperSpec.hs
@@ -0,0 +1,37 @@
+module Control.ReaperSpec (spec) where
+
+import Control.Reaper
+import Control.Concurrent
+import Test.Hspec
+import Test.Hspec.QuickCheck
+import Data.IORef
+
+type Item = (Int, IORef Int)
+
+action = mkListAction $ \(i, ref) -> do
+    modifyIORef ref succ
+    return $ if i > 1
+             then Just (pred i, ref)
+             else Nothing
+
+spec :: Spec
+spec = prop "works" $ \is -> do
+    reaper <- mkReaper defaultReaperSettings
+        { reaperAction = action
+        , reaperDelay = 1000
+        }
+
+    let mkTestCase i = do
+            ref <- newIORef 0
+            let expected = (abs i `mod` 10) + 1
+            reaperAdd reaper (expected, ref)
+            return (expected, ref)
+    testCases <- mapM mkTestCase is
+
+    let test (expected, ref) = do
+            actual <- readIORef ref
+            actual `shouldBe` (expected :: Int)
+    threadDelay 100000
+    mapM_ test testCases
+    [] <- reaperRead reaper
+    return ()