view release on metacpan or  search on metacpan

t/generate.t  view on Meta::CPAN

subtest 'should generate mnemonic from random entropy' => sub {
	my $hash = App::Bitcoin::PaperWallet->generate(undef, 'pass');

	ok defined $hash->{mnemonic}, 'mnemonic defined ok';
	my @words = split / /, $hash->{mnemonic};
	is scalar @words, 24, 'word count ok';

	note "Generated mnemonic: $hash->{mnemonic}";
};

subtest 'invalid network should throw exception' => sub {
	my $ex = dies {
		my $hash = App::Bitcoin::PaperWallet->generate(undef, 'pass', {
			network => 'invalid',
		});
	};

	like $ex, qr/network invalid is not registered/, 'exception thrown ok';
};

subtest 'valid, non-default network should not throw exception' => sub {
	my $hash;
	my $lived = lives {
		$hash = App::Bitcoin::PaperWallet->generate(undef, 'pass', {
			network => 'dogecoin',
			segwit_addresses => 2,
			compat_addresses => 3,
		});
	};

	ok $lived, 'no exception ok';