summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-11-15 20:25:01 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-11-15 20:25:01 (GMT)
commit9d8f556865a0a282039621759755c0cf44664039 (patch)
treecca4af85b2d854ae2dba1db0fbab961dc4b28bb6 /tests
parent6ead98de291ba352c56b0d1b98c98f3db380bafb (diff)
downloadtcl-9d8f556865a0a282039621759755c0cf44664039.zip
tcl-9d8f556865a0a282039621759755c0cf44664039.tar.gz
tcl-9d8f556865a0a282039621759755c0cf44664039.tar.bz2
Contributed patch from Andy Goth.
Diffstat (limited to 'tests')
-rw-r--r--tests/binary.test21
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/binary.test b/tests/binary.test
index 6c00508..ccd0f29 100644
--- a/tests/binary.test
+++ b/tests/binary.test
@@ -2642,6 +2642,27 @@ test binary-73.23 {binary decode base64} -body {
test binary-73.24 {binary decode base64} -body {
string length [binary decode base64 " "]
} -result 0
+test binary-73.25 {binary decode base64} -body {
+ list [string length [set r [binary decode base64 WA==\n]]] $r
+} -result {1 X}
+test binary-73.26 {binary decode base64} -body {
+ list [string length [set r [binary decode base64 WFk=\n]]] $r
+} -result {2 XY}
+test binary-73.27 {binary decode base64} -body {
+ list [string length [set r [binary decode base64 WFla\n]]] $r
+} -result {3 XYZ}
+test binary-73.28 {binary decode base64} -body {
+ list [string length [set r [binary decode base64 -strict WA==\n]]] $r
+} -returnCodes error -match glob -result {invalid base64 character *}
+test binary-73.29 {binary decode base64} -body {
+ list [string length [set r [binary decode base64 -strict WFk=\n]]] $r
+} -returnCodes error -match glob -result {invalid base64 character *}
+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
+} -returnCodes error -match glob -result {invalid base64 character *}
test binary-74.1 {binary encode uuencode} -body {
binary encode uuencode