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) 1999-2002
# Sleepycat Software. All rights reserved.
#
# $Id: env009.tcl,v 11.5 2002/08/12 20:40:36 sandstro Exp $
#
# TEST env009
# TEST Test calls to all the various stat functions. We have several
# TEST sprinkled throughout the test suite, but this will ensure that
# TEST we run all of them at least once.
proc env009 { } {
source ./include.tcl
puts "Env009: Various stat function test."
env_cleanup $testdir
puts "\tEnv009.a: Setting up env and a database."
set e [berkdb_env -create -home $testdir -txn]
error_check_good dbenv [is_valid_env $e] TRUE
set dbbt [berkdb_open -create -btree $testdir/env009bt.db]
error_check_good dbopen [is_valid_db $dbbt] TRUE
set dbh [berkdb_open -create -hash $testdir/env009h.db]
error_check_good dbopen [is_valid_db $dbh] TRUE
set dbq [berkdb_open -create -btree $testdir/env009q.db]
error_check_good dbopen [is_valid_db $dbq] TRUE
set rlist {
{ "lock_stat" "Maximum locks" "Env009.b"}
{ "log_stat" "Magic" "Env009.c"}
{ "mpool_stat" "Number of caches" "Env009.d"}
{ "txn_stat" "Max Txns" "Env009.e"}
}
foreach pair $rlist {
set cmd [lindex $pair 0]
set str [lindex $pair 1]
set msg [lindex $pair 2]
puts "\t$msg: $cmd"
set ret [$e $cmd]
error_check_good $cmd [is_substr $ret $str] 1
}
puts "\tEnv009.f: btree stats"
set ret [$dbbt stat]
error_check_good $cmd [is_substr $ret "Magic"] 1
puts "\tEnv009.g: hash stats"
set ret [$dbh stat]
error_check_good $cmd [is_substr $ret "Magic"] 1
puts "\tEnv009.f: queue stats"
set ret [$dbq stat]
error_check_good $cmd [is_substr $ret "Magic"] 1
error_check_good dbclose [$dbbt close] 0
error_check_good dbclose [$dbh close] 0
error_check_good dbclose [$dbq close] 0
error_check_good envclose [$e close] 0
}
|
