use strict;
use Test2::Tools::Subtest qw/subtest_buffered/;
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 $AuthzMsg;
my $mock_domain = 'domain.tld';
my $mock_token = 'PREDICTABLE_TOKEN';
sub _reset_data {
$AuthzMsg = WWW::LetsEncrypt::Message::Authorization->new({
JWK => $JWK,
domain => $mock_domain,
_token => $mock_token,
});
};
subtest_buffered http_challenge => sub {
_reset_data();
my ($val) = $AuthzMsg->_create_key_auth_token();
is(
$val,
"$mock_token.i-0IIn3UqonpV2r6_bOeVnizN97F4zwG38DeBfMeJv8",
"Generated correct http token"
);
};
subtest_buffered dns_challenge => sub {
_reset_data();
$AuthzMsg->challenge('dns-01');
my ($val) = $AuthzMsg->_create_key_auth_token();
is(
$val,
'IWDujpqRw_qD1lDopwNlItt0KNOmT2xxzwo6SdcHy5E',
"Generated correct http token"
);
};
done_testing;