diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2007-12-14 13:52:55 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2007-12-14 13:52:55 (GMT) |
| commit | 604a950260e29f0248794d40eb88e73a7cfc1465 (patch) | |
| tree | 0fb1440464a2aff6f3994ac95b73760ebd2d3db6 /tests | |
| parent | 8ae428cebfc46efcf400bdfa5bad949fd025bf15 (diff) | |
| download | tcl-604a950260e29f0248794d40eb88e73a7cfc1465.zip tcl-604a950260e29f0248794d40eb88e73a7cfc1465.tar.gz tcl-604a950260e29f0248794d40eb88e73a7cfc1465.tar.bz2 | |
Fix for broken test on win2k with long machine name
Diffstat (limited to 'tests')
| -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 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 |