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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 1999, 2000
# Sleepycat Software. All rights reserved.
#
# $Id: sdbtest001.tcl,v 11.13 2000/08/25 14:21:53 sue Exp $
#
# Sub DB All-Method Test 1
# Make several subdb's of different access methods all in one DB.
# Rotate methods and repeat [#762].
# Use the first 10,000 entries from the dictionary.
# Insert each with self as key and data; retrieve each.
# After all are entered, retrieve all; compare output to original.
# Close file, reopen, do retrieve and re-verify.
proc subdbtest001 { {nentries 10000} } {
source ./include.tcl
puts "Subdbtest001: many different subdb access methods in one"
# Create the database and open the dictionary
set testfile $testdir/subdbtest001.db
set t1 $testdir/t1
set t2 $testdir/t2
set t3 $testdir/t3
set t4 $testdir/t4
set txn ""
set count 0
# Set up various methods to rotate through
lappend method_list [list "-rrecno" "-rbtree" "-hash" "-recno" "-btree"]
lappend method_list [list "-recno" "-hash" "-btree" "-rbtree" "-rrecno"]
lappend method_list [list "-btree" "-recno" "-rbtree" "-rrecno" "-hash"]
lappend method_list [list "-hash" "-recno" "-rbtree" "-rrecno" "-btree"]
lappend method_list [list "-rbtree" "-hash" "-btree" "-rrecno" "-recno"]
lappend method_list [list "-rrecno" "-recno"]
lappend method_list [list "-recno" "-rrecno"]
lappend method_list [list "-hash" "-dhash"]
lappend method_list [list "-dhash" "-hash"]
lappend method_list [list "-rbtree" "-btree" "-dbtree" "-ddbtree"]
lappend method_list [list "-btree" "-rbtree" "-ddbtree" "-dbtree"]
lappend method_list [list "-dbtree" "-ddbtree" "-btree" "-rbtree"]
lappend method_list [list "-ddbtree" "-dbtree" "-rbtree" "-btree"]
foreach methods $method_list {
cleanup $testdir NULL
puts "\tSubdbtest001.a: create subdbs of different access methods:"
puts "\tSubdbtest001.a: $methods"
set psize {8192 4096}
set nsubdbs [llength $methods]
set duplist ""
for { set i 0 } { $i < $nsubdbs } { incr i } {
lappend duplist -1
}
set newent [expr $nentries / $nsubdbs]
build_all_subdb $testfile $methods $psize $duplist $newent
# Now we will get each key from the DB and compare the results
# to the original.
for { set subdb 0 } { $subdb < $nsubdbs } { incr subdb } {
set method [lindex $methods $subdb]
set method [convert_method $method]
if { [is_record_based $method] == 1 } {
set checkfunc subdbtest001_recno.check
} else {
set checkfunc subdbtest001.check
}
puts "\tSubdbtest001.b: dump file sub$subdb.db"
set db [berkdb_open -unknown $testfile sub$subdb.db]
dump_file $db $txn $t1 $checkfunc
error_check_good db_close [$db close] 0
# Now compare the keys to see if they match the
# dictionary (or ints)
if { [is_record_based $method] == 1 } {
set oid [open $t2 w]
for {set i 1} {$i <= $newent} {incr i} {
puts $oid [expr $subdb * $newent + $i]
}
close $oid
file rename -force $t1 $t3
} else {
# filehead uses 1-based line numbers
set beg [expr $subdb * $newent]
incr beg
set end [expr $beg + $newent - 1]
filehead $end $dict $t3 $beg
filesort $t3 $t2
filesort $t1 $t3
}
error_check_good Subdbtest001:diff($t3,$t2) \
[filecmp $t3 $t2] 0
puts "\tSubdbtest001.c: sub$subdb.db: close, open, and dump file"
# Now, reopen the file and run the last test again.
open_and_dump_subfile $testfile NULL $txn $t1 $checkfunc \
dump_file_direction "-first" "-next" sub$subdb.db
if { [string compare $method "-recno"] != 0 } {
filesort $t1 $t3
}
error_check_good Subdbtest001:diff($t2,$t3) \
[filecmp $t2 $t3] 0
# Now, reopen the file and run the last test again in the
# reverse direction.
puts "\tSubdbtest001.d: sub$subdb.db: close, open, and dump file in reverse direction"
open_and_dump_subfile $testfile NULL $txn $t1 $checkfunc \
dump_file_direction "-last" "-prev" sub$subdb.db
if { [string compare $method "-recno"] != 0 } {
filesort $t1 $t3
}
error_check_good Subdbtest001:diff($t3,$t2) \
[filecmp $t3 $t2] 0
}
}
}
# Check function for Subdbtest001; keys and data are identical
proc subdbtest001.check { key data } {
error_check_good "key/data mismatch" $data $key
}
proc subdbtest001_recno.check { key data } {
global dict
global kvals
error_check_good key"$key"_exists [info exists kvals($key)] 1
error_check_good "key/data mismatch, key $key" $data $kvals($key)
}
|
