]>
iEval git - convert-base91.git/blob - t/Convert-Base91.t
01edc359ca4a3c0b813f1bdb2c89c2f99a08ef6c
5 use Test
::More tests
=> 6;
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';
This page took 0.046773 seconds and 3 git commands to generate.