diff options
| author | Poul-Henning Kamp <phk@FreeBSD.org> | 1996-09-18 14:12:34 +0000 |
|---|---|---|
| committer | Poul-Henning Kamp <phk@FreeBSD.org> | 1996-09-18 14:12:34 +0000 |
| commit | 8569730d6bc2e4cb5e784997313325b13518e066 (patch) | |
| tree | 6030c8489bce8cf7333fc4d0b644065e106224b5 /contrib/tcl/tests/fileName.test | |
| parent | 403acdc0da2969f284b74b720692585bfc676190 (diff) | |
Import tcl7.5p1
Notes
Notes:
svn path=/vendor/tcl/dist/; revision=18351
Diffstat (limited to 'contrib/tcl/tests/fileName.test')
| -rw-r--r-- | contrib/tcl/tests/fileName.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/contrib/tcl/tests/fileName.test b/contrib/tcl/tests/fileName.test index 26e84d9ba013..abb3eb857d20 100644 --- a/contrib/tcl/tests/fileName.test +++ b/contrib/tcl/tests/fileName.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) fileName.test 1.20 96/04/19 12:36:13 +# SCCS: @(#) fileName.test 1.23 96/07/31 11:46:11 if {[string compare test [info procs test]] == 1} then {source defs} @@ -1086,8 +1086,8 @@ test filename-11.12 {Tcl_GlobCmd} { testsetplatform $platform test filename-11.13 {Tcl_GlobCmd} { - list [catch {glob ~} msg] $msg -} [list 0 [list $env(HOME)]] + list [catch {file join [lindex [glob ~] 0]} msg] $msg +} [list 0 [file join $env(HOME)]] # The following tests will work on Windows platforms only if MKS # toolkit is installed. |