diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-09-15 16:30:01 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-09-15 16:30:01 (GMT) |
commit | d005d657b483f1d31c4acf3b7d0aafac8e0b288a (patch) | |
tree | 360685fd1b62a3725597d9104b1a1eabd7d2fa8e /tests | |
parent | 0f1f636a50239c2409172a34da5fa1b1f45bf9c4 (diff) | |
parent | dc8a74cb4dd9032147ee2106fb16a738e394bc1f (diff) | |
download | tcl-d005d657b483f1d31c4acf3b7d0aafac8e0b288a.zip tcl-d005d657b483f1d31c4acf3b7d0aafac8e0b288a.tar.gz tcl-d005d657b483f1d31c4acf3b7d0aafac8e0b288a.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 607a070..40b1315 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 |