add test-on-borrow as config opt

mmcgrana · May 8, 2011 · 760c440 · 760c440
1 parent b179fc3
commit 760c440
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/clj_redis/client.clj b/src/clj_redis/client.clj
@@ -7,16 +7,17 @@
 (def ^{:private true} local-url
   "redis://127.0.0.1:6379")
 
-(defn init [& [{:keys [url timeout] :as opts}]]
+(defn init [& [{:keys [url timeout test-on-borrow] :as opts}]]
   (let [uri (URI. (or url local-url))
         tout (or timeout 2000)
         host (.getHost uri)
         port (.getPort uri)
         uinfo (.getUserInfo uri)
         pass (and uinfo (last (str/split uinfo #":")))
-        config (JedisPoolConfig.)
-        pool (JedisPool. config host port tout pass)]
-    pool))
+        config (JedisPoolConfig.)]
+    (when test-on-borrow
+      (.setTestOnBorrow config test-on-borrow))
+    (JedisPool. config host port tout pass)))
 
 (defn lease [^JedisPool p f]
   (let [j (.getResource p)]