diff options
author | dgp <dgp@users.sourceforge.net> | 2020-03-28 16:33:50 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-03-28 16:33:50 (GMT) |
commit | f5621cf8539eb6b5c64826e06254cbf2121a52bd (patch) | |
tree | c25863768baad5a43b4feb82e47ee9c62265040c /tests/binary.test | |
parent | a30671934a6bd8c3448cb1a57634210fa24edbb0 (diff) | |
parent | c619f65f15cd0877658ae9a0c0e3748b8fc0896b (diff) | |
download | tcl-f5621cf8539eb6b5c64826e06254cbf2121a52bd.zip tcl-f5621cf8539eb6b5c64826e06254cbf2121a52bd.tar.gz tcl-f5621cf8539eb6b5c64826e06254cbf2121a52bd.tar.bz2 |
merge 8.6
Diffstat (limited to 'tests/binary.test')
-rw-r--r-- | tests/binary.test | 5 |
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 |