summaryrefslogtreecommitdiffstats
path: root/tests/binary.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2020-03-28 16:33:50 (GMT)
committerdgp <dgp@users.sourceforge.net>2020-03-28 16:33:50 (GMT)
commitf5621cf8539eb6b5c64826e06254cbf2121a52bd (patch)
treec25863768baad5a43b4feb82e47ee9c62265040c /tests/binary.test
parenta30671934a6bd8c3448cb1a57634210fa24edbb0 (diff)
parentc619f65f15cd0877658ae9a0c0e3748b8fc0896b (diff)
downloadtcl-f5621cf8539eb6b5c64826e06254cbf2121a52bd.zip
tcl-f5621cf8539eb6b5c64826e06254cbf2121a52bd.tar.gz
tcl-f5621cf8539eb6b5c64826e06254cbf2121a52bd.tar.bz2
merge 8.6
Diffstat (limited to 'tests/binary.test')
-rw-r--r--tests/binary.test5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/binary.test b/tests/binary.test
index 4b1791d..ae94ab4 100644
--- a/tests/binary.test
+++ b/tests/binary.test
@@ -2718,7 +2718,7 @@ test binary-73.30 {binary decode base64} -body {
list [string length [set r [binary decode base64 -strict WFla\n]]] $r
} -returnCodes error -match glob -result {invalid base64 character *}
test binary-73.31 {binary decode base64} -body {
- list [string length [set r [binary decode base64 WA==WFla]]] $r
+ list [string length [set r [binary decode base64 -strict WA==WFla]]] $r
} -returnCodes error -match glob -result {invalid base64 character *}
test binary-73.32 {binary decode base64, bug [00d04c4f12]} -body {
list \
@@ -2760,6 +2760,9 @@ test binary-73.36 {binary decode base64: check encoded & decoded equals original
}
join $r \n
} -result {}
+test binary-73.37 {binary decode base64: Bug ffeb2097af} {
+ binary decode base64 [binary encode base64 -maxlen 3 -wrapchar : abc]
+} abc
test binary-74.1 {binary encode uuencode} -body {
binary encode uuencode