mirror of
https://github.com/MariaDB/server.git
synced 2025-10-31 15:50:51 +03:00
127 lines
3.3 KiB
Tcl
127 lines
3.3 KiB
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 2000-2002
|
|
# Sleepycat Software. All rights reserved.
|
|
#
|
|
# $Id: test080.tcl,v 11.16 2002/08/08 15:38:12 bostic Exp $
|
|
#
|
|
# TEST test080
|
|
# TEST Test of DB->remove()
|
|
proc test080 { method {tnum 80} args } {
|
|
source ./include.tcl
|
|
|
|
set args [convert_args $method $args]
|
|
set omethod [convert_method $method]
|
|
|
|
puts "Test0$tnum: Test of DB->remove()"
|
|
|
|
# Determine full path
|
|
set curdir [pwd]
|
|
cd $testdir
|
|
set fulldir [pwd]
|
|
cd $curdir
|
|
|
|
# Test both relative and absolute path
|
|
set paths [list $fulldir $testdir]
|
|
|
|
# If we are using an env, then skip this test.
|
|
# It needs its own.
|
|
set eindex [lsearch -exact $args "-env"]
|
|
set encargs ""
|
|
set args [split_encargs $args encargs]
|
|
if { $encargs != ""} {
|
|
puts "Skipping test080 for security"
|
|
return
|
|
}
|
|
if { $eindex != -1 } {
|
|
incr eindex
|
|
set e [lindex $args $eindex]
|
|
puts "Skipping test080 for env $e"
|
|
return
|
|
}
|
|
|
|
foreach path $paths {
|
|
|
|
set dbfile test0$tnum.db
|
|
set testfile $path/$dbfile
|
|
|
|
# Loop through test using the following remove 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" {
|
|
|
|
# Make sure we're starting with a clean slate.
|
|
env_cleanup $testdir
|
|
if { $op == "noenv" } {
|
|
set dbfile $testfile
|
|
set e NULL
|
|
set envargs ""
|
|
} else {
|
|
if { $op == "env" } {
|
|
set largs ""
|
|
} else {
|
|
set largs " -txn"
|
|
}
|
|
set e [eval {berkdb_env -create -home $path} $largs]
|
|
set envargs "-env $e"
|
|
error_check_good env_open [is_valid_env $e] TRUE
|
|
}
|
|
|
|
puts "\tTest0$tnum: dbremove with $op in $path"
|
|
puts "\tTest0$tnum.a.1: Create file"
|
|
set db [eval {berkdb_open -create -mode 0644} $omethod \
|
|
$envargs $args {$dbfile}]
|
|
error_check_good db_open [is_valid_db $db] TRUE
|
|
|
|
# The nature of the key and data are unimportant;
|
|
# use numeric key to record-based methods don't need
|
|
# special treatment.
|
|
set key 1
|
|
set data [pad_data $method data]
|
|
|
|
error_check_good dbput [$db put $key $data] 0
|
|
error_check_good dbclose [$db close] 0
|
|
error_check_good file_exists_before \
|
|
[file exists $testfile] 1
|
|
|
|
# Use berkdb dbremove for non-transactional tests
|
|
# and $env dbremove for transactional tests
|
|
puts "\tTest0$tnum.a.2: Remove file"
|
|
if { $op == "noenv" || $op == "env" } {
|
|
error_check_good remove_$op \
|
|
[eval {berkdb dbremove} $envargs $dbfile] 0
|
|
} elseif { $op == "auto" } {
|
|
error_check_good remove_$op \
|
|
[eval {$e dbremove} -auto_commit $dbfile] 0
|
|
} else {
|
|
# $op is "abort" or "commit"
|
|
set txn [$e txn]
|
|
error_check_good remove_$op \
|
|
[eval {$e dbremove} -txn $txn $dbfile] 0
|
|
error_check_good txn_$op [$txn $op] 0
|
|
}
|
|
|
|
puts "\tTest0$tnum.a.3: Check that file is gone"
|
|
# File should now be gone, except in the case of an abort.
|
|
if { $op != "abort" } {
|
|
error_check_good exists_after \
|
|
[file exists $testfile] 0
|
|
} else {
|
|
error_check_good exists_after \
|
|
[file exists $testfile] 1
|
|
}
|
|
|
|
if { $e != "NULL" } {
|
|
error_check_good env_close [$e close] 0
|
|
}
|
|
|
|
set dbfile test0$tnum-old.db
|
|
set testfile $path/$dbfile
|
|
}
|
|
}
|
|
}
|