diff options
Diffstat (limited to 'bdb/test/log004.tcl')
| -rw-r--r-- | bdb/test/log004.tcl | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/bdb/test/log004.tcl b/bdb/test/log004.tcl deleted file mode 100644 index 66968a8c1b4..00000000000 --- a/bdb/test/log004.tcl +++ /dev/null @@ -1,46 +0,0 @@ -# See the file LICENSE for redistribution information. -# -# Copyright (c) 1996-2002 -# Sleepycat Software. All rights reserved. -# -# $Id: log004.tcl,v 11.28 2002/04/29 20:07:54 sue Exp $ -# - -# TEST log004 -# TEST Make sure that if we do PREVs on a log, but the beginning of the -# TEST log has been truncated, we do the right thing. -proc log004 { } { - source ./include.tcl - - puts "Log004: Prev on log when beginning of log has been truncated." - # Use archive test to populate log - env_cleanup $testdir - puts "\tLog004.a: Call archive to populate log." - archive - - # Delete all log files under 100 - puts "\tLog004.b: Delete all log files under 100." - set ret [catch { glob $testdir/log.00000000* } result] - if { $ret == 0 } { - eval fileremove -f $result - } - - # Now open the log and get the first record and try a prev - puts "\tLog004.c: Open truncated log, attempt to access missing portion." - set env [berkdb_env -create -log -home $testdir] - error_check_good envopen [is_valid_env $env] TRUE - - set logc [$env log_cursor] - error_check_good log_cursor [is_valid_logc $logc $env] TRUE - - set ret [$logc get -first] - error_check_bad log_get [llength $ret] 0 - - # This should give DB_NOTFOUND which is a ret of length 0 - catch {$logc get -prev} ret - error_check_good log_get_prev [string length $ret] 0 - - puts "\tLog004.d: Close log and environment." - error_check_good log_cursor_close [$logc close] 0 - error_check_good log_close [$env close] 0 -} |