summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@noemail.net>2003-11-21 18:47:58 (GMT)
committerdgp <dgp@noemail.net>2003-11-21 18:47:58 (GMT)
commit7e50dd054c3acd5b2ff65914b0939d0a44f8b14a (patch)
treef4e496f85764c66ccb79bfeb5dd0eef498e170e5 /tests
parent147d52624a6a7eb9e003b6e61b61d30677cf4040 (diff)
downloadtcl-7e50dd054c3acd5b2ff65914b0939d0a44f8b14a.zip
tcl-7e50dd054c3acd5b2ff65914b0939d0a44f8b14a.tar.gz
tcl-7e50dd054c3acd5b2ff65914b0939d0a44f8b14a.tar.bz2
* tests/winFCmd.test (winFCmd-16.10,11): Merged new tests from
core-8-4-branch. FossilOrigin-Name: 3edba276c1cf0ae93c968775b4a5e96f1daa0291
Diffstat (limited to 'tests')
-rw-r--r--tests/winFCmd.test19
1 files changed, 14 insertions, 5 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index 49b4612..87c260d 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.23 2003/11/14 20:44:47 dgp Exp $
+# RCS: @(#) $Id: winFCmd.test,v 1.24 2003/11/21 18:47:59 dgp Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -1016,12 +1016,21 @@ 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" }
+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.