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