1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1996,2008 Oracle. All rights reserved. 4# 5# $Id: env004.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST env004 8# TEST Test multiple data directories. Do a bunch of different opens 9# TEST to make sure that the files are detected in different directories. 10proc env004 { } { 11 source ./include.tcl 12 13 set method "hash" 14 set omethod [convert_method $method] 15 set args [convert_args $method ""] 16 17 puts "Env004: Multiple data directory test." 18 19 env_cleanup $testdir 20 file mkdir $testdir/data1 21 file mkdir $testdir/data2 22 file mkdir $testdir/data3 23 24 puts "\tEnv004.a: Multiple data directories in DB_CONFIG file" 25 26 # Create a config file 27 set cid [open $testdir/DB_CONFIG w] 28 puts $cid "set_data_dir ." 29 puts $cid "set_data_dir data1" 30 puts $cid "set_data_dir data2" 31 puts $cid "set_data_dir data3" 32 close $cid 33 34 set e [berkdb_env -create -private -home $testdir] 35 error_check_good dbenv [is_valid_env $e] TRUE 36 ddir_test $method $e $args 37 error_check_good env_close [$e close] 0 38 39 puts "\tEnv004.b: Multiple data directories in berkdb_env call." 40 env_cleanup $testdir 41 file mkdir $testdir/data1 42 file mkdir $testdir/data2 43 file mkdir $testdir/data3 44 45 # Now call dbenv with config specified 46 set e [berkdb_env -create -private \ 47 -data_dir . -data_dir data1 -data_dir data2 \ 48 -data_dir data3 -home $testdir] 49 error_check_good dbenv [is_valid_env $e] TRUE 50 ddir_test $method $e $args 51 error_check_good env_close [$e close] 0 52} 53 54proc ddir_test { method e args } { 55 source ./include.tcl 56 57 set args [convert_args $args] 58 set omethod [convert_method $method] 59 60 # Now create one file in each directory 61 set db1 [eval {berkdb_open -create \ 62 -truncate -mode 0644 $omethod -env $e} $args {data1/datafile1.db}] 63 error_check_good dbopen1 [is_valid_db $db1] TRUE 64 65 set db2 [eval {berkdb_open -create \ 66 -truncate -mode 0644 $omethod -env $e} $args {data2/datafile2.db}] 67 error_check_good dbopen2 [is_valid_db $db2] TRUE 68 69 set db3 [eval {berkdb_open -create \ 70 -truncate -mode 0644 $omethod -env $e} $args {data3/datafile3.db}] 71 error_check_good dbopen3 [is_valid_db $db3] TRUE 72 73 # Close the files 74 error_check_good db_close1 [$db1 close] 0 75 error_check_good db_close2 [$db2 close] 0 76 error_check_good db_close3 [$db3 close] 0 77 78 # Now, reopen the files without complete pathnames and make 79 # sure that we find them. 80 81 set db1 [berkdb_open -env $e datafile1.db] 82 error_check_good dbopen1 [is_valid_db $db1] TRUE 83 84 set db2 [berkdb_open -env $e datafile2.db] 85 error_check_good dbopen2 [is_valid_db $db2] TRUE 86 87 set db3 [berkdb_open -env $e datafile3.db] 88 error_check_good dbopen3 [is_valid_db $db3] TRUE 89 90 # Finally close all the files 91 error_check_good db_close1 [$db1 close] 0 92 error_check_good db_close2 [$db2 close] 0 93 error_check_good db_close3 [$db3 close] 0 94} 95