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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2011, 2013 Oracle and/or its affiliates. All rights reserved.
#
# $Id$
#
# TEST test139
# TEST
# TEST Verify an open database.
# TEST Create and populate a database, leave open, and run
# TEST db->verify.
# TEST Delete half the data, verify, compact, verify again.
proc test139 { method {pagesize 512} {nentries 1000} {tnum "139"} args } {
source ./include.tcl
set eindex [lsearch -exact $args "-env"]
#
# If we are using an env, then skip this test. It needs its own.
if { $eindex != -1 } {
incr eindex
set env [lindex $args $eindex]
puts "Test$tnum skipping for env $env"
return
}
set args [convert_args $method $args]
set encargs ""
set args [split_encargs $args encargs]
set omethod [convert_method $method]
env_cleanup $testdir
set testfile test$tnum.db
set env [eval {berkdb_env -create -mode 0644} $encargs -home $testdir]
error_check_good dbenv [is_valid_env $env] TRUE
set envargs "-env $env"
puts "Test$tnum: $method ($args) Verify an open database."
set pgindex [lsearch -exact $args "-pagesize"]
if { $pgindex == -1 } {
append args " -pagesize $pagesize "
}
set did [open $dict]
set db [eval {berkdb_open -env $env -create \
-mode 0644} $args $omethod $testfile]
error_check_good dbopen [is_valid_db $db] TRUE
puts "\tTest$tnum.a: Populate the db."
set count 0
while { [gets $did str] != -1 && $count < $nentries } {
if { [is_record_based $method] == 1 } {
global kvals
set key [expr $count + 1]
if { 0xffffffff > 0 && $key > 0xffffffff } {
set key [expr $key - 0x100000000]
}
if { $key == 0 || $key - 0xffffffff == 1 } {
incr key
incr count
}
set kvals($key) [pad_data $method $str]
} else {
set key $str
set str [reverse $str]
}
set ret [eval {$db put $key [chop_data $method $str]}]
error_check_good put $ret 0
# Sync the first item so we have something on disk.
if { $count == 0 } {
error_check_good db_sync [$db sync] 0
}
incr count
}
close $did
# Now verify.
puts "\tTest$tnum.b: Verify the db while still open."
set ret [eval {berkdb dbverify} $envargs $testfile]
# Sync, verify again.
error_check_good db_sync [$db sync] 0
set ret [eval {berkdb dbverify} $envargs $testfile]
# Cursor delete,leaving every third entry. Since rrecno
# renumbers, delete starting at nentries and work backwards.
puts "\tTest$tnum.c: Delete many entries from database."
set did [open $dict]
for { set i $nentries } { $i > 0 } { incr i -1 } {
if { [is_record_based $method] == 1 } {
set key $i
} else {
set key [gets $did]
}
# Leave every n'th item.
set n 3
if { [expr $i % $n] != 0 } {
set ret [eval {$db del $key}]
error_check_good del $ret 0
}
}
close $did
error_check_good db_sync [$db sync] 0
puts "\tTest$tnum.d: Verify the db after deletes."
set ret [eval {berkdb dbverify} $envargs $testfile]
# Compact, if it's possible for the access method.
if { ![is_queue $method] == 1 && ![is_heap $method] == 1 } {
puts "\tTest$tnum.d: Compact database."
if {[catch {eval {$db compact -freespace}} ret] } {
error "FAIL: db compact: $ret"
}
}
puts "\tTest$tnum.d: Verify the db after deletes."
set ret [eval {berkdb dbverify} $envargs $testfile]
error_check_good db_sync [$db sync] 0
puts "\tTest$tnum.e: Verify the db after sync."
set ret [eval {berkdb dbverify} $envargs $testfile]
# Clean up.
puts "\tTest$tnum.: Clean up."
error_check_good db_close [$db close] 0
if { $env != "NULL" } {
error_check_good env_close [$env close] 0
}
}
|
