summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2005-10-05 00:38:04 (GMT)
committerhobbs <hobbs>2005-10-05 00:38:04 (GMT)
commita027f4410a23cadee78e4c04f319df20b07567cb (patch)
treedd2a4e9a300308258caa39245ed723bb95d8cdb4 /tests
parentfeed575edf673f8860aa50a1eaaddc5aa887b893 (diff)
downloadtcl-a027f4410a23cadee78e4c04f319df20b07567cb.zip
tcl-a027f4410a23cadee78e4c04f319df20b07567cb.tar.gz
tcl-a027f4410a23cadee78e4c04f319df20b07567cb.tar.bz2
* tests/winFile.test (getuser): allow valid Windows usernames.
[Bug 1311285]
Diffstat (limited to 'tests')
-rw-r--r--tests/winFile.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/winFile.test b/tests/winFile.test
index ffbb776..b8837db 100644
--- a/tests/winFile.test
+++ b/tests/winFile.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: winFile.test,v 1.16 2004/11/08 19:19:27 davygrvy Exp $
+# RCS: @(#) $Id: winFile.test,v 1.17 2005/10/05 00:38:05 hobbs Exp $
if {[catch {package require tcltest 2.0.2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -112,7 +112,7 @@ proc getuser {fname} {
if {[string match -nocase "* $tail" $line]} {
set attrs [string range $line \
0 end-[string length $tail]]
- regexp { [A-Z]+\\.*$} $attrs owner
+ regexp { [^ \\]+\\.*$} $attrs owner
set owner [string trim $owner]
}
}