Commit 5fcdf076 authored by Yadd's avatar Yadd
Browse files

Verify that SAML request is XML (#595)

parent 3e0c1b56
use Test::More;
use strict;
use IO::String;
use MIME::Base64;
BEGIN {
require 't/test-lib.pm';
}
my $maintests = 25;
my $maintests = 26;
my $debug = 'error';
my $res;
my %handlerOR = ( issuer => [], sp => [] );
......@@ -92,6 +93,8 @@ SKIP: {
' <input type="hidden" name="SAMLRequest" id="SAMLRequest" value="...'
);
my $samlReq = $1;
ok( decode_base64($samlReq) =~ /^</s, 'SAML request seems valid' )
or explain( decode_base64($samlReq), '<?xml ...' );
ok(
$res->[2]->[0] =~ m#<form id="form" action="http://auth.idp.com(.*?)"#s,
'Found IdP URL'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment