mirror of
https://github.com/MariaDB/server.git
synced 2025-01-17 20:42:30 +01:00
41 lines
1.1 KiB
Tcl
41 lines
1.1 KiB
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 2000
|
|
# Sleepycat Software. All rights reserved.
|
|
#
|
|
# $Id: test080.tcl,v 11.7 2000/10/19 23:15:22 ubell Exp $
|
|
#
|
|
# DB Test 80 {access method}
|
|
# Test of dbremove
|
|
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()"
|
|
|
|
|
|
set eindex [lsearch -exact $args "-env"]
|
|
if { $eindex != -1 } {
|
|
puts "\tTest0$tnum: Skipping in the presence of an environment"
|
|
return
|
|
}
|
|
cleanup $testdir NULL
|
|
|
|
set testfile $testdir/test0$tnum.db
|
|
set db [eval {berkdb_open -create -truncate -mode 0644} $omethod \
|
|
$args {$testfile}]
|
|
error_check_good db_open [is_valid_db $db] TRUE
|
|
for {set i 1} { $i < 1000 } {incr i} {
|
|
$db put $i $i
|
|
}
|
|
error_check_good db_close [$db close] 0
|
|
|
|
error_check_good file_exists_before [file exists $testfile] 1
|
|
|
|
error_check_good db_remove [berkdb dbremove $testfile] 0
|
|
error_check_good file_exists_after [file exists $testfile] 0
|
|
|
|
puts "\tTest0$tnum succeeded."
|
|
}
|