diff options
Diffstat (limited to 'bdb/test/join.tcl')
| -rw-r--r-- | bdb/test/join.tcl | 28 |
1 files changed, 16 insertions, 12 deletions
diff --git a/bdb/test/join.tcl b/bdb/test/join.tcl index ebf33b8cdf3..87b0d1fae58 100644 --- a/bdb/test/join.tcl +++ b/bdb/test/join.tcl @@ -1,19 +1,23 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1996, 1997, 1998, 1999, 2000 +# Copyright (c) 1996-2002 # Sleepycat Software. All rights reserved. # -# $Id: join.tcl,v 11.17 2000/08/25 14:21:51 sue Exp $ +# $Id: join.tcl,v 11.21 2002/02/20 17:08:22 sandstro Exp $ # -# We'll test 2-way, 3-way, and 4-way joins and figure that if those work, -# everything else does as well. We'll create test databases called -# join1.db, join2.db, join3.db, and join4.db. The number on the database -# describes the duplication -- duplicates are of the form 0, N, 2N, 3N, ... -# where N is the number of the database. Primary.db is the primary database, -# and null.db is the database that has no matching duplicates. -# -# We should test this on all btrees, all hash, and a combination thereof -# Join test. +# TEST jointest +# TEST Test duplicate assisted joins. Executes 1, 2, 3 and 4-way joins +# TEST with differing index orders and selectivity. +# TEST +# TEST We'll test 2-way, 3-way, and 4-way joins and figure that if those +# TEST work, everything else does as well. We'll create test databases +# TEST called join1.db, join2.db, join3.db, and join4.db. The number on +# TEST the database describes the duplication -- duplicates are of the +# TEST form 0, N, 2N, 3N, ... where N is the number of the database. +# TEST Primary.db is the primary database, and null.db is the database +# TEST that has no matching duplicates. +# TEST +# TEST We should test this on all btrees, all hash, and a combination thereof proc jointest { {psize 8192} {with_dup_dups 0} {flags 0} } { global testdir global rand_init @@ -24,7 +28,7 @@ proc jointest { {psize 8192} {with_dup_dups 0} {flags 0} } { # Use one environment for all database opens so we don't # need oodles of regions. - set env [berkdb env -create -home $testdir] + set env [berkdb_env -create -home $testdir] error_check_good env_open [is_valid_env $env] TRUE # With the new offpage duplicate code, we don't support |