mirror of
https://github.com/MariaDB/server.git
synced 2025-01-19 13:32:33 +01:00
103 lines
3 KiB
Tcl
103 lines
3 KiB
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 1996-2002
|
|
# Sleepycat Software. All rights reserved.
|
|
#
|
|
# $Id: env004.tcl,v 11.18 2002/02/20 17:08:21 sandstro 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
|
|
|
|
# Now get pathnames
|
|
set curdir [pwd]
|
|
cd $testdir
|
|
set fulldir [pwd]
|
|
cd $curdir
|
|
|
|
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."
|
|
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 $fulldir $method $e $args
|
|
error_check_good env_close [$e close] 0
|
|
|
|
env_cleanup $testdir
|
|
}
|
|
|
|
proc ddir_test { fulldir 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 $fulldir/data1/datafile1.db]
|
|
error_check_good dbopen1 [is_valid_db $db1] TRUE
|
|
|
|
set db2 [berkdb_open -env $e $fulldir/data2/datafile2.db]
|
|
error_check_good dbopen2 [is_valid_db $db2] TRUE
|
|
|
|
set db3 [berkdb_open -env $e $fulldir/data3/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
|
|
}
|