|
Last change
on this file since 1050 was 1, checked in by Paul Smedley, 19 years ago |
|
Initial code import
|
|
File size:
988 bytes
|
| Line | |
|---|
| 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"
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
