1
# See the file LICENSE for redistribution information.
3
# Copyright (c) 1996-2002
4
# Sleepycat Software. All rights reserved.
9
# TEST Test multiple data directories. Do a bunch of different opens
10
# TEST to make sure that the files are detected in different directories.
15
set omethod [convert_method $method]
16
set args [convert_args $method ""]
18
puts "Env004: Multiple data directory test."
21
file mkdir $testdir/data1
22
file mkdir $testdir/data2
23
file mkdir $testdir/data3
25
puts "\tEnv004.a: Multiple data directories in DB_CONFIG file"
27
# Create a config file
28
set cid [open $testdir/DB_CONFIG w]
29
puts $cid "set_data_dir ."
30
puts $cid "set_data_dir data1"
31
puts $cid "set_data_dir data2"
32
puts $cid "set_data_dir data3"
41
set e [berkdb_env -create -private -home $testdir]
42
error_check_good dbenv [is_valid_env $e] TRUE
43
ddir_test $fulldir $method $e $args
44
error_check_good env_close [$e close] 0
46
puts "\tEnv004.b: Multiple data directories in berkdb_env call."
48
file mkdir $testdir/data1
49
file mkdir $testdir/data2
50
file mkdir $testdir/data3
52
# Now call dbenv with config specified
53
set e [berkdb_env -create -private \
54
-data_dir . -data_dir data1 -data_dir data2 \
55
-data_dir data3 -home $testdir]
56
error_check_good dbenv [is_valid_env $e] TRUE
57
ddir_test $fulldir $method $e $args
58
error_check_good env_close [$e close] 0
63
proc ddir_test { fulldir method e args } {
66
set args [convert_args $args]
67
set omethod [convert_method $method]
69
# Now create one file in each directory
70
set db1 [eval {berkdb_open -create \
71
-truncate -mode 0644 $omethod -env $e} $args {data1/datafile1.db}]
72
error_check_good dbopen1 [is_valid_db $db1] TRUE
74
set db2 [eval {berkdb_open -create \
75
-truncate -mode 0644 $omethod -env $e} $args {data2/datafile2.db}]
76
error_check_good dbopen2 [is_valid_db $db2] TRUE
78
set db3 [eval {berkdb_open -create \
79
-truncate -mode 0644 $omethod -env $e} $args {data3/datafile3.db}]
80
error_check_good dbopen3 [is_valid_db $db3] TRUE
83
error_check_good db_close1 [$db1 close] 0
84
error_check_good db_close2 [$db2 close] 0
85
error_check_good db_close3 [$db3 close] 0
87
# Now, reopen the files without complete pathnames and make
88
# sure that we find them.
90
set db1 [berkdb_open -env $e $fulldir/data1/datafile1.db]
91
error_check_good dbopen1 [is_valid_db $db1] TRUE
93
set db2 [berkdb_open -env $e $fulldir/data2/datafile2.db]
94
error_check_good dbopen2 [is_valid_db $db2] TRUE
96
set db3 [berkdb_open -env $e $fulldir/data3/datafile3.db]
97
error_check_good dbopen3 [is_valid_db $db3] TRUE
99
# Finally close all the files
100
error_check_good db_close1 [$db1 close] 0
101
error_check_good db_close2 [$db2 close] 0
102
error_check_good db_close3 [$db3 close] 0