Merge from TNG.
[nivanova/samba-autobuild/.git] / testsuite / config / env.exp
1 #
2 # Load environment variables
3 #
4
5 # Domain set through environment variable
6
7 catch {set domain "$env(TEST_WORKGROUP)"} tmp
8
9 if {[regexp "^can't read" $tmp]} {
10     error "Environment variable \$TEST_WORKGROUP not set"
11 }
12
13 # NT user and server
14
15 catch {set ntserver "$env(TEST_NTSERVER)"} tmp
16
17 if {[regexp "^can't read" $tmp]} {
18     error "Environment variable \$TEST_NTSERVER not set"
19 }
20
21 catch {set ntuser "$env(TEST_NTUSER)"} tmp
22
23 if {[regexp "^can't read" $tmp]} {
24     error "Environment variable \$TEST_NTUSER not set"
25 }
26