test/tcl/env011.tcl

   1 # See the file LICENSE for redistribution information.
   2 #
   3 # Copyright (c) 1999, 2012 Oracle and/or its affiliates.  All rights reserved.
   4 #
   5 # $Id$
   6 #
   7 # TEST  env011
   8 # TEST  Run with region overwrite flag.
   9 proc env011 { } {
  10         source ./include.tcl
  11
  12         puts "Env011: Test of region overwriting."
  13         env_cleanup $testdir
  14
  15         puts "\tEnv011: Creating/closing env for open test."
  16         set e [berkdb_env -create -overwrite -home $testdir -txn]
  17         error_check_good dbenv [is_valid_env $e] TRUE
  18         set db [eval \
  19             {berkdb_open -auto_commit -env $e -btree -create -mode 0644} ]
  20         error_check_good dbopen [is_valid_db $db] TRUE
  21         set ret [eval {$db put} "aaa" "data"]
  22         error_check_good put $ret 0
  23         set ret [eval {$db put} "bbb" "data"]
  24         error_check_good put $ret 0
  25         error_check_good db_close [$db close] 0
  26         error_check_good envclose [$e close] 0
  27
  28         puts "\tEnv011: Opening the environment with overwrite set."
  29         set e [berkdb_env -create -overwrite -home $testdir -txn -recover]
  30         error_check_good dbenv [is_valid_env $e] TRUE
  31         error_check_good envclose [$e close] 0
  32
  33         puts "\tEnv011: Removing the environment with overwrite set."
  34         error_check_good berkdb:envremove \
  35                 [berkdb envremove -home $testdir -overwrite] 0
  36
  37         puts "\tEnv011 complete."
  38 }