proc test084 { method {nentries 10000} {tnum "084"} {pagesize 65536} args} {
source ./include.tcl
set txnenv 0
set eindex [lsearch -exact $args "-env"]
if { $eindex == -1 } {
set testfile $testdir/test$tnum-empty.db
set env NULL
} else {
set testfile test$tnum-empty.db
incr eindex
set env [lindex $args $eindex]
set txnenv [is_txnenv $env]
if { $txnenv == 1 } {
append args " -auto_commit "
}
set testdir [get_home $env]
}
set pgindex [lsearch -exact $args "-pagesize"]
if { $pgindex != -1 } {
puts "Test084: skipping for specific pagesizes"
return
}
cleanup $testdir $env
set args "-pagesize $pagesize $args"
eval {test001 $method $nentries 0 0 $tnum} $args
set omethod [convert_method $method]
set args [convert_args $method $args]
set db [eval {berkdb_open -create -mode 0644} $args $omethod $testfile]
error_check_good empty_db [is_valid_db $db] TRUE
error_check_good empty_db_close [$db close] 0
}