1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1999,2008 Oracle. All rights reserved. 4# 5# $Id: env011.tcl,v 12.7 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST env011 8# TEST Run with region overwrite flag. 9proc 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} 39