summaryrefslogtreecommitdiffstats
path: root/tests/winFile.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/winFile.test')
-rw-r--r--tests/winFile.test7
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/winFile.test b/tests/winFile.test
index c08cc20..0cefcb5 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.19 2006/10/01 09:51:05 patthoyts Exp $
+# RCS: @(#) $Id: winFile.test,v 1.20 2007/12/14 13:52:55 patthoyts Exp $
if {[catch {package require tcltest 2.0.2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -95,6 +95,9 @@ proc cacls {fname args} {
# dir/q output:
# 2003-11-03 20:36 598 OCTAVIAN\benny filename.txt
+# Note this output from a german win2k machine:
+# 14.12.2007 14:26 30 VORDEFINIERT\Administratest.dat
+#
# Modified to cope with Msys environment and use ls -l.
proc getuser {fname} {
global env
@@ -112,7 +115,7 @@ proc getuser {fname} {
} else {
set dirtext [exec cmd /c dir /q [file nativename $fname]]
foreach line [split $dirtext "\n"] {
- if {[string match -nocase "* $tail" $line]} {
+ if {[string match -nocase "*$tail" $line]} {
set attrs [string range $line \
0 end-[string length $tail]]
regexp { [^ \\]+\\.*$} $attrs owner