← Back to branch summary

~vlad-lesin/percona-server/mysql-5.0.33-original

« back to all changes in this revision

Viewing changes to bdb/test/env005.tcl

  • Committer: Vlad Lesin
  • Date: 2012-07-31 09:21:34 UTC
  • Revision ID: vladislav.lesin@percona.com-20120731092134-zfodx022b7992wsi
Virgin 5.0.33

Show diffs side-by-side

added added

removed removed

Lines of Context:
bdb/test/env005.tcl
 
1
# See the file LICENSE for redistribution information.
 
2
#
 
3
# Copyright (c) 1999-2002
 
4
#       Sleepycat Software.  All rights reserved.
 
5
#
 
6
# $Id: env005.tcl,v 11.15 2002/02/22 14:28:37 sandstro Exp $
 
7
#
 
8
# TEST  env005
 
9
# TEST  Test that using subsystems without initializing them correctly
 
10
# TEST  returns an error.  Cannot test mpool, because it is assumed in
 
11
# TEST  the Tcl code.
 
12
proc env005 { } {
 
13
        source ./include.tcl
 
14
 
 
15
        puts "Env005: Uninitialized env subsystems test."
 
16
 
 
17
        env_cleanup $testdir
 
18
        puts "\tEnv005.a: Creating env with no subsystems."
 
19
 
 
20
        set e [berkdb_env_noerr -create -home $testdir]
 
21
        error_check_good dbenv [is_valid_env $e] TRUE
 
22
        set db [berkdb_open -create -btree $testdir/env005.db]
 
23
        error_check_good dbopen [is_valid_db $db] TRUE
 
24
 
 
25
        set rlist {
 
26
        { "lock_detect"                 "Env005.b0"}
 
27
        { "lock_get read 1 1"           "Env005.b1"}
 
28
        { "lock_id"                     "Env005.b2"}
 
29
        { "lock_stat"                   "Env005.b3"}
 
30
        { "lock_timeout 100"            "Env005.b4"}
 
31
        { "log_archive"                 "Env005.c0"}
 
32
        { "log_cursor"                  "Env005.c1"}
 
33
        { "log_file {1 1}"              "Env005.c2"}
 
34
        { "log_flush"                   "Env005.c3"}
 
35
        { "log_put record"              "Env005.c4"}
 
36
        { "log_stat"                    "Env005.c5"}
 
37
        { "txn"                         "Env005.d0"}
 
38
        { "txn_checkpoint"              "Env005.d1"}
 
39
        { "txn_stat"                    "Env005.d2"}
 
40
        { "txn_timeout 100"             "Env005.d3"}
 
41
        }
 
42
 
 
43
        foreach pair $rlist {
 
44
                set cmd [lindex $pair 0]
 
45
                set msg [lindex $pair 1]
 
46
                puts "\t$msg: $cmd"
 
47
                set stat [catch {eval $e $cmd} ret]
 
48
                error_check_good $cmd $stat 1
 
49
                error_check_good $cmd.err [is_substr $ret invalid] 1
 
50
        }
 
51
        error_check_good dbclose [$db close] 0
 
52
        error_check_good envclose [$e close] 0
 
53
}