diff options
| author | Tim Potter <tpot@samba.org> | 2000-05-12 06:55:09 +0000 |
|---|---|---|
| committer | Tim Potter <tpot@samba.org> | 2000-05-12 06:55:09 +0000 |
| commit | 75ebfc6f7a7692d772b729b2d83038a9054b4f90 (patch) | |
| tree | 031b445348b62fdf40489fb2526c46506ee2c3ba /testsuite/config/env.exp | |
| parent | 053322d0ca6b68be638c2d5f4caa9909a19c1646 (diff) | |
| download | samba-75ebfc6f7a7692d772b729b2d83038a9054b4f90.tar.gz samba-75ebfc6f7a7692d772b729b2d83038a9054b4f90.tar.bz2 samba-75ebfc6f7a7692d772b729b2d83038a9054b4f90.zip | |
Merge from TNG.
(This used to be commit af5ded9f17addb4bc89ecb762b9b99d2f99463ab)
Diffstat (limited to 'testsuite/config/env.exp')
| -rw-r--r-- | testsuite/config/env.exp | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/testsuite/config/env.exp b/testsuite/config/env.exp new file mode 100644 index 0000000000..503d058c3f --- /dev/null +++ b/testsuite/config/env.exp @@ -0,0 +1,26 @@ +# +# Load environment variables +# + +# Domain set through environment variable + +catch {set domain "$env(TEST_WORKGROUP)"} tmp + +if {[regexp "^can't read" $tmp]} { + error "Environment variable \$TEST_WORKGROUP not set" +} + +# NT user and server + +catch {set ntserver "$env(TEST_NTSERVER)"} tmp + +if {[regexp "^can't read" $tmp]} { + error "Environment variable \$TEST_NTSERVER not set" +} + +catch {set ntuser "$env(TEST_NTUSER)"} tmp + +if {[regexp "^can't read" $tmp]} { + error "Environment variable \$TEST_NTUSER not set" +} + |