/ Check-in [f362c5d9]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Modify the new shell test case to work on non-Windows platforms as well.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | expShell
Files: files | file ages | folders
SHA1: f362c5d9d17a04404a0407a556202d101fde84ee
User & Date: mistachkin 2015-01-18 09:02:57
Context
2015-01-19
07:42
Merge updates from trunk. check-in: c7167f88 user: mistachkin tags: expShell
2015-01-18
09:02
Modify the new shell test case to work on non-Windows platforms as well. check-in: f362c5d9 user: mistachkin tags: expShell
05:35
Some experimental command line shell input/output enhancements. check-in: 25e99f3f user: mistachkin tags: expShell
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/shell1.test.

   820    820   do_test shell1-5.0 {
   821    821     #
   822    822     # NOTE: Skip NUL byte because it appears to be incompatible with command
   823    823     #       shell argument parsing.
   824    824     #
   825    825     for {set i 1} {$i < 256} {incr i} {
   826    826       #
   827         -    # NOTE: Due to how the Tcl [exec] command works on Windows (i.e. where
   828         -    #       it treats command channels opened for it as textual ones), the
   829         -    #       carriage-return and end-of-file characters cannot be used here.
          827  +    # NOTE: Due to how the Tcl [exec] command works (i.e. where it treats
          828  +    #       command channels opened for it as textual ones), the carriage
          829  +    #       return character (and on Windows, the end-of-file character)
          830  +    #       cannot be used here.
   830    831       #
   831         -    if {$tcl_platform(platform)=="windows" && ($i == 0x0D || $i == 0x1A)} {
          832  +    if {$i==0x0D || ($tcl_platform(platform)=="windows" && $i==0x1A)} {
   832    833         continue
   833    834       }
   834    835       set hex [format %02X $i]
   835    836       set char [subst \\x$hex]; set oldChar $char
   836    837       set char [string map [list \
   837    838           \a \\a \b \\b \t \\t \n \\n \v \\v \f \\f \r \\r \
   838    839           " " "\" \"" \" \\\" ' \"'\" \\ \\\\] $char]