diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-09-14 08:51:23 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-09-14 08:51:23 (GMT) |
commit | b1264cd184de3c9ba370ae1e9cb9bb029b12872b (patch) | |
tree | 2ac418b3d2c9c918fde5c909ab91f26af057e8c2 /tests | |
parent | 92eea63a7df5071fddef9b89b9122a5761670908 (diff) | |
download | tcl-b1264cd184de3c9ba370ae1e9cb9bb029b12872b.zip tcl-b1264cd184de3c9ba370ae1e9cb9bb029b12872b.tar.gz tcl-b1264cd184de3c9ba370ae1e9cb9bb029b12872b.tar.bz2 |
Add back -wrapchar option to "binary encode uuencode".
Diffstat (limited to 'tests')
-rw-r--r-- | tests/binary.test | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/tests/binary.test b/tests/binary.test index 4b71b77..ff1929f 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -2733,23 +2733,14 @@ test binary-74.9 {binary encode uuencode} -body { } -result {$`````` } test binary-74.10 {binary encode uuencode} -returnCodes error -body { - binary encode uuencode -maxlen 30 -wrapchar | abcabcabc -} -result {bad option "-wrapchar": must be -maxlen} + binary encode uuencode -foo 30 abcabcabc +} -result {bad option "-foo": must be -maxlen or -wrapchar} test binary-74.11 {binary encode uuencode} -returnCodes error -body { binary encode uuencode -maxlen 1 abcabcabc } -result {line length out of range} test binary-74.12 {binary encode uuencode} -body { - binary encode uuencode -maxlen 3 abcabcabc -} -result {!80 -!8@ -!8P -!80 -!8@ -!8P -!80 -!8@ -!8P -} + binary encode uuencode -maxlen 3 -wrapchar | abcabcabc +} -result {!80|!8@|!8P|!80|!8@|!8P|!80|!8@|!8P|} test binary-75.1 {binary decode uuencode} -body { binary decode uuencode |