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
147
148
149
150
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2008, 2013 Oracle and/or its affiliates. All rights reserved.
#
# $Id$
#
# TEST test124
# TEST
# TEST Test db->verify with noorderchk and orderchkonly flags.
# TEST
# TEST Create a db with a non-standard sort order. Check that
# TEST it fails a regular verify and succeeds with -noorderchk.
# TEST Do a similar test with a db containing subdbs, one with
# TEST the standard order and another with non-standard.
proc test124 { method { nentries 1000 } args } {
source ./include.tcl
global encrypt
set tnum "124"
if { [is_btree $method] == 0 } {
puts "Skipping test$tnum for method $method"
return
}
set args [convert_args $method $args]
set encargs ""
set args [split_encargs $args encargs]
set omethod [convert_method $method]
puts "Test$tnum ($method $args):\
db->verify with -noorderchk and -orderchkonly."
# If we are given an env, use it. Otherwise, open one.
# We need it for the subdb portion of the test.
set txnenv 0
set eindex [lsearch -exact $args "-env"]
if { $eindex == -1 } {
env_cleanup $testdir
set env [eval\
{berkdb_env_noerr} $encargs -create -home $testdir]
error_check_good env_open [is_valid_env $env] TRUE
} else {
incr eindex
set env [lindex $args $eindex]
set envflags [$env get_open_flags]
set txnenv [is_txnenv $env]
if { $txnenv == 1 } {
append args " -auto_commit "
}
set testdir [get_home $env]
}
puts "\tTest$tnum.a:\
Create and populate database with non-standard sort."
set testfile "test124.db"
# We already know the test is btree only, so btcompare is okay.
set sortflags " -btcompare test093_cmp1 "
set db [eval {berkdb_open_noerr -env $env -create \
-mode 0644} $sortflags $args {$omethod $testfile}]
error_check_good dbopen [is_valid_db $db] TRUE
# Start a txn, populate, and close.
set txn ""
if { $txnenv == 1 } {
set txn [$env txn]
}
populate $db $method $txn $nentries 0 0
error_check_good db_close [$db close] 0
if { $txnenv == 1 } {
error_check_good txn_commit [$txn commit] 0
}
puts "\tTest$tnum.b: Verify with -noorderchk succeeds."
set ret [eval {berkdb dbverify} -env $env -noorderchk $testfile]
error_check_good verify_noorderchk $ret 0
puts "\tTest$tnum.c: Check that a regular verify fails."
catch { set ret [eval {berkdb dbverify} -env $env $testfile] } caught
error_check_good verify_fails [is_substr $caught DB_VERIFY_BAD] 1
# Skip the subdb portion of the test for partitioned databases --
# you cannot have multiple databases in a file *and* partitioning.
if { [is_partitioned $args] == 0 } {
puts "\tTest$tnum.d:\
Create and populate 2 subdbs, one with non-standard sort."
set testfile2 "test124.db2"
set sub1 "SUB1"
set sub2 "SUB2"
set sdb1 [eval {berkdb_open_noerr -env $env -create \
-mode 0644} $args {$omethod $testfile2 $sub1}]
set sdb2 [eval {berkdb_open_noerr -env $env -create \
-mode 0644} $sortflags $args {$omethod $testfile2 $sub2}]
error_check_good sdb1open [is_valid_db $sdb1] TRUE
error_check_good sdb2open [is_valid_db $sdb2] TRUE
set nentries [expr $nentries * 2]
if { $txnenv == 1 } {
set txn [$env txn]
}
populate $sdb1 $method $txn $nentries 0 0
populate $sdb2 $method $txn $nentries 0 0
if { $txnenv == 1 } {
error_check_good txn_commit [$txn commit] 0
}
error_check_good sdb1_close [$sdb1 close] 0
error_check_good sdb2_close [$sdb2 close] 0
# Verify the whole file with -noorderchk.
puts "\tTest$tnum.e: Verify with -noorderchk succeeds."
set ret \
[eval {berkdb dbverify} -env $env -noorderchk $testfile2]
# Verify with the sorted subdb with -orderchkonly.
puts "\tTest$tnum.f:\
Verify with -orderchkonly succeeds for sorted subdb."
set ret [eval {berkdb dbverify} \
-env $env -orderchkonly $testfile2 $sub1]
# The attempt to verify the non-standard-sort subdb
# with -orderchkonly is expected to fail.
puts "\tTest$tnum.g: Verify with\
-orderchkonly fails for non-standard-sort subdb."
catch { set ret [eval {berkdb dbverify} \
-env $env -orderchkonly $testfile2 $sub2] } caught
error_check_good \
verify_fails [is_substr $caught DB_VERIFY_BAD] 1
}
# Clean up.
#
# Delete test files -- we cannot have non-standard-sort
# files hanging around because they will cause the
# automatic verify in a complete run to fail.
set testdir [get_home $env]
if { [is_partitioned $args] == 0 } {
fileremove -f $testdir/$testfile2
}
fileremove -f $testdir/$testfile
cleanup $testdir $env
# Close the env if this test created it.
if { $eindex == -1 } {
error_check_good env_close [$env close] 0
}
}
|
