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

better fix for db.tester

db4
Doug Coleman 2009-04-20 21:47:16 -05:00
parent 687190bbee
commit 706fb78d5b
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -56,6 +56,10 @@ test-2 "TEST2" {
{ "z" "Z" { VARCHAR 256 } +not-null+ } { "z" "Z" { VARCHAR 256 } +not-null+ }
} define-persistent } define-persistent
: test-1-tuple ( -- tuple )
f 100 random 100 random 100 random [ number>string ] tri@
test-1 boa ;
: db-tester ( test-db -- ) : db-tester ( test-db -- )
[ [
[ [
@ -67,8 +71,7 @@ test-2 "TEST2" {
drop drop
10 [ 10 [
dup [ dup [
f 100 random 100 random 100 random [ number>string ] tri@ test-1-tuple insert-tuple yield
test-1 boa insert-tuple yield
] with-db ] with-db
] times ] times
] with parallel-each ] with parallel-each
@ -84,8 +87,7 @@ test-2 "TEST2" {
<db-pool> [ <db-pool> [
10 [ 10 [
10 [ 10 [
f 100 random 100 random 100 random test-1 boa test-1-tuple insert-tuple yield
insert-tuple yield
] times ] times
] parallel-each ] parallel-each
] with-pooled-db ] with-pooled-db