10-artifact-resolve.t

use Test::More;
use strict;
use warnings;
use Net::SAML2;

my $ar = Net::SAML2::Protocol::ArtifactResolve->new(
        issuer => 'http://some/sp',
        destination => 'http://some/idp',
        artifact => 'some-artifact',
);
ok($ar);
my $xml = $ar->as_xml;
ok($xml);
#diag($xml);

ok(qr/ID=".+"/, $xml);
ok(qr/IssueInstant=".+"/, $xml);

done_testing;