diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-14 00:29:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-14 00:29:31 (GMT) |
| commit | c64c4397020dbb5bcfe4709464715ba7591b2874 (patch) | |
| tree | 4bd678431f8cc3aa8c5525e7b02e7ca89a985526 | |
| parent | ef76ec691610b95b11294d7ae420cdb5600af2c5 (diff) | |
| parent | 3827fdbdddb5dfcdf30e19a360e1c97a79b41e7d (diff) | |
| download | tcl-c64c4397020dbb5bcfe4709464715ba7591b2874.zip tcl-c64c4397020dbb5bcfe4709464715ba7591b2874.tar.gz tcl-c64c4397020dbb5bcfe4709464715ba7591b2874.tar.bz2 | |
Merge 8.6
| -rw-r--r-- | library/tcltest/tcltest.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 55ad481..4c8d8f2 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -1144,7 +1144,7 @@ proc tcltest::SafeFetch {n1 n2 op} { # # Transforms the passed string to contain only printable ascii characters. # Useful for printing to terminals. Non-printables are mapped to -# \x, \u or \U sequences. +# \x, \u or \U sequences, except \n. # # Arguments: # s - string to transform @@ -1158,7 +1158,7 @@ proc tcltest::SafeFetch {n1 n2 op} { proc tcltest::Asciify {s} { set print "" foreach c [split $s ""] { - if {[string is print $c] && (($c <= "\x7E") || ($c == "\n"))} { + if {(($c < "\x7F") && [string is print $c]) || ($c eq "\n")} { append print $c } elseif {$c < "\u0100"} { append print \\x[format %02X [scan $c %c]] |