From 54df2afaa61c6a03cbb4a33c9b90fa572b6d07b8 Mon Sep 17 00:00:00 2001
From: Jesse Morgan <jesse@jesterpm.net>
Date: Sat, 17 Dec 2016 21:28:53 -0800
Subject: Berkeley DB 4.8 with rust build script for linux.

---
 db-4.8.30/test/env004.tcl | 94 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 94 insertions(+)
 create mode 100644 db-4.8.30/test/env004.tcl

(limited to 'db-4.8.30/test/env004.tcl')

diff --git a/db-4.8.30/test/env004.tcl b/db-4.8.30/test/env004.tcl
new file mode 100644
index 0000000..7b49483
--- /dev/null
+++ b/db-4.8.30/test/env004.tcl
@@ -0,0 +1,94 @@
+# See the file LICENSE for redistribution information.
+#
+# Copyright (c) 1996-2009 Oracle.  All rights reserved.
+#
+# $Id$
+#
+# 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
+}
-- 
cgit v1.2.3