fix a bug in db.tester

db4
Doug Coleman 2009-04-20 21:32:23 -05:00
parent 0dd144b461
commit 687190bbee
1 changed files with 3 additions and 3 deletions

View File

@ -3,7 +3,7 @@
USING: concurrency.combinators db.pools db.sqlite db.tuples USING: concurrency.combinators db.pools db.sqlite db.tuples
db.types kernel math random threads tools.test db sequences db.types kernel math random threads tools.test db sequences
io prettyprint db.postgresql db.sqlite accessors io.files.temp io prettyprint db.postgresql db.sqlite accessors io.files.temp
namespaces fry system ; namespaces fry system math.parser ;
IN: db.tester IN: db.tester
: postgresql-test-db ( -- postgresql-db ) : postgresql-test-db ( -- postgresql-db )
@ -67,8 +67,8 @@ test-2 "TEST2" {
drop drop
10 [ 10 [
dup [ dup [
f 100 random 100 random 100 random test-1 boa f 100 random 100 random 100 random [ number>string ] tri@
insert-tuple yield test-1 boa insert-tuple yield
] with-db ] with-db
] times ] times
] with parallel-each ] with parallel-each