blob: e8d10dbfc9bce829738b4f7a8ebf21e53bf02c99 (
plain)
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 1996-2004
# Sleepycat Software. All rights reserved.
#
# $Id: log003.tcl,v 11.34 2004/09/22 18:01:05 bostic Exp $
#
# TEST log003
# TEST Verify that log_flush is flushing records correctly.
proc log003 { } {
global rand_init
error_check_good set_random_seed [berkdb srand $rand_init] 0
# Even though log_flush doesn't do anything for in-memory
# logging, we want to make sure calling it doesn't break
# anything.
foreach inmem { 1 0 } {
log003_body $inmem
}
}
proc log003_body { inmem } {
source ./include.tcl
puts -nonewline "Log003: Verify log_flush behavior"
if { $inmem == 0 } {
puts " (on-disk logging)."
} else {
puts " (in-memory logging)."
}
set max [expr 1024 * 128]
env_cleanup $testdir
set short_rec "abcdefghijklmnopqrstuvwxyz"
set long_rec [repeat $short_rec 200]
set very_long_rec [repeat $long_rec 4]
foreach rec "$short_rec $long_rec $very_long_rec" {
puts "\tLog003.a: Verify flush on [string length $rec] byte rec"
set logargs ""
if { $inmem == 1 } {
set logargs "-log_inmemory -log_buffer [expr $max * 2]"
}
set env [eval {berkdb_env} -log -home $testdir -create \
-mode 0644 $logargs -log_max $max]
error_check_good envopen [is_valid_env $env] TRUE
set lsn [$env log_put $rec]
error_check_bad log_put [lindex $lsn 0] "ERROR:"
set ret [$env log_flush $lsn]
error_check_good log_flush $ret 0
# Now, we want to crash the region and recheck. Closing the
# log does not flush any records, so we'll use a close to
# do the "crash"
set ret [$env close]
error_check_good log_env:close $ret 0
# Now, remove the log region
#set ret [berkdb envremove -home $testdir]
#error_check_good env:remove $ret 0
# Re-open the log and try to read the record.
set env [berkdb_env -create -home $testdir \
-log -mode 0644 -log_max $max]
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 gotrec [$logc get -first]
error_check_good lp_get [lindex $gotrec 1] $rec
# Close and unlink the file
error_check_good log_cursor:close:$logc [$logc close] 0
error_check_good env:close:$env [$env close] 0
error_check_good envremove [berkdb envremove -home $testdir] 0
log_cleanup $testdir
}
if { $inmem == 1 } {
puts "Log003: Skipping remainder of test for in-memory logging."
return
}
foreach rec "$short_rec $long_rec $very_long_rec" {
puts "\tLog003.b: \
Verify flush on non-last record [string length $rec]"
set env [berkdb_env -log -home $testdir \
-create -mode 0644 -log_max $max]
error_check_good envopen [is_valid_env $env] TRUE
# Put 10 random records
for { set i 0 } { $i < 10 } { incr i} {
set r [random_data 450 0 0]
set lsn [$env log_put $r]
error_check_bad log_put [lindex $lsn 0] "ERROR:"
}
# Put the record we are interested in
set save_lsn [$env log_put $rec]
error_check_bad log_put [lindex $save_lsn 0] "ERROR:"
# Put 10 more random records
for { set i 0 } { $i < 10 } { incr i} {
set r [random_data 450 0 0]
set lsn [$env log_put $r]
error_check_bad log_put [lindex $lsn 0] "ERROR:"
}
# Now check the flush
set ret [$env log_flush $save_lsn]
error_check_good log_flush $ret 0
# Now, we want to crash the region and recheck. Closing the
# log does not flush any records, so we'll use a close to
# do the "crash".
#
# Now, close and remove the log region
error_check_good env:close:$env [$env close] 0
set ret [berkdb envremove -home $testdir]
error_check_good env:remove $ret 0
# Re-open the log and try to read the record.
set env [berkdb_env -log -home $testdir \
-create -mode 0644 -log_max $max]
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 gotrec [$logc get -set $save_lsn]
error_check_good lp_get [lindex $gotrec 1] $rec
# Close and unlink the file
error_check_good log_cursor:close:$logc [$logc close] 0
error_check_good env:close:$env [$env close] 0
error_check_good envremove [berkdb envremove -home $testdir] 0
log_cleanup $testdir
}
}
|
