                               10000)]
           (is (= false (pool/init-complete? wrapped)))
           (deliver ready true)
-          (is (pool/block-until-ready wrapped 100))
+          (is (pool/block-until-ready wrapped 500))
           (is (pool/init-complete? wrapped))
           (is (= false (pool/cancel-init wrapped))))))
 

                              config (fn [_] (deref ready)) 10000)]
          (is (= false (pool/init-complete? wrapped)))
          (deliver ready true)
          (is (pool/block-until-ready wrapped 100))
          (is (pool/init-complete? wrapped))
          (is (= false (pool/cancel-init wrapped))))))


                                (throw (RuntimeException. "test exception")))
                              10000)]
          (is (= false (pool/init-complete? wrapped)))
          (is (= false (pool/block-until-ready wrapped 500)))
          (deliver ready true)
          (is (pool/block-until-ready wrapped 500))
          (is (pool/init-complete? wrapped)))))

    (testing "cancel-init cancels the init"
