diff options
author | stanton <stanton> | 1998-12-04 03:01:27 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-12-04 03:01:27 (GMT) |
commit | 3b933d49401f7113479c56cc2efb8afab812cf1e (patch) | |
tree | 4e52919e3fab67928fef4545a0cefaedf60b5d11 /tests/winFile.test | |
parent | 41603e59a53d02d7365a1f99ee8176b70ef71a0a (diff) | |
download | tcl-3b933d49401f7113479c56cc2efb8afab812cf1e.zip tcl-3b933d49401f7113479c56cc2efb8afab812cf1e.tar.gz tcl-3b933d49401f7113479c56cc2efb8afab812cf1e.tar.bz2 |
fixed broken tests
Diffstat (limited to 'tests/winFile.test')
-rw-r--r-- | tests/winFile.test | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/winFile.test b/tests/winFile.test index 82ed2b9..10bfd11 100644 --- a/tests/winFile.test +++ b/tests/winFile.test @@ -23,7 +23,7 @@ if {$tcl_platform(platform) != "windows"} { test winFile-1.1 {TclpGetUserHome} { list [catch {glob ~nosuchuser} msg] $msg } {1 {user "nosuchuser" doesn't exist}} -test winFile-1.2 {TclpGetUserHome} {nt} { +test winFile-1.2 {TclpGetUserHome} {nt nonportable} { # The administrator account should always exist. catch {glob ~administrator} @@ -47,5 +47,8 @@ test winFile-1.2 {TclpGetUserHome} {!nt} { close $f set x } {0} - +test winFile-1.3 {TclpGetUserHome} {nt nonportable} { + catch {glob ~stanton@workgroup} +} {0} + return |