import HEAD into svn+ssh://svn.samba.org/home/svn/samba/trunk
[metze/old/v3-2-winbind-ndr.git] / testsuite / lib / env-single.exp
1 #
2 # Environment variables for a single machine test.  We look for the 
3 # following environment variables:
4 #
5 #     $TEST_SERVER     The SMB server to contact for the test
6 #     $TEST_SHARE      Share name on $TEST_SERVER to contact
7 #     $TEST_USER       The username to connect to $TEST_SHARE as
8 #
9 # These are stored in the Tcl variables $server, $share and $user 
10 # respectively.
11 #
12 # An error will be produced and the test will exit if any of these
13 # variables are not present.
14 #
15
16 verbose "Loading single machine environment variables"
17
18 catch {set server "$env(TEST_SERVER)"} tmp
19
20 if {[regexp "^can't read" $tmp]} {
21     error "Environment variable TEST_SERVER not set"
22 }
23
24 catch {set share "$env(TEST_SHARE)"} tmp
25
26 if {[regexp "^can't read" $tmp]} {
27     error "Environment variable TEST_SHARE not set"
28 }
29
30 catch {set user "$env(TEST_USER)"} tmp
31
32 if {[regexp "^can't read" $tmp]} {
33     error "Environment variable TEST_USER not set"
34 }
35
36 verbose "Single machine is //$server/$share -U $user"