diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-11-13 12:29:04 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-11-13 12:29:04 (GMT) |
commit | b7b8194d8178e6ed5b12f5b2ea3eef30bb132c99 (patch) | |
tree | 2e070255cd1e978416f280351bcd75699f51dab9 /tests/winFCmd.test | |
parent | b424e5a7b43887204c5dab2486e61aa3de1ba905 (diff) | |
download | tcl-b7b8194d8178e6ed5b12f5b2ea3eef30bb132c99.zip tcl-b7b8194d8178e6ed5b12f5b2ea3eef30bb132c99.tar.gz tcl-b7b8194d8178e6ed5b12f5b2ea3eef30bb132c99.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.test | 13 |
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} { |