test/tcl/env004.tcl

   1 # See the file LICENSE for redistribution information.
   2 #
   3 # Copyright (c) 1996, 2012 Oracle and/or its affiliates.  All rights reserved.
   4 #
   5 # $Id$
   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.
  10 proc 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
  54 proc 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 }