blob: 1a2247c5f8bfd57deae33bceffe6275680fb48dd (
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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2001-2002
# Sleepycat Software. All rights reserved.
#
# $Id: si001.tcl,v 1.7 2002/04/29 17:12:02 sandstro Exp $
#
# TEST sindex001
# TEST Basic secondary index put/delete test
proc sindex001 { methods {nentries 200} {tnum 1} args } {
source ./include.tcl
global dict nsecondaries
# Primary method/args.
set pmethod [lindex $methods 0]
set pargs [convert_args $pmethod $args]
set pomethod [convert_method $pmethod]
# Method/args for all the secondaries. If only one method
# was specified, assume the same method and a standard N
# secondaries.
set methods [lrange $methods 1 end]
if { [llength $methods] == 0 } {
for { set i 0 } { $i < $nsecondaries } { incr i } {
lappend methods $pmethod
}
}
set argses [convert_argses $methods $args]
set omethods [convert_methods $methods]
puts "Sindex00$tnum ($pmethod/$methods) $nentries equal key/data pairs"
env_cleanup $testdir
set pname "primary00$tnum.db"
set snamebase "secondary00$tnum"
# Open an environment
# XXX if one is not supplied!
set env [berkdb_env -create -home $testdir]
error_check_good env_open [is_valid_env $env] TRUE
# Open the primary.
set pdb [eval {berkdb_open -create -env} $env $pomethod $pargs $pname]
error_check_good primary_open [is_valid_db $pdb] TRUE
# Open and associate the secondaries
set sdbs {}
for { set i 0 } { $i < [llength $omethods] } { incr i } {
set sdb [eval {berkdb_open -create -env} $env \
[lindex $omethods $i] [lindex $argses $i] $snamebase.$i.db]
error_check_good second_open($i) [is_valid_db $sdb] TRUE
error_check_good db_associate($i) \
[$pdb associate [callback_n $i] $sdb] 0
lappend sdbs $sdb
}
puts "\tSindex00$tnum.a: Put loop"
set did [open $dict]
for { set n 0 } { [gets $did str] != -1 && $n < $nentries } { incr n } {
if { [is_record_based $pmethod] == 1 } {
set key [expr $n + 1]
set datum $str
} else {
set key $str
gets $did datum
}
set keys($n) $key
set data($n) [pad_data $pmethod $datum]
set ret [eval {$pdb put} {$key [chop_data $pmethod $datum]}]
error_check_good put($n) $ret 0
}
close $did
check_secondaries $pdb $sdbs $nentries keys data "Sindex00$tnum.a"
puts "\tSindex00$tnum.b: Put/overwrite loop"
for { set n 0 } { $n < $nentries } { incr n } {
set newd $data($n).$keys($n)
set ret [eval {$pdb put} {$keys($n) [chop_data $pmethod $newd]}]
error_check_good put_overwrite($n) $ret 0
set data($n) [pad_data $pmethod $newd]
}
check_secondaries $pdb $sdbs $nentries keys data "Sindex00$tnum.b"
# Delete the second half of the entries through the primary.
# We do the second half so we can just pass keys(0 ... n/2)
# to check_secondaries.
set half [expr $nentries / 2]
puts "\tSindex00$tnum.c: Primary delete loop: deleting $half entries"
for { set n $half } { $n < $nentries } { incr n } {
set ret [$pdb del $keys($n)]
error_check_good pdel($n) $ret 0
}
check_secondaries $pdb $sdbs $half keys data "Sindex00$tnum.c"
# Delete half of what's left, through the first secondary.
set quar [expr $half / 2]
puts "\tSindex00$tnum.d: Secondary delete loop: deleting $quar entries"
set sdb [lindex $sdbs 0]
set callback [callback_n 0]
for { set n $quar } { $n < $half } { incr n } {
set skey [$callback $keys($n) [pad_data $pmethod $data($n)]]
set ret [$sdb del $skey]
error_check_good sdel($n) $ret 0
}
check_secondaries $pdb $sdbs $quar keys data "Sindex00$tnum.d"
puts "\tSindex00$tnum.e: Closing/disassociating primary first"
error_check_good primary_close [$pdb close] 0
foreach sdb $sdbs {
error_check_good secondary_close [$sdb close] 0
}
error_check_good env_close [$env close] 0
}
|
