view release on metacpan or  search on metacpan

t/Key/Public.t  view on Meta::CPAN

		pubkey => '03d939f548ad09b3f9130b7567d7b27d6862651f3363bc68b15676da56f26c994d',
		compat_address => '35aWDrYGwEokTb22bYw2HbtXxySuAemo92',
		segwit_address => 'bc1qy2q5lgwt92y8fy2e9w9c8tpze2lej7f9rac5rl',
	},
	{
		pubkey => '0396aa08d4e14e4fd994f6618a4db40eb1f22b9368c6f4d48b77c43e1d852d6665',
		compat_address => '3MPiebrSnMLCEPr8NsEemwHY1oUrKCCRcL',
		segwit_address => 'bc1qvq5gcgfewz77lp6aa8uscwxkq4hf2xgjz7xf4w',
	},
	{
		pubkey => '02041cd51a1d0df8fba2dd5a87b1b08bc83cfbd4b2c605334629ed99d14a26c051',
		compat_address => '3NGaLfS945PVnYPMfhyDcgcohoXpEaW5Th',
		segwit_address => 'bc1q8u2wsar26p6z2r9ckh3t8xauhcm8sgzd2jzgkr',
	},
	{
		pubkey => '0367fc07d2a9d6b95305ea1bc33a3b693a5d0f9a6a90c2bac86c67e79808fcc98d',
		compat_address => '3EtNoU8L5Z2ikAVfGB1qf7UUFmGhASRkcM',
		segwit_address => 'bc1qfrxtzat3nutef828dr5ua7seq5d6selpued3dy',
	},
	{
		pubkey => '0332984aea6809830debe9f31dcb874b8b98a50b579d418184bf8ae55395c19567',
		compat_address => '38bKkt524L2KTr76kNapMxnnPF3RUt9skS',
		segwit_address => 'bc1qmhf3n5a06szyvp8yrr6ggcrpm3f7uyxsz62u29',
	},
	{
		pubkey => '03765fd0392d349415328fa40b83b05088d188b54b7b5d7a6a20124b70c17bc129',
		compat_address => '3KgwLH9P85yRFnN1f1sTrBTGXU6Ufek8sZ',
		segwit_address => 'bc1q5v4slm3x0pteg7n7ldefgsn9jpdkkg6e985vek',
	},
);

my %validation_case = (
	uncompressed =>
		'04a62dcf573c2639aab8e6df5178c22f1ea0d2a3f90c6ed56d5cd5c0c87748ff3e93ba8c6a4b977ec059281461325a1f5700aa6bfaa263f97f1d716f185691044b',
	compressed => '03a62dcf573c2639aab8e6df5178c22f1ea0d2a3f90c6ed56d5cd5c0c87748ff3e',
	sig =>
		'3045022100929739e1d9fb3bf37c92b7fc8a2df29a59199381bf835134e3ef2774a838a6d102201939eda824d35ff834c08a195a454054f6c8edb264228aab9f9b7d282a0f58da',
);

my $case_num = 0;
foreach my $case (@cases_compression) {
	subtest "testing basic creation of keys, case $case_num" => sub {
		my $pubkey = btc_pub->from_serialized([hex => $case->{uncompressed}]);

		$pubkey->set_compressed(0);
		is(to_format [hex => $pubkey->to_serialized], $case->{uncompressed}, 'imported and exported correctly');
		is($pubkey->get_legacy_address, $case->{uncompressed_address}, 'correctly created address');

		$pubkey->set_compressed(1);
		is(to_format [hex => $pubkey->to_serialized], $case->{compressed}, 'exported compressed key correctly');
		is(
			$pubkey->get_legacy_address,
			$case->{compressed_address},
			'correctly created compressed address'
		);

		$pubkey->set_purpose(44);
		is(
			$pubkey->get_address,
			$case->{compressed_address},
			'correctly guessed legacy address'
		);
	};

	++$case_num;
}

$case_num = 0;
foreach my $case (@cases_segwit) {
	subtest "testing SegWit readiness, case $case_num" => sub {
		my $pubkey = btc_pub->from_serialized([hex => $case->{pubkey}]);

		is(
			$pubkey->get_compat_address,
			$case->{compat_address},
			'correctly created segwit compat address'
		);

		is(
			$pubkey->get_segwit_address,
			$case->{segwit_address},
			'correctly created segwit native address'
		);

		$pubkey->set_purpose(49);

		is(
			$pubkey->get_address,
			$case->{compat_address},
			'correctly guessed segwit compat address'
		);

		$pubkey->set_purpose(84);

		is(
			$pubkey->get_address,
			$case->{segwit_address},
			'correctly guessed segwit native address'
		);
	};

	++$case_num;
}

subtest 'verify message using pubkey' => sub {
	my $message = 'Perl test script';

	my $pub = btc_pub->from_serialized([hex => $validation_case{uncompressed}]);
	$pub->set_compressed(0);

	my $pub_compressed = btc_pub->from_serialized([hex => $validation_case{compressed}]);
	my $random_pub = btc_pub->from_serialized([hex => $cases_compression[0]{compressed}]);

	ok($pub->verify_message($message, [hex => $validation_case{sig}]), 'verified message correctly');
	ok(
		$pub_compressed->verify_message($message, [hex => $validation_case{sig}]),
		'compressed verified message correctly'
	);
	ok(
		!$random_pub->verify_message($message, [hex => $validation_case{sig}]),
		'verification fails with different pubkey'
	);
};

subtest 'generate addresses from non-default network' => sub {
	my $pub = btc_pub->from_serialized([hex => $validation_case{uncompressed}]);
	$pub->set_compressed(0);
	$pub->set_network('bitcoin_testnet');

	my $testnet_addr = 'mtSw17LGTmJgBKx1i8RscCV4PTQoWg7NsR';
	is($pub->network->name, 'Bitcoin Testnet', 'changed network to testnet');
	is($pub->get_legacy_address, $testnet_addr, 'created different address correctly');
};

done_testing;