toychain/t/genesis.t

#

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

use Genesis;
use functions qw(displayBlock);
use DAG qw(DAGRead);


my $genblock = $Genesis::genblock;
my $genhash = $Genesis::genhash;
my $genaddr = $genblock->{bkaddr};
printf "genhash: %s\n",$genhash;
printf "genaddr: %s\n",$genaddr;

my $genbk = &DAGRead('blocks',$genhash);
#printf "--- blk %s...\n",Dump($blk);

&displayBlock($genbk);

exit $?;

1;