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