toychain/t/mbase.t

#!/usr/bin/perl

BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }

use seed qw(rand64);
use encode qw(mbase58 mbase36 mbase16);

my $seed = &seed::setseed('testing mbase* subroutines');
my $r = rand64();
my $q = pack'Q',$r;
printf "seed: %s\n",$seed;
printf "r: %s\n",$r;
printf "q: 0x%s\n",unpack'H*',$q;
printf "r58: %s\n",&mbase58($q);
printf "r36: %s\n",&mbase36($q);
printf "r16: %s\n",&mbase16($q);

exit $?;

1;