diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-20 10:14:44 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-20 10:14:44 (GMT) |
commit | 1a94f57ab672e62630b18fc4daa9a5a9c253bc6b (patch) | |
tree | dd8ab2e331e58f20378c8a569a2abebb2f66fe07 /library | |
parent | 23520a764859890cb326fdc38a68180f11081549 (diff) | |
download | tcl-1a94f57ab672e62630b18fc4daa9a5a9c253bc6b.zip tcl-1a94f57ab672e62630b18fc4daa9a5a9c253bc6b.tar.gz tcl-1a94f57ab672e62630b18fc4daa9a5a9c253bc6b.tar.bz2 |
Backport many (formatting) changes in tools/*. Nothing functional.
testest.tcl: Use more uppercase hex.
Diffstat (limited to 'library')
-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 e7f4288..4df25e4 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -3242,8 +3242,8 @@ proc tcltest::viewFile {name {directory ""}} { # procedures that are supposed to accept strings with embedded NULL # bytes. # 2. Confirm that a string result has a certain pattern of bytes, for -# instance to confirm that "\xe0\0" in a Tcl script is stored -# internally in UTF-8 as the sequence of bytes "\xc3\xa0\xc0\x80". +# instance to confirm that "\xE0\0" in a Tcl script is stored +# internally in UTF-8 as the sequence of bytes "\xC3\xA0\xC0\x80". # # Generally, it's a bad idea to examine the bytes in a Tcl string or to # construct improperly formed strings in this manner, because it involves |