blob: 0f9488a92a1edd7b1d53a650e7eed52bfcd2a42f (
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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 1999-2002
# Sleepycat Software. All rights reserved.
#
# $Id: sdb007.tcl,v 11.20 2002/07/11 18:53:46 sandstro Exp $
#
# TEST subdb007
# TEST Tests page size difference errors between subdbs.
# TEST Test 3 different scenarios for page sizes.
# TEST 1. Create/open with a default page size, 2nd subdb create with
# TEST specified different one, should error.
# TEST 2. Create/open with specific page size, 2nd subdb create with
# TEST different one, should error.
# TEST 3. Create/open with specified page size, 2nd subdb create with
# TEST same specified size, should succeed.
# TEST (4th combo of using all defaults is a basic test, done elsewhere)
proc subdb007 { method args } {
source ./include.tcl
set db2args [convert_args -btree $args]
set args [convert_args $method $args]
set omethod [convert_method $method]
if { [is_queue $method] == 1 } {
puts "Subdb007: skipping for method $method"
return
}
set pgindex [lsearch -exact $args "-pagesize"]
if { $pgindex != -1 } {
puts "Subdb007: skipping for specific page sizes"
return
}
puts "Subdb007: $method ($args) subdb tests with different page sizes"
set txnenv 0
set envargs ""
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/subdb007.db
set env NULL
} else {
set testfile subdb007.db
incr eindex
set env [lindex $args $eindex]
set envargs " -env $env "
set txnenv [is_txnenv $env]
if { $txnenv == 1 } {
append args " -auto_commit "
append envargs " -auto_commit "
append db2args " -auto_commit "
}
set testdir [get_home $env]
}
set sub1 "sub1"
set sub2 "sub2"
cleanup $testdir $env
set txn ""
puts "\tSubdb007.a.0: create subdb with default page size"
set db [eval {berkdb_open -create -mode 0644} \
$args {$omethod $testfile $sub1}]
error_check_good subdb [is_valid_db $db] TRUE
#
# Figure out what the default page size is so that we can
# guarantee we create it with a different value.
set statret [$db stat]
set pgsz 0
foreach pair $statret {
set fld [lindex $pair 0]
if { [string compare $fld {Page size}] == 0 } {
set pgsz [lindex $pair 1]
}
}
error_check_good dbclose [$db close] 0
if { $pgsz == 512 } {
set pgsz2 2048
} else {
set pgsz2 512
}
puts "\tSubdb007.a.1: create 2nd subdb with specified page size"
set stat [catch {eval {berkdb_open_noerr -create -btree} \
$db2args {-pagesize $pgsz2 $testfile $sub2}} ret]
error_check_good subdb:pgsz $stat 1
error_check_good subdb:fail [is_substr $ret \
"Different pagesize specified"] 1
set ret [eval {berkdb dbremove} $envargs {$testfile}]
puts "\tSubdb007.b.0: create subdb with specified page size"
set db [eval {berkdb_open -create -mode 0644} \
$args {-pagesize $pgsz2 $omethod $testfile $sub1}]
error_check_good subdb [is_valid_db $db] TRUE
set statret [$db stat]
set newpgsz 0
foreach pair $statret {
set fld [lindex $pair 0]
if { [string compare $fld {Page size}] == 0 } {
set newpgsz [lindex $pair 1]
}
}
error_check_good pgsize $pgsz2 $newpgsz
error_check_good dbclose [$db close] 0
puts "\tSubdb007.b.1: create 2nd subdb with different page size"
set stat [catch {eval {berkdb_open_noerr -create -btree} \
$db2args {-pagesize $pgsz $testfile $sub2}} ret]
error_check_good subdb:pgsz $stat 1
error_check_good subdb:fail [is_substr $ret \
"Different pagesize specified"] 1
set ret [eval {berkdb dbremove} $envargs {$testfile}]
puts "\tSubdb007.c.0: create subdb with specified page size"
set db [eval {berkdb_open -create -mode 0644} \
$args {-pagesize $pgsz2 $omethod $testfile $sub1}]
error_check_good subdb [is_valid_db $db] TRUE
error_check_good dbclose [$db close] 0
puts "\tSubdb007.c.1: create 2nd subdb with same specified page size"
set db [eval {berkdb_open -create -mode 0644} \
$args {-pagesize $pgsz2 $omethod $testfile $sub2}]
error_check_good subdb [is_valid_db $db] TRUE
error_check_good dbclose [$db close] 0
}
|
