steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

db.tester: with-disposal needed to release the db connections in the pool

db4
Björn Lindqvist 2014-09-24 00:47:26 +02:00 committed by John Benediktsson
parent d952ac0c07
commit 5fe8dd7604
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basis/db/tester/tester.factor
View File

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