1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!perl
use warnings;
use strict;
use Test::More tests => 22;
use Convert::Ascii85 qw(ascii85_encode ascii85_decode);
my @pairs = (
['Man is distinguished, not only by his reason, but by this singular passion from other animals, which is a lust of the mind, that by a perseverance of delight in the continued and indefatigable generation of knowledge, exceeds the short vehemence of any carnal pleasure.', q~9jqo^BlbD-BleB1DJ+*+F(f,q/0JhKF<GL>Cj@.4Gp$d7F!,L7@<6@)/0JDEF<G%<+EV:2F!,O<DJ+*.@<*K0@<6L(Df-\0Ec5e;DffZ(EZee.Bl.9pF"AGXBPCsi+DGm>@3BB/F*&OCAfu2/AKYi(DIb:@FD,*)+C]U=@3BN#EcYf8ATD3s@q?d$AftVqCh[NqF<G:8+EV:.+Cf>-FD5W8ARlolDIal(DId<j@<?3r@:F%a+D58'ATD4$Bl@l3De:,-DJs`8ARoFb/0JMK@qB4^F!,R<AKZ&-DfTqBG%G>uD.RTpAKYo'+CT/5+Cei#DII?(E,9)oF*2M7/c~],
["\0" x 8, 'zz'],
["\0" x 8, 'zz', {compress_zero => 1}],
["\0" x 8, '!' x 10, {compress_zero => 0}],
['asdf rew', '@<5sk+<VdLEb0F'],
['asdf rew', '@<5sk+<VdLEb0F', {compress_space => 0}],
['asdf rew', '@<5skyEb0F', {compress_space => 1}],
['', ''],
["\0", '!!'],
["\0\0", '!!!'],
["\0\0\0", '!!!!'],
);
for my $pair (@pairs) {
my ($plain, $encoded, $options) = @$pair;
is ascii85_encode($plain, $options || {}), $encoded;
is ascii85_decode($encoded), $plain;
}
|
