toychain/t/txmeta.t

#!/usr/bin/perl

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

use toychain;
use TXPOOL qw(getTxMeta);
use YAML::Syck qw(Dump);

print "// testing getTxMeta\n";
my $txblock = getTxMeta();

printf "--- txblock %s...\n",Dump($txblock);



exit $?;
1;