reproduce an issue

test/poolboy_tests.erl

@@ -68,7 +68,9 @@ pool_test_() ->
             },
             {<<"Pool reuses waiting monitor when a worker exits">>,
                 fun reuses_waiting_monitor_on_worker_exit/0
-            }
+            },
+            {<<"Recover from transaction timeout">>,
+                fun transaction_timeout/0}
         ]
     }.
 
@@ -88,6 +90,22 @@ checkin_worker(Pid, Worker) ->
     poolboy:checkin(Pid, Worker),
     timer:sleep(500).
 
+transaction_timeout() ->
+    {ok, Pid} = new_pool(1, 0),
+    ?assertEqual({ready,1,0,0}, pool_call(Pid, status)),
+    WorkerList = pool_call(Pid, get_all_workers),
+    ?assertMatch([_], WorkerList),
+    ?assertExit(
+        {timeout, _},
+        poolboy:transaction(Pid,
+            fun(Worker) ->
+                ok = pool_call(Worker, work)
+            end,
+            0)),
+    ?assertEqual(WorkerList, pool_call(Pid, get_all_workers)),
+    ?assertEqual({ready,1,0,0}, pool_call(Pid, status)).
+
+
 pool_startup() ->
     %% Check basic pool operation.
     {ok, Pid} = new_pool(10, 5),