toychain/t/merkleroot.t

#!/usr/bin/perl

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

use TXPOOL qw(computeMerkleRoot mbase16);
$TXPOOL::dbug = 1;

my $a = [map { 'Z'.$_; } qw(a b c d e f g)];

my $mr = &computeMerkleRoot($a);

printf "mr: %s\n",mbase16($mr);

exit $?;

1;