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