summaryrefslogtreecommitdiffstats
path: root/tests/winFCmd.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-11-13 12:29:04 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-11-13 12:29:04 (GMT)
commit3bbc2317b3c2fb91fe9afbe04708c7e15db60f55 (patch)
tree2e070255cd1e978416f280351bcd75699f51dab9 /tests/winFCmd.test
parent1db5ff8c2cde3fd48be30ff8b9ce4c121eba21f6 (diff)
downloadtcl-3bbc2317b3c2fb91fe9afbe04708c7e15db60f55.zip
tcl-3bbc2317b3c2fb91fe9afbe04708c7e15db60f55.tar.gz
tcl-3bbc2317b3c2fb91fe9afbe04708c7e15db60f55.tar.bz2
Improve documentation on the use of com ports (remove references to Windows 95, deprecate the use of postfix ':').
Allow lpt[5-9] just as com[5-9], and make sure that path normalization works as expected for ports > 4.
Diffstat (limited to 'tests/winFCmd.test')
-rw-r--r--tests/winFCmd.test13
1 files changed, 9 insertions, 4 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index ef1c4e7..f0cb406 100644
--- a/tests/winFCmd.test
+++ b/tests/winFCmd.test
@@ -1110,16 +1110,16 @@ test winFCmd-18.1.2 {Windows reserved path names} -constraints win -body {
} -result "absolute"
test winFCmd-18.1.3 {Windows reserved path names} -constraints win -body {
- file pathtype com5
-} -result "relative"
+ file pathtype com9
+} -result "absolute"
test winFCmd-18.1.4 {Windows reserved path names} -constraints win -body {
file pathtype lpt3
} -result "absolute"
test winFCmd-18.1.5 {Windows reserved path names} -constraints win -body {
- file pathtype lpt4
-} -result "relative"
+ file pathtype lpt9
+} -result "absolute"
test winFCmd-18.1.6 {Windows reserved path names} -constraints win -body {
file pathtype nul
@@ -1238,6 +1238,11 @@ test winFCmd-19.8 {Windows extended path names} -constraints nt -setup {
catch {file delete $tmpfile}
} -result [list 0 {} [list "tcl[pid].tmp "]]
+test winFCmd-19.9 {Windows devices path names} -constraints nt -body {
+ file normalize //./com1
+} -result //./com1
+
+
# 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.
#foreach source {tef ted tnf tnd "" nul com1} {