diff options
Diffstat (limited to 'storage/bdb/test/env006.tcl')
-rw-r--r-- | storage/bdb/test/env006.tcl | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/storage/bdb/test/env006.tcl b/storage/bdb/test/env006.tcl new file mode 100644 index 00000000000..48fc6982772 --- /dev/null +++ b/storage/bdb/test/env006.tcl @@ -0,0 +1,42 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 1999-2002 +# Sleepycat Software. All rights reserved. +# +# $Id: env006.tcl,v 11.8 2002/01/11 15:53:23 bostic Exp $ +# +# TEST env006 +# TEST Make sure that all the utilities exist and run. +proc env006 { } { + source ./include.tcl + + puts "Env006: Run underlying utilities." + + set rlist { + { "db_archive" "Env006.a"} + { "db_checkpoint" "Env006.b"} + { "db_deadlock" "Env006.c"} + { "db_dump" "Env006.d"} + { "db_load" "Env006.e"} + { "db_printlog" "Env006.f"} + { "db_recover" "Env006.g"} + { "db_stat" "Env006.h"} + { "db_upgrade" "Env006.h"} + { "db_verify" "Env006.h"} + } + foreach pair $rlist { + set cmd [lindex $pair 0] + set msg [lindex $pair 1] + + puts "\t$msg: $cmd" + + set stat [catch {exec $util_path/$cmd -?} ret] + error_check_good $cmd $stat 1 + + # + # Check for "usage", but only check "sage" so that + # we can handle either Usage or usage. + # + error_check_good $cmd.err [is_substr $ret sage] 1 + } +} |