view release on metacpan or  search on metacpan

t/Transaction/sign.t  view on Meta::CPAN

	isa_ok $ex, 'Bitcoin::Crypto::Exception::TransactionScript';

	$prv->sign_transaction($tx, signing_index => 0);

	$ex = dies { $tx->verify };
	ok $ex, 'input verification failed ok (one signed)';
	isa_ok $ex, 'Bitcoin::Crypto::Exception::TransactionScript';

	$prv->sign_transaction($tx, signing_index => 1);

	my $alive = lives { $tx->verify };
	ok $alive, 'input verification ok (two signed)';
};

done_testing;