Merge pull request #186 from timlegge/authn_request_issue

Fix AuthnRequest name space typo issue

Author: waterkip

lib/Net/SAML2.pm

@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 package Net::SAML2;
-our $VERSION = "0.71";
+our $VERSION = "0.72";
 
 require 5.012;
 

lib/Net/SAML2/Protocol/AuthnRequest.pm

@@ -192,7 +192,7 @@ Returns the AuthnRequest as XML.
 =cut
 
 my $samlp = ['samlp' => URN_PROTOCOL];
-my $saml  = ['samlp' => URN_ASSERTION];
+my $saml  = ['saml' => URN_ASSERTION];
 
 sub as_xml {
     my ($self) = @_;

t/25-verify-authn-post-sign_xml.t

@@ -0,0 +1,35 @@
+use strict;
+use warnings;
+use Net::SAML2;
+use MIME::Base64 qw/decode_base64/;
+use XML::LibXML;
+
+use Test::Lib;
+use Test::Net::SAML2;
+my $sp = net_saml2_sp();
+
+my $metadata = path('t/idp-metadata.xml')->slurp;
+
+my $idp = Net::SAML2::IdP->new_from_xml(
+    xml    => $metadata,
+    cacert => 't/cacert.pem'
+);
+
+my $authn = $sp->authn_request(
+        $idp->sso_url('urn:oasis:names:tc:SAML:2.0:bindings:HTTP-POST'),
+        $idp->format || '', # default format.
+        )->as_xml();
+
+my $post = $sp->sp_post_binding($idp, 'SAMLRequest');
+
+my $signed = decode_base64($post->sign_xml($authn));
+
+my $dom = XML::LibXML->load_xml( string => $signed );
+
+my $parser = XML::LibXML::XPathContext->new($dom);
+$parser->registerNs('saml2p', 'urn:oasis:names:tc:SAML:2.0:protocol');
+$parser->registerNs('saml2', 'urn:oasis:names:tc:SAML:2.0:assertion');
+$parser->registerNs('dsig', 'http://www.w3.org/2000/09/xmldsig#');
+ok($parser->exists('//dsig:Signature'), "The XML is now signed");
+
+done_testing;