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