mirror of
https://github.com/MariaDB/server.git
synced 2025-01-18 13:02:28 +01:00
39 lines
1.3 KiB
Tcl
39 lines
1.3 KiB
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 1999-2002
|
|
# Sleepycat Software. All rights reserved.
|
|
#
|
|
# $Id: env011.tcl,v 1.2 2002/02/20 17:08:21 sandstro 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."
|
|
}
|