blob: 082e8c28db28f44697a864661ab5e133c5209908 (
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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c)-2009 Oracle. All rights reserved.
#
# $Id$
#
# TEST env018
# TEST Test getters when joining an env. When a second handle is
# TEST opened on an existing env, get_open_flags needs to return
# TEST the correct flags to the second handle so it knows what sort
# TEST of environment it's just joined.
# TEST
# TEST For several different flags to env_open, open an env. Open
# TEST a second handle on the same env, get_open_flags and verify
# TEST the flag is returned.
proc env018 { } {
source ./include.tcl
set tnum "018"
puts "Env$tnum: Test of join_env and getters."
# Skip for HP-UX where a second handle on an env is not allowed.
if { $is_hp_test == 1 } {
puts "Skipping env$tnum for HP-UX."
return
}
# Set up flags to use in opening envs.
set flags { -cdb -lock -log -txn }
foreach flag $flags {
env_cleanup $testdir
puts "\t\tEnv$tnum.a: Open env with $flag."
set e1 [eval {berkdb_env} -create -home $testdir $flag]
error_check_good e1_open [is_valid_env $e1] TRUE
puts "\t\tEnv$tnum.b: Join the env."
set e2 [eval {berkdb_env} -home $testdir]
error_check_good e2_open [is_valid_env $e2] TRUE
# Get open flags for both envs.
set e1_flags_returned [$e1 get_open_flags]
set e2_flags_returned [$e2 get_open_flags]
# Test that the flag given to the original env is
# returned by a call to the second env.
puts "\t\tEnv$tnum.c: Check that flag is returned."
error_check_good flag_is_returned \
[is_substr $e2_flags_returned $flag] 1
# Clean up.
error_check_good e1_close [$e1 close] 0
error_check_good e2_close [$e2 close] 0
}
}
|
