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"