diff options
Diffstat (limited to 'bdb/test/env004.tcl')
| -rw-r--r-- | bdb/test/env004.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/bdb/test/env004.tcl b/bdb/test/env004.tcl index 82cc8dd25c7..e93a0d95308 100644 --- a/bdb/test/env004.tcl +++ b/bdb/test/env004.tcl @@ -1,13 +1,13 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1996, 1997, 1998, 1999, 2000 +# Copyright (c) 1996-2002 # Sleepycat Software. All rights reserved. # -# $Id: env004.tcl,v 11.14 2000/08/25 14:21:50 sue Exp $ +# $Id: env004.tcl,v 11.18 2002/02/20 17:08:21 sandstro Exp $ # -# Env Test 4 -# Test multiple data directories. Do a bunch of different opens -# to make sure that the files are detected in different directories. +# TEST env004 +# TEST Test multiple data directories. Do a bunch of different opens +# TEST to make sure that the files are detected in different directories. proc env004 { } { source ./include.tcl @@ -38,19 +38,19 @@ proc env004 { } { set fulldir [pwd] cd $curdir - set e [berkdb env -create -private -home $testdir] + set e [berkdb_env -create -private -home $testdir] error_check_good dbenv [is_valid_env $e] TRUE ddir_test $fulldir $method $e $args error_check_good env_close [$e close] 0 - puts "\tEnv004.b: Multiple data directories in berkdb env call." + puts "\tEnv004.b: Multiple data directories in berkdb_env call." env_cleanup $testdir file mkdir $testdir/data1 file mkdir $testdir/data2 file mkdir $testdir/data3 # Now call dbenv with config specified - set e [berkdb env -create -private \ + set e [berkdb_env -create -private \ -data_dir . -data_dir data1 -data_dir data2 \ -data_dir data3 -home $testdir] error_check_good dbenv [is_valid_env $e] TRUE |