blob: 95164b891d70b1348f205db2fad90cee267b04b9 (
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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
# Sel the file LICENSE for redistribution information.
#
# Copyright (c) 1999-2009 Oracle. All rights reserved.
#
# $Id$
#
# TEST rpc002
# TEST Test invalid RPC functions and make sure we error them correctly
# TEST Test server home directory error cases
proc rpc002 { } {
global __debug_on
global __debug_print
global errorInfo
global rpc_svc
source ./include.tcl
set testfile "rpc002.db"
set home [file tail $rpc_testdir]
#
# First start the server.
#
puts "Rpc002: Error and Unsupported interface test"
puts "Rpc002: Using $rpc_svc"
set dpid [rpc_server_start]
puts "\tRpc002.a: Started server, pid $dpid"
#
# Wrap the whole test in a catch statement so we can still
# kill the rpc server even if the test fails.
#
set status [catch {
tclsleep 2
remote_cleanup $rpc_server $rpc_testdir $testdir
puts "\tRpc002.b: Unsupported env options"
#
# Test each "pre-open" option for env's. These need to be
# tested on the 'berkdb_env' line.
#
set rlist {
{ "-data_dir $rpc_testdir" "Rpc002.b0"}
{ "-log_buffer 512" "Rpc002.b1"}
{ "-log_dir $rpc_testdir" "Rpc002.b2"}
{ "-log_max 100" "Rpc002.b3"}
{ "-lock_conflict {3 {0 0 0 0 0 1 0 1 1}}" "Rpc002.b4"}
{ "-lock_detect default" "Rpc002.b5"}
{ "-lock_max_locks 100" "Rpc002.b6"}
{ "-lock_max_objects 100" "Rpc002.b6"}
{ "-lock_max_lockers 100" "Rpc002.b6"}
{ "-mpool_mmap_size 100" "Rpc002.b7"}
{ "-shm_key 100" "Rpc002.b9"}
{ "-tmp_dir $rpc_testdir" "Rpc002.b10"}
{ "-txn_max 100" "Rpc002.b11"}
{ "-txn_timestamp 100" "Rpc002.b12"}
{ "-verbose {recovery on}" "Rpc002.b13"}
}
set e "berkdb_env_noerr -create -mode 0644 -home $home \
-server $rpc_server -client_timeout 10000 -txn"
foreach pair $rlist {
set cmd [lindex $pair 0]
set msg [lindex $pair 1]
puts "\t$msg: $cmd"
set stat [catch {eval $e $cmd} ret]
error_check_good $cmd $stat 1
error_check_good $cmd.err [is_substr $errorInfo \
"Interface not supported by Berkeley DB RPC"] 1
}
#
# Open an env with all the subsystems (-txn implies all
# the rest)
#
puts "\tRpc002.c: Unsupported env related interfaces"
set env [eval {berkdb_env_noerr -create -mode 0644 -home $home \
-server $rpc_server -client_timeout 10000 -txn}]
error_check_good envopen [is_valid_env $env] TRUE
set dbcmd "berkdb_open_noerr -create -btree -mode 0644 \
-env $env $testfile"
set db [eval $dbcmd]
error_check_good dbopen [is_valid_db $db] TRUE
#
# Test each "post-open" option relating to envs, txns, locks,
# logs and mpools.
#
set rlist {
{ " lock_detect default" "Rpc002.c0"}
{ " lock_get read 1 $env" "Rpc002.c1"}
{ " lock_id" "Rpc002.c2"}
{ " lock_stat" "Rpc002.c3"}
{ " lock_vec 1 {get $env read}" "Rpc002.c4"}
{ " log_archive" "Rpc002.c5"}
{ " log_file {0 0}" "Rpc002.c6"}
{ " log_flush" "Rpc002.c7"}
{ " log_cursor" "Rpc002.c8"}
{ " log_stat" "Rpc002.c9"}
{ " mpool -create -pagesize 512" "Rpc002.c10"}
{ " mpool_stat" "Rpc002.c11"}
{ " mpool_sync {0 0}" "Rpc002.c12"}
{ " mpool_trickle 50" "Rpc002.c13"}
{ " txn_checkpoint -min 1" "Rpc002.c14"}
{ " txn_stat" "Rpc002.c15"}
}
foreach pair $rlist {
set cmd [lindex $pair 0]
set msg [lindex $pair 1]
puts "\t$msg: $cmd"
set stat [catch {eval $env $cmd} ret]
error_check_good $cmd $stat 1
error_check_good $cmd.err [is_substr $errorInfo \
"Interface not supported by Berkeley DB RPC"] 1
}
error_check_good dbclose [$db close] 0
#
# The database operations that aren't supported are few
# because mostly they are the ones Tcl doesn't support
# either so we have no way to get at them. Test what we can.
#
puts "\tRpc002.d: Unsupported database related interfaces"
#
# NOTE: the type of database doesn't matter, just use btree.
#
puts "\tRpc002.d0: -cachesize"
set dbcmd "berkdb_open_noerr -create -btree -mode 0644 \
-env $env -cachesize {0 65536 0} $testfile"
set stat [catch {eval $dbcmd} ret]
error_check_good dbopen_cache $stat 1
error_check_good dbopen_cache_err [is_substr $errorInfo \
"Interface not supported by Berkeley DB RPC"] 1
puts "\tRpc002.d1: Try to upgrade a database"
set stat [catch {eval {berkdb upgrade -env} $env $testfile} ret]
error_check_good dbupgrade $stat 1
error_check_good dbupgrade_err [is_substr $errorInfo \
"Interface not supported by Berkeley DB RPC"] 1
error_check_good envclose [$env close] 0
puts "\tRpc002.e: Open env with unsupported home dir"
set stat [catch {eval {berkdb_env_noerr -create -mode 0644 \
-home XXX -server $rpc_server -client_timeout 10000 \
-txn}} ret]
error_check_good env2open $stat 1
error_check_good envfail [is_substr $ret "Home unrecognized"] 1
puts "\tRpc002.f: Open env with a NULL home dir"
set stat [catch {eval {berkdb_env_noerr -create -mode 0644 \
-server $rpc_server -client_timeout 10000 -txn}} ret]
error_check_good env2open $stat 1
error_check_good envfail [is_substr $ret "Home unrecognized"] 1
} res]
if { $status != 0 } {
puts $res
}
tclkill $dpid
}
|
