]>
iEval git - convert-base91.git/blob - t/Convert-Base91.t
5 use Test
::More tests
=> 9;
6 BEGIN { use_ok
('Convert::Base91', qw
/encode_base91 decode_base91/) };
8 is encode_base91
("Hello, World!\n"), '>OwJh>}AQ;r@@Y?FF', 'encode';
9 is decode_base91
('>OwJh>}AQ;r@@Y?FF'), "Hello, World!\n", 'decode';
12 is decode_base91
(encode_base91
($str)), $str, 'roundtrip';
14 my $base91 = Convert
::Base91
->new;
15 $base91->encode('Hello, ');
16 $base91->encode('World!');
17 $base91->encode("\n");
18 my $encoded = $base91->encode_end;
19 is
$encoded, '>OwJh>}AQ;r@@Y?FF', 'OO encode';
21 $base91->decode('>OwJh>}AQ');
22 $base91->decode(';r@@Y?FF');
23 my $decoded = $base91->decode_end;
24 is
$decoded, "Hello, World!\n", 'OO decode';
26 is
$base91->decode_end, '', 'double decode_end';
27 is
$base91->encode_end, '', 'encode_end without data';
29 is decode_base91
(">\x00OwJh\x01>}A\xFE\xDDQ;r@\@Y?FF\x05"), "Hello, World!\n", 'decode with junk';
This page took 0.056173 seconds and 5 git commands to generate.