2 # Load environment variables
5 # Domain set through environment variable
7 catch {set domain "$env(TEST_WORKGROUP)"} tmp
9 if {[regexp "^can't read" $tmp]} {
10 error "Environment variable \$TEST_WORKGROUP not set"
15 catch {set ntserver "$env(TEST_NTSERVER)"} tmp
17 if {[regexp "^can't read" $tmp]} {
18 error "Environment variable \$TEST_NTSERVER not set"
21 catch {set ntuser "$env(TEST_NTUSER)"} tmp
23 if {[regexp "^can't read" $tmp]} {
24 error "Environment variable \$TEST_NTUSER not set"