view release on metacpan or  search on metacpan

t/base16.t  view on Meta::CPAN

use lib 't/lib'; use MyTest;
use Encode::Base2N qw/encode_base16 encode_base16low decode_base16/;

catch_run('[base16]');

my $str = join('', map {chr($_)} 0..255);

my $enc = encode_base16($str);
my $encl = encode_base16low($str);

my $encR = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F606162636465666768696A6B6C6D6E6F70717273747576...

is $encR, $enc;
is lc($enc), $encl;

is decode_base16($enc), $str;
is decode_base16($encl), $str;

done_testing();