toychain/t/isvalid.t

#

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

use TXPOOL qw(isTxValid);
use misc qw(kwdigest);
use YAML::Syck qw(LoadFile Dump);
#printf "--- keys %s...\n",Dump($ECKeys::keys);
printf "--- nicknames %s...\n",Dump($ECKeys::nicknames);

$UTXO->{$ECKeys::keys->{verification}{public}} = $config->{coinbase}{reward};
printf "--- UTXO %s...\n",Dump($UTXO);

my $tx = LoadFile($ENV{SITE}.'/templ/txcb01.yml');
my $txkw = &kwdigest($tx);
printf "--- tx (%s) %s...\n",$txkw,Dump($tx);


my $txok = &isTxValid($tx);
printf "is %s valid: ? %s\n",$txkw,$txok;

exit $?;

1;