# See the file LICENSE for redistribution information. # # Copyright (c) 1996,2008 Oracle. All rights reserved. # # $Id: env004.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ # # 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 set method "hash" set omethod [convert_method $method] set args [convert_args $method ""] puts "Env004: Multiple data directory test." env_cleanup $testdir file mkdir $testdir/data1 file mkdir $testdir/data2 file mkdir $testdir/data3 puts "\tEnv004.a: Multiple data directories in DB_CONFIG file" # Create a config file set cid [open $testdir/DB_CONFIG w] puts $cid "set_data_dir ." puts $cid "set_data_dir data1" puts $cid "set_data_dir data2" puts $cid "set_data_dir data3" close $cid set e [berkdb_env -create -private -home $testdir] error_check_good dbenv [is_valid_env $e] TRUE ddir_test $method $e $args error_check_good env_close [$e close] 0 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 \ -data_dir . -data_dir data1 -data_dir data2 \ -data_dir data3 -home $testdir] error_check_good dbenv [is_valid_env $e] TRUE ddir_test $method $e $args error_check_good env_close [$e close] 0 } proc ddir_test { method e args } { source ./include.tcl set args [convert_args $args] set omethod [convert_method $method] # Now create one file in each directory set db1 [eval {berkdb_open -create \ -truncate -mode 0644 $omethod -env $e} $args {data1/datafile1.db}] error_check_good dbopen1 [is_valid_db $db1] TRUE set db2 [eval {berkdb_open -create \ -truncate -mode 0644 $omethod -env $e} $args {data2/datafile2.db}] error_check_good dbopen2 [is_valid_db $db2] TRUE set db3 [eval {berkdb_open -create \ -truncate -mode 0644 $omethod -env $e} $args {data3/datafile3.db}] error_check_good dbopen3 [is_valid_db $db3] TRUE # Close the files error_check_good db_close1 [$db1 close] 0 error_check_good db_close2 [$db2 close] 0 error_check_good db_close3 [$db3 close] 0 # Now, reopen the files without complete pathnames and make # sure that we find them. set db1 [berkdb_open -env $e datafile1.db] error_check_good dbopen1 [is_valid_db $db1] TRUE set db2 [berkdb_open -env $e datafile2.db] error_check_good dbopen2 [is_valid_db $db2] TRUE set db3 [berkdb_open -env $e datafile3.db] error_check_good dbopen3 [is_valid_db $db3] TRUE # Finally close all the files error_check_good db_close1 [$db1 close] 0 error_check_good db_close2 [$db2 close] 0 error_check_good db_close3 [$db3 close] 0 }