← 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/env006.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/env006.tcl
 
1
# See the file LICENSE for redistribution information.
 
2
#
 
3
# Copyright (c) 1999-2002
 
4
#       Sleepycat Software.  All rights reserved.
 
5
#
 
6
# $Id: env006.tcl,v 11.8 2002/01/11 15:53:23 bostic Exp $
 
7
#
 
8
# TEST  env006
 
9
# TEST  Make sure that all the utilities exist and run.
 
10
proc env006 { } {
 
11
        source ./include.tcl
 
12
 
 
13
        puts "Env006: Run underlying utilities."
 
14
 
 
15
        set rlist {
 
16
        { "db_archive"                  "Env006.a"}
 
17
        { "db_checkpoint"               "Env006.b"}
 
18
        { "db_deadlock"                 "Env006.c"}
 
19
        { "db_dump"                     "Env006.d"}
 
20
        { "db_load"                     "Env006.e"}
 
21
        { "db_printlog"                 "Env006.f"}
 
22
        { "db_recover"                  "Env006.g"}
 
23
        { "db_stat"                     "Env006.h"}
 
24
        { "db_upgrade"                  "Env006.h"}
 
25
        { "db_verify"                   "Env006.h"}
 
26
        }
 
27
        foreach pair $rlist {
 
28
                set cmd [lindex $pair 0]
 
29
                set msg [lindex $pair 1]
 
30
 
 
31
                puts "\t$msg: $cmd"
 
32
 
 
33
                set stat [catch {exec $util_path/$cmd -?} ret]
 
34
                error_check_good $cmd $stat 1
 
35
 
 
36
                #
 
37
                # Check for "usage", but only check "sage" so that
 
38
                # we can handle either Usage or usage.
 
39
                #
 
40
                error_check_good $cmd.err [is_substr $ret sage] 1
 
41
        }
 
42
}