summaryrefslogtreecommitdiffstats
path: root/tests/winFCmd.test
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-11-20 19:05:43 (GMT)
committervincentdarley <vincentdarley>2003-11-20 19:05:43 (GMT)
commit0dee5e1d93d95188838e8a5fde4370ec46a2701f (patch)
tree40439c0d1d1ca49c98afe523ca94d4bee0bad56e /tests/winFCmd.test
parent30aaeb35750be908d5f3f45fa6bad6cdcabe86ad (diff)
downloadtcl-0dee5e1d93d95188838e8a5fde4370ec46a2701f.zip
tcl-0dee5e1d93d95188838e8a5fde4370ec46a2701f.tar.gz
tcl-0dee5e1d93d95188838e8a5fde4370ec46a2701f.tar.bz2
fix to 'cd' infinite recursion bug on Windows
Diffstat (limited to 'tests/winFCmd.test')
-rw-r--r--tests/winFCmd.test18
1 files changed, 13 insertions, 5 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index 58d6f67..be2cc85 100644
--- a/tests/winFCmd.test
+++ b/tests/winFCmd.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: winFCmd.test,v 1.20.2.1 2003/10/03 17:25:22 vincentdarley Exp $
+# RCS: @(#) $Id: winFCmd.test,v 1.20.2.2 2003/11/20 19:05:45 vincentdarley Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -1002,12 +1002,20 @@ test winFCmd-16.8 {Windows file normalization} {pcOnly} {
test winFCmd-16.9 {Windows file normalization} {pcOnly} {
file norm /bar/foo
} "${d}:/bar/foo"
-test winFCmd-16.10 {Windows file normalization} {pcOnly knownBug} {
- if {$d eq "C"} { set dd "D" } else { set dd "C" }
+test winFCmd-16.10 {Windows file normalization} {pcOnly} {
file norm ${dd}:foo
-} {Tcl doesn't know about a drive-specific cwd}
+} "${dd}:/foo"
+test winFCmd-16.11 {Windows file normalization} {pcOnly cdrom} {
+ cd ${d}:
+ cd $cdrom
+ cd ${d}:
+ cd $cdrom
+ # Must not crash
+ set result "no crash"
+} {no crash}
-unset d pwd
+cd $pwd
+unset d dd pwd
# This block of code used to occur after the "return" call, so I'm
# commenting it out and assuming that this code is still under construction.