From 5fe8dd7604034ba025ef957e22102eb39822c30e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Wed, 24 Sep 2014 00:47:26 +0200
Subject: [PATCH] db.tester: with-disposal needed to release the db connections
 in the pool

---
 basis/db/tester/tester.factor | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/basis/db/tester/tester.factor b/basis/db/tester/tester.factor
index 306ea4a6ac..a3a215fcb4 100644
--- a/basis/db/tester/tester.factor
+++ b/basis/db/tester/tester.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2008 Slava Pestov, Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: concurrency.combinators db.pools db.sqlite db.tuples
-db.types kernel math random threads tools.test db sequences
-io prettyprint db.postgresql accessors io.files.temp
+USING: concurrency.combinators db db.pools db.sqlite db.tuples
+db.types destructors kernel math random threads tools.test sequences
+io io.pools prettyprint db.postgresql accessors io.files.temp
 namespaces fry system math.parser db.queries assocs ;
 IN: db.tester
 
@@ -92,10 +92,12 @@ test-2 "TEST2" {
         ] with-db
     ] [
         <db-pool> [
-            10 iota [
-                10 [
-                    test-1-tuple insert-tuple yield
-                ] times
-            ] parallel-each
-        ] with-pooled-db
+            [
+                10 iota [
+                    10 [
+                        test-1-tuple insert-tuple yield
+                    ] times
+                ] parallel-each
+            ] with-pooled-db
+        ] with-disposal
     ] bi ;