1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 1996-2002
# Sleepycat Software. All rights reserved.
#
# $Id: log004.tcl,v 1.1.1.1 2003/11/20 22:13:57 toshok 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
}
|
