view release on metacpan or  search on metacpan

t/17-lowercase-url-escaping.t  view on Meta::CPAN

use Test::Lib;
use Test::Net::SAML2;

use Net::SAML2::Binding::Redirect;
use File::Slurper qw/read_text/;

my $url = <<LOWERCASE;
https://netsaml2-testapp.local/sls-redirect-response?SAMLRequest=fVLLTsMwELzzFVXuTuJHGsdqIyHgUAk40IoDF7R1NhAptaOsI%2fh83FQ9VKL1xa%2bdnd2ZXREc%2bsE8%2by8%2fhTekwTvCxeZxnXyKogJbNZKh5S0rASsmcQkMlJUCJKAEldwt%2fl3vOFLn3ToRaX4tZkM04cZRABdiYC4EyzXLlzsuTVEYr...
LOWERCASE

my $redirect = Net::SAML2::Binding::Redirect->new(
    key     => 't/net-saml2-key.pem',
    url     => 'https://netsaml2-testapp.local/sls-redirect-response',
    param   => 'SAMLRequest',
    cert    => read_text('t/net-saml2-cert.pem'),
    sig_hash => 'sha256',
);

my ($request, $relaystate) = $redirect->verify($url);

like($request, qr/NETSAML/,
    "Good Signature because we now don't alter the input with URI anymore");

done_testing();