Import BSDDB 4.7.25 (as of svn r89086)
This commit is contained in:
Zachary Ware
260
test/fop004.tcl
Normal file
260
test/fop004.tcl
Normal file
@@ -0,0 +1,260 @@
|
||||
# See the file LICENSE for redistribution information.
|
||||
#
|
||||
# Copyright (c) 2000,2008 Oracle. All rights reserved.
|
||||
#
|
||||
# $Id: fop004.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $
|
||||
#
|
||||
# TEST fop004
|
||||
# TEST Test of DB->rename(). (formerly test075)
|
||||
# TEST Test that files can be renamed from one directory to another.
|
||||
# TEST Test that files can be renamed using absolute or relative
|
||||
# TEST pathnames.
|
||||
proc fop004 { method { tnum "004" } args } {
|
||||
global encrypt
|
||||
global errorCode
|
||||
global errorInfo
|
||||
source ./include.tcl
|
||||
|
||||
set args [convert_args $method $args]
|
||||
set omethod [convert_method $method]
|
||||
|
||||
puts "Fop$tnum: ($method $args): Test of DB->rename()"
|
||||
|
||||
set eindex [lsearch -exact $args "-env"]
|
||||
if { $eindex != -1 } {
|
||||
# If we are using an env, then skip this test.
|
||||
# It needs its own.
|
||||
incr eindex
|
||||
set env [lindex $args $eindex]
|
||||
puts "Skipping fop$tnum for env $env"
|
||||
return
|
||||
}
|
||||
if { $encrypt != 0 } {
|
||||
puts "Skipping fop$tnum for security"
|
||||
return
|
||||
}
|
||||
cleanup $testdir NULL
|
||||
|
||||
# Define absolute pathnames
|
||||
set curdir [pwd]
|
||||
cd $testdir
|
||||
set fulldir [pwd]
|
||||
cd $curdir
|
||||
set reldir $testdir
|
||||
|
||||
# Name subdirectories for renaming from one directory to another.
|
||||
set subdira A
|
||||
set subdirb B
|
||||
|
||||
# Set up absolute and relative pathnames for test
|
||||
set paths [list "absolute $fulldir" "relative $reldir"]
|
||||
set files [list "fop$tnum-old.db fop$tnum-new.db {name change}" \
|
||||
"fop$tnum.db fop$tnum.db {directory change}"]
|
||||
|
||||
foreach pathinfo $paths {
|
||||
set pathtype [lindex $pathinfo 0]
|
||||
set path [lindex $pathinfo 1]
|
||||
foreach fileinfo $files {
|
||||
set desc [lindex $fileinfo 2]
|
||||
puts "Fop$tnum: Test of $pathtype path $path with $desc"
|
||||
set env NULL
|
||||
set envargs ""
|
||||
|
||||
# Loop through test using the following rename options
|
||||
# 1. no environment, not in transaction
|
||||
# 2. with environment, not in transaction
|
||||
# 3. rename with auto-commit
|
||||
# 4. rename in committed transaction
|
||||
# 5. rename in aborted transaction
|
||||
|
||||
foreach op "noenv env auto commit abort" {
|
||||
|
||||
puts "\tFop$tnum.a: Create/rename with $op"
|
||||
# If we are using an env, then testfile should
|
||||
# be the db name. Otherwise it is the path we
|
||||
# are testing and the name.
|
||||
#
|
||||
set old [lindex $fileinfo 0]
|
||||
set new [lindex $fileinfo 1]
|
||||
# Set up subdirectories if necessary.
|
||||
if { $desc == "directory change" } {
|
||||
file mkdir $testdir/$subdira
|
||||
file mkdir $testdir/$subdirb
|
||||
set oldname $subdira/$old
|
||||
set newname $subdirb/$new
|
||||
set oldextent $subdira/__dbq.$old.0
|
||||
set newextent $subdirb/__dbq.$new.0
|
||||
} else {
|
||||
set oldname $old
|
||||
set newname $new
|
||||
set oldextent __dbq.$old.0
|
||||
set newextent __dbq.$new.0
|
||||
}
|
||||
# If we don't have an env, we're going to
|
||||
# operate on the file using its absolute
|
||||
# or relative path. Tack it on the front.
|
||||
if { $op == "noenv" } {
|
||||
set oldfile $path/$oldname
|
||||
set newfile $path/$newname
|
||||
set oldextent $path/$oldextent
|
||||
set newextent $path/$newextent
|
||||
} else {
|
||||
set oldfile $oldname
|
||||
set newfile $newname
|
||||
set txnarg ""
|
||||
if { $op == "auto" || $op == "commit" \
|
||||
|| $op == "abort" } {
|
||||
set txnarg " -txn"
|
||||
}
|
||||
set env [eval {berkdb_env -create} \
|
||||
$txnarg -home $path]
|
||||
set envargs "-env $env"
|
||||
error_check_good \
|
||||
env_open [is_valid_env $env] TRUE
|
||||
}
|
||||
|
||||
# Files don't exist before starting the test.
|
||||
#
|
||||
check_file_exist $oldfile $env $path 0
|
||||
check_file_exist $newfile $env $path 0
|
||||
|
||||
puts "\t\tFop$tnum.a.1: Create file $oldfile"
|
||||
set db [eval {berkdb_open -create -mode 0644} \
|
||||
$omethod $envargs $args $oldfile]
|
||||
error_check_good dbopen [is_valid_db $db] TRUE
|
||||
|
||||
# Use numeric key so record-based methods
|
||||
# don't need special treatment.
|
||||
set key 1
|
||||
set data data
|
||||
|
||||
error_check_good dbput \
|
||||
[$db put $key [chop_data $method $data]] 0
|
||||
error_check_good dbclose [$db close] 0
|
||||
|
||||
puts "\t\tFop$tnum.a.2:\
|
||||
Rename file to $newfile"
|
||||
check_file_exist $oldfile $env $path 1
|
||||
check_file_exist $newfile $env $path 0
|
||||
|
||||
# Regular renames use berkdb dbrename
|
||||
# Txn-protected renames use $env dbrename.
|
||||
if { $op == "noenv" || $op == "env" } {
|
||||
error_check_good rename [eval \
|
||||
{berkdb dbrename} $envargs \
|
||||
$oldfile $newfile] 0
|
||||
} elseif { $op == "auto" } {
|
||||
error_check_good rename [eval \
|
||||
{$env dbrename} -auto_commit \
|
||||
$oldfile $newfile] 0
|
||||
} else {
|
||||
# $op is "abort" or "commit"
|
||||
set txn [$env txn]
|
||||
error_check_good rename [eval \
|
||||
{$env dbrename} -txn $txn \
|
||||
$oldfile $newfile] 0
|
||||
error_check_good txn_$op [$txn $op] 0
|
||||
}
|
||||
|
||||
if { $op != "abort" } {
|
||||
check_file_exist $oldfile $env $path 0
|
||||
check_file_exist $newfile $env $path 1
|
||||
} else {
|
||||
check_file_exist $oldfile $env $path 1
|
||||
check_file_exist $newfile $env $path 0
|
||||
}
|
||||
|
||||
# Check that extent files moved too, unless
|
||||
# we aborted the rename.
|
||||
if { [is_queueext $method ] == 1 } {
|
||||
if { $op != "abort" } {
|
||||
check_file_exist \
|
||||
$oldextent $env $path 0
|
||||
check_file_exist \
|
||||
$newextent $env $path 1
|
||||
} else {
|
||||
check_file_exist \
|
||||
$oldextent $env $path 1
|
||||
check_file_exist \
|
||||
$newextent $env $path 0
|
||||
}
|
||||
}
|
||||
|
||||
puts "\t\tFop$tnum.a.3: Check file contents"
|
||||
# Open again with create to make sure we're not
|
||||
# caching. In the normal case (no env), we
|
||||
# already know the file doesn't exist.
|
||||
set odb [eval {berkdb_open -create -mode 0644} \
|
||||
$envargs $omethod $args $oldfile]
|
||||
set ndb [eval {berkdb_open -create -mode 0644} \
|
||||
$envargs $omethod $args $newfile]
|
||||
error_check_good \
|
||||
odb_open [is_valid_db $odb] TRUE
|
||||
error_check_good \
|
||||
ndb_open [is_valid_db $ndb] TRUE
|
||||
|
||||
# The DBT from the "old" database should be
|
||||
# empty, not the "new" one, except in the case
|
||||
# of an abort.
|
||||
set odbt [$odb get $key]
|
||||
if { $op == "abort" } {
|
||||
error_check_good \
|
||||
odbt_has_data [llength $odbt] 1
|
||||
} else {
|
||||
set ndbt [$ndb get $key]
|
||||
error_check_good \
|
||||
odbt_empty [llength $odbt] 0
|
||||
error_check_bad \
|
||||
ndbt_empty [llength $ndbt] 0
|
||||
error_check_good ndbt \
|
||||
[lindex [lindex $ndbt 0] 1] \
|
||||
[pad_data $method $data]
|
||||
}
|
||||
error_check_good odb_close [$odb close] 0
|
||||
error_check_good ndb_close [$ndb close] 0
|
||||
|
||||
# Now there's both an old and a new. Rename the
|
||||
# "new" to the "old" and make sure that fails.
|
||||
#
|
||||
puts "\tFop$tnum.b: Make sure rename fails\
|
||||
instead of overwriting"
|
||||
set envargs ""
|
||||
if { $env != "NULL" } {
|
||||
error_check_good \
|
||||
env_close [$env close] 0
|
||||
set env [berkdb_env_noerr -home $path]
|
||||
set envargs " -env $env"
|
||||
error_check_good env_open2 \
|
||||
[is_valid_env $env] TRUE
|
||||
}
|
||||
set ret [catch {eval {berkdb dbrename} \
|
||||
$envargs $newfile $oldfile} res]
|
||||
error_check_bad rename_overwrite $ret 0
|
||||
error_check_good rename_overwrite_ret \
|
||||
[is_substr $errorCode EEXIST] 1
|
||||
|
||||
# Verify and then start over from a clean slate.
|
||||
verify_dir $path "\tFop$tnum.c: "
|
||||
verify_dir $path/$subdira "\tFop$tnum.c: "
|
||||
verify_dir $path/$subdirb "\tFop$tnum.c: "
|
||||
if { $env != "NULL" } {
|
||||
error_check_good \
|
||||
env_close2 [$env close] 0
|
||||
}
|
||||
env_cleanup $path
|
||||
check_file_exist $oldfile $env $path 0
|
||||
check_file_exist $newfile $env $path 0
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
proc check_file_exist { filename env path expected } {
|
||||
if { $env != "NULL" } {
|
||||
error_check_good "$filename exists in env" \
|
||||
[file exists $path/$filename] $expected
|
||||
} else {
|
||||
error_check_good \
|
||||
"$filename exists" [file exists $filename] $expected
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user