blob: bf36e26ae68ed6765df99f866e395e916a10ea83 (
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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 1999, 2015 Oracle and/or its affiliates. All rights reserved.
#
# $Id$
#
# TEST sdb020
# TEST Tests in-memory subdatabases.
# TEST Create an in-memory subdb with one page size. Close, and
# TEST open with a different page size: should succeed, but the underlying
# TEST page size is not changed.
proc sdb020 { method { nentries 10 } args } {
source ./include.tcl
global errorCode
set tnum "020"
set args [convert_args $method $args]
set omethod [convert_method $method]
if { [is_queueext $method] == 1 || [is_heap $method] == 1 } {
puts "Subdb$tnum: skipping for method $method"
return
}
set pgindex [lsearch -exact $args "-pagesize"]
if { $pgindex != -1 } {
puts "Subdb$tnum: skipping for specific page sizes."
return
}
# If we are using an env, then skip this test. It needs its own.
set eindex [lsearch -exact $args "-env"]
if { $eindex != -1 } {
set env NULL
incr eindex
set env [lindex $args $eindex]
puts "Subdb020 skipping for env $env"
return
}
# In-memory dbs never go to disk, so we can't do checksumming.
# If the test module sent in the -chksum arg, get rid of it.
set chkindex [lsearch -exact $args "-chksum"]
if { $chkindex != -1 } {
set args [lreplace $args $chkindex $chkindex]
}
puts "Subdb$tnum: $method ($args) \
in-memory named db tests with different pagesizes"
# Create the env.
env_cleanup $testdir
set env [berkdb_env_noerr -create -home $testdir -txn]
error_check_good dbenv [is_valid_env $env] TRUE
# Set filename to NULL; this causes the creation of an in-memory
# subdb.
set testfile ""
set name NAME
puts "\tSubdb$tnum.a: Create in-mem named db with default page size."
set db [eval {berkdb_open_noerr -create -mode 0644} \
$args -env $env {$omethod $testfile $name}]
error_check_good dbopen [is_valid_db $db] TRUE
# Figure out the default page size so we can try to open
# later with a different value.
set psize [stat_field $db stat "Page size"]
if { $psize == 512 } {
set psize2 2048
} else {
set psize2 512
}
error_check_good db_close [$db close] 0
# Try to open again with a different page size (should succeed).
puts "\tSubdb$tnum.b: Try to reopen with different page size."
set db [eval {berkdb_open_noerr} $args -env $env \
-pagesize $psize2 {$omethod $testfile $name}]
error_check_good dbopen [is_valid_db $db] TRUE
error_check_good check_pagesize \
[stat_field $db stat "Page size"] $psize
# Close DB
error_check_good db_close [$db close] 0
# Try to open again with original pagesize (should succeed).
puts "\tSubdb$tnum.c: Reopen with original page size."
set db [eval {berkdb_open_noerr} $args -env $env \
-pagesize $psize {$omethod $testfile $name}]
# Close DB
error_check_good db_close [$db close] 0
puts "\tSubdb$tnum.d: Create in-mem named db with specific page size."
set psize 8192
set db [eval {berkdb_open_noerr -create -mode 0644} \
$args -env $env -pagesize $psize {$omethod $testfile $name}]
error_check_good dbopen [is_valid_db $db] TRUE
error_check_good db_close [$db close] 0
# Try to open again with a different page size (should succeed).
set psize2 [expr $psize / 2]
puts "\tSubdb$tnum.e: Try to reopen with different page size."
set db [eval {berkdb_open_noerr} $args -env $env \
-pagesize $psize2 {$omethod $testfile $name}]
error_check_good dbopen [is_valid_db $db] TRUE
error_check_good check_pagesize \
[stat_field $db stat "Page size"] $psize
# Close DB
error_check_good db_close [$db close] 0
# Try to open again with original pagesize (should succeed).
puts "\tSubdb$tnum.f: Reopen with original page size."
set db [eval {berkdb_open} $args -env $env \
-pagesize $psize {$omethod $testfile $name}]
# Try to open a different database with a different page size
# (should succeed).
puts "\tSubdb$tnum.g: Open different db with different page size."
set newname NEWNAME
set db2 [eval {berkdb_open} -create $args -env $env \
-pagesize $psize2 {$omethod $testfile $newname}]
# Clean up.
error_check_good db_close [$db close] 0
error_check_good db2_close [$db2 close] 0
error_check_good env_close [$env close] 0
}
|
