summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTim Potter <tpot@samba.org>2000-05-24 05:52:23 +0000
committerTim Potter <tpot@samba.org>2000-05-24 05:52:23 +0000
commit1f37fca4c5a827e0fb0467f535ea5a2910274361 (patch)
tree102a0351f736613a451b3b551ac9f636d7fd8cd7
parent8af41e021f1847c7e7a2283a81863c23c11fe90d (diff)
downloadsamba-1f37fca4c5a827e0fb0467f535ea5a2910274361.tar.gz
samba-1f37fca4c5a827e0fb0467f535ea5a2910274361.tar.bz2
samba-1f37fca4c5a827e0fb0467f535ea5a2910274361.zip
Environment variables for single server test scripts.
(This used to be commit 82ff52ee86f87e5105f51257479b8b9dc98310a2)
-rw-r--r--testsuite/lib/env-single.exp36
1 files changed, 36 insertions, 0 deletions
diff --git a/testsuite/lib/env-single.exp b/testsuite/lib/env-single.exp
new file mode 100644
index 0000000000..6cd7f94a86
--- /dev/null
+++ b/testsuite/lib/env-single.exp
@@ -0,0 +1,36 @@
+#
+# Environment variables for a single machine test. We look for the
+# following environment variables:
+#
+# $TEST_SERVER The SMB server to contact for the test
+# $TEST_SHARE Share name on $TEST_SERVER to contact
+# $TEST_USER The username to connect to $TEST_SHARE as
+#
+# These are stored in the Tcl variables $server, $share and $user
+# respectively.
+#
+# An error will be produced and the test will exit if any of these
+# variables are not present.
+#
+
+verbose "Loading single machine environment variables"
+
+catch {set server "$env(TEST_SERVER)"} tmp
+
+if {[regexp "^can't read" $tmp]} {
+ error "Environment variable TEST_SERVER not set"
+}
+
+catch {set share "$env(TEST_SHARE)"} tmp
+
+if {[regexp "^can't read" $tmp]} {
+ error "Environment variable TEST_SHARE not set"
+}
+
+catch {set user "$env(TEST_USER)"} tmp
+
+if {[regexp "^can't read" $tmp]} {
+ error "Environment variable TEST_USER not set"
+}
+
+verbose "Single machine is //$server/$share -U $user"