diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-05-13 17:56:36 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-05-13 17:56:36 (GMT) |
| commit | 0f34d49b76e87e5f454a9b468e981bc71f43907c (patch) | |
| tree | 93a7e7a8b9aa9b282990f45bcc15639f4a14b098 /tests/cmdAH.test | |
| parent | 6b6e030ea49677db8df33c856429465459e58f9a (diff) | |
| download | tcl-0f34d49b76e87e5f454a9b468e981bc71f43907c.zip tcl-0f34d49b76e87e5f454a9b468e981bc71f43907c.tar.gz tcl-0f34d49b76e87e5f454a9b468e981bc71f43907c.tar.bz2 | |
Fix new tests cmdAH-33.[45] by making them pass on Windows
Diffstat (limited to 'tests/cmdAH.test')
| -rw-r--r-- | tests/cmdAH.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 3184747..789e77a 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -1681,7 +1681,7 @@ test cmdAH-33.4 {file tempdir} -setup { file mkdir $base } -body { set pre [glob -nocomplain -directory $base *] - set d [file tempdir $base/] + set d [file normalize [file tempdir $base/]] list [string map [list $base GORP:] $d] [file exists $d] [file type $d] \ $pre [glob -nocomplain -directory $d *] } -match glob -result {GORP:/tcl_* 1 directory {} {}} -cleanup { @@ -1692,7 +1692,7 @@ test cmdAH-33.5 {file tempdir} -setup { file mkdir $base } -body { set pre [glob -nocomplain -directory $base *] - set d [file tempdir $base/gorp] + set d [file normalize [file tempdir $base/gorp]] list [string map [list $base GORP:] $d] [file exists $d] [file type $d] \ $pre [glob -nocomplain -directory $d *] } -match glob -result {GORP:/gorp_* 1 directory {} {}} -cleanup { |