← Back to branch summary

~zulcss/samba/server-dailies-3.4

« back to all changes in this revision

Viewing changes to testsuite/lib/env-single.exp

  • Committer: Chuck Short
  • Date: 2010-09-28 20:38:39 UTC
  • Revision ID: zulcss@ubuntu.com-20100928203839-pgjulytsi9ue63x1
Initial version

Show diffs side-by-side

added added

removed removed

Lines of Context:
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"