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
+	}
+}