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 |