view release on metacpan or  search on metacpan

t/rfc7520.t  view on Meta::CPAN

    x => "YU4rRUzdmVqmRtWOs2OpDE_T5fsNIodcG8G5FWPrTPMyxpzsSOGaQLpe2FpxBmu2",
    y => "A8-yxCHxkfBz3hKZfI1jUYMjUhsEveZ9THuwFjH2sCNdtksRJU7D5-SkgaFL1ETP",
    d => "iTx2pk7wW-GqJkHcEkFQb2EFyYcO7RugmaW3mRrQVAOUiPommT0IdnYK2xDlZh-j",
};

{
    my $jwe =
        "eyJhbGciOiJFQ0RILUVTK0ExMjhLVyIsImtpZCI6InBlcmVncmluLnRvb2tAdHVja2Jvcm91Z2guZXhhbXBsZSIsImVwayI6eyJrdHkiOiJFQyIsImNydiI6IlAtMzg0IiwieCI6InVCbzRrSFB3Nmtiang1bDB4b3dyZF9vWXpCbWF6LUdLRlp1NHhBRkZrYllpV2d1dEVLNml1RURzUTZ3TmROZzMiLCJ5Ijoic3AzcDVTR...
        ".0DJjBXri_kBcC46IkU5_Jk9BqaQeHdv2".
        ".mH-G2zVqgztUtnW_".
        ".tkZuOO9h95OgHJmkkrfLBisku8rGf6nzVxhRM3sVOhXgz5NJ76oID7lpnAi_cPWJRCjSpAaUZ5dOR3Spy7QuEkmKx8-3RCMhSYMzsXaEwDdXta9Mn5B7cCBoJKB0IgEnj_qfo1hIi-uEkUpOZ8aLTZGHfpl05jMwbKkTe2yK3mjF6SBAsgicQDVCkcY9BLluzx1RmC3ORXaM0JaHPB93YcdSDGgpgBWMVrNU1ErkjcMqMoT_...
        ".WuGzxmcreYjpHGJoa17EBg";

    my ($header, $payload) = decode_jwt(token=>$jwe, key=>$jwk_ec_p384,
                                        decode_header=>1, decode_payload=>0);
    is($header->{alg}, "ECDH-ES+A128KW", "§5.4 header alg");
    is($header->{enc}, "A128GCM",        "§5.4 header enc");
    is($header->{epk}{crv}, "P-384",     "§5.4 epk uses P-384");
    is($payload, $rfc7520_plaintext,     "§5.4 plaintext recovered");
}