view release on metacpan or  search on metacpan

t/WWW-LetsEncrypt-Message-Authorization/01_process_step.t  view on Meta::CPAN

use strict;
use warnings;

use Test2::Bundle::Extended;
use Test2::Tools::Subtest qw/subtest_buffered/;

use HTTP::Response;
use HTTP::Headers;
use JSON;
use WWW::LetsEncrypt::JWK::RSA;
use WWW::LetsEncrypt::Message::Authorization;

my $rsa_private_key =<<'END';
-----BEGIN RSA PRIVATE KEY-----
MIICXQIBAAKBgQDq3D0BY8g9gQ/C1kByAcXgZBGo3Ww/RnFNkEA8hdtq8UVIpK6I
eUgpTIdI83OH7OTz7yNU6FXuchIKfsoKZNKq7LQsYaK4OxJqDrpsoTy5dq9cXFCP
11sxXJCy5uMtyXy+trFbBEjsbhqgOTYiTVy6yPqAc7pEGd6ZA2j3ECruhQIDAQAB
AoGAZK2wwS3DIwp2dTFfQwAbkUuUfm0dACr0WymhP9Cp9Lgk2TUvVHWZR4r024Lx
Xa1hoGg9HyLR43um3DTp63a5D5YuiVTJPJ5ldwzg9bXg7TyZF31hCWNjW/aIHdbk
IojfGkxRNSLJnxUqqUL4u+sD/TvMDoD5n2m/xWNE+0/fhykCQQD/Vue4EBQexj+z
KyytAqZbOffEFDbg12+AT0pHLE2hNeAu9TQXktYLVqcG2mMhxp9iR5mf9P+CGU0g
8q6rYCAnAkEA63fFaBrpS1DorF33HwMiv4ycNi7WDWEw9UbtZg1bM0BVj1bPdxVP
0oVLnIQty6KSAiRwERhQR88SmG49j4C7cwJBAIuSBmE/MLBNr14RWH9Ndn9hJUSh
xAmM2R7quHBFED3xhBRG5e2IzsUt3WjKkOtSdaaz+o5LzipgCB/dZ4q3pXsCQQDM
8jh9/j5kcY2yyS6YbZBHDMnCV02z445LTmq+0o04tJxD4Jk+2uvZHm/LUTjS7zMK
blCkcHcfqVpUFk+6oZ+FAkA6ytcHSHmzRDsMe5aQuD2SJhZ/XtA5vXYFKf5SXGni
Jwd0k2SrxvrrIE9ieWlbHzV1Acw1AL1jSZ6sVZcXEkZi
-----END RSA PRIVATE KEY-----
END

my $JWK = WWW::LetsEncrypt::JWK::RSA::load_cert({
	private_key => $rsa_private_key,
	key_id      => 1,
	alg         => 'RS256',
});

my $Message;


sub _reset_data {
	$Message = WWW::LetsEncrypt::Message::Authorization->new({
		JWK    => $JWK,
		domain => 'example.tld',
	});
	$Message->_step('request');
	$Message->_prep_step();
	return;
}


subtest_buffered status_pending => sub {
	_reset_data;
	my $Response = _MockResponse(
		201,
		{
			status => 'pending',
			challenges => [
				{
					type   => 'http-01',
					uri    => 'https://example.com',
					token  => 'PREDICTABLE_TOKEN',
					status => 'pending',
				},
			],
		}
	);
	my $processed_ref = $Message->_process_response($Response);

	my $token = 'PREDICTABLE_TOKEN';
	my $key_auth_token = "$token." . $Message->JWK->thumbprint();

	like(
		$processed_ref,
		{
			successful => 1,
			finished   => 0,
			token      => $token,
			content    => $key_auth_token,
		},
		'Returned the expected response for a valid request submission'
	);
	is($Message->_step, 'submit_challenge', 'Properly set the next _step');
};

subtest_buffered error => sub {
	_reset_data;
	my $Response = _MockResponse(519);
	my $response_ref = $Message->_process_response($Response);
	is($response_ref, {error => 1}, 'Correctly raised an error');
};

done_testing;