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
145
146
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 1999, 2000
# Sleepycat Software. All rights reserved.
#
# $Id: test065.tcl,v 11.8 2000/08/25 14:21:58 sue Exp $
#
# DB Test 65: Test of DB->stat(DB_RECORDCOUNT)
proc test065 { method args } {
source ./include.tcl
global errorCode
global alphabet
set args [convert_args $method $args]
set omethod [convert_method $method]
set tnum 65
set eindex [lsearch -exact $args "-env"]
#
# If we are using an env, then testfile should just be the db name.
# Otherwise it is the test directory and the name.
if { $eindex == -1 } {
set testfile $testdir/test0$tnum.db
set env NULL
} else {
set testfile test0$tnum.db
incr eindex
set env [lindex $args $eindex]
}
cleanup $testdir $env
puts "Test0$tnum: $method ($args) DB->stat(DB_RECORDCOUNT) test."
puts "\tTest0$tnum.a: Create database and check it while empty."
set db [eval {berkdb_open_noerr -create -truncate -mode 0644} \
$omethod $args $testfile]
error_check_good db_open [is_valid_db $db] TRUE
set ret [catch {eval $db stat -recordcount} res]
error_check_good db_close [$db close] 0
if { ([is_record_based $method] && ![is_queue $method]) \
|| [is_rbtree $method] } {
error_check_good recordcount_ok [lindex [lindex $res 0] 1] 0
} else {
error_check_good \
recordcount_notok [is_substr $errorCode "EINVAL"] 1
puts "\tTest0$tnum: Test complete for method $method."
return
}
# If we've got this far, we're on an access method for
# which DB_RECORDCOUNT makes sense. Thus, we no longer
# catch EINVALs, and no longer care about __db_errs.
set db [eval {berkdb_open -create -mode 0644} $omethod $args $testfile]
puts "\tTest0$tnum.b: put 10000 keys."
if { [is_record_based $method] } {
set gflags " -recno "
set keypfx ""
} else {
set gflags ""
set keypfx "key"
}
set data [pad_data $method $alphabet]
for { set ndx 1 } { $ndx <= 10000 } { incr ndx } {
set ret [eval {$db put} $keypfx$ndx $data]
error_check_good db_put $ret 0
}
set ret [$db stat -recordcount]
error_check_good \
recordcount_after_puts [lindex [lindex $ret 0] 1] 10000
puts "\tTest0$tnum.c: delete 9000 keys."
for { set ndx 1 } { $ndx <= 9000 } { incr ndx } {
if { [is_rrecno $method] == 1 } {
# if we're renumbering, when we hit key 5001 we'll
# have deleted 5000 and we'll croak! So delete key
# 1, repeatedly.
set ret [eval {$db del} [concat $keypfx 1]]
} else {
set ret [eval {$db del} $keypfx$ndx]
}
error_check_good db_del $ret 0
}
set ret [$db stat -recordcount]
if { [is_rrecno $method] == 1 || [is_rbtree $method] == 1 } {
# We allow renumbering--thus the stat should return 1000
error_check_good \
recordcount_after_dels [lindex [lindex $ret 0] 1] 1000
} else {
# No renumbering--no change in RECORDCOUNT!
error_check_good \
recordcount_after_dels [lindex [lindex $ret 0] 1] 10000
}
puts "\tTest0$tnum.d: put 8000 new keys at the beginning."
for { set ndx 1 } { $ndx <= 8000 } {incr ndx } {
set ret [eval {$db put} $keypfx$ndx $data]
error_check_good db_put_beginning $ret 0
}
set ret [$db stat -recordcount]
if { [is_rrecno $method] == 1 } {
# With renumbering we're back up to 8000
error_check_good \
recordcount_after_dels [lindex [lindex $ret 0] 1] 8000
} elseif { [is_rbtree $method] == 1 } {
# Total records in a btree is now 9000
error_check_good \
recordcount_after_dels [lindex [lindex $ret 0] 1] 9000
} else {
# No renumbering--still no change in RECORDCOUNT.
error_check_good \
recordcount_after_dels [lindex [lindex $ret 0] 1] 10000
}
puts "\tTest0$tnum.e: put 8000 new keys off the end."
for { set ndx 9001 } { $ndx <= 17000 } {incr ndx } {
set ret [eval {$db put} $keypfx$ndx $data]
error_check_good db_put_end $ret 0
}
set ret [$db stat -recordcount]
if { [is_rbtree $method] != 1 } {
# If this is a recno database, the record count should
# be up to 17000, the largest number we've seen, with
# or without renumbering.
error_check_good \
recordcount_after_dels [lindex [lindex $ret 0] 1] 17000
} else {
# In an rbtree, 1000 of those keys were overwrites,
# so there are 7000 new keys + 9000 old keys == 16000
error_check_good \
recordcount_after_dels [lindex [lindex $ret 0] 1] 16000
}
error_check_good db_close [$db close] 0
}
|
