use Test::More tests => 15;
BEGIN { use_ok('Net::Yadis::Discovery') };
my $disc = Net::Yadis::Discovery->new();
foreach (<DATA>) {
my ($url,$final,$xrd) = split(/[\t\n]/,$_);
next if ($xrd =~ /xrds_html$/); # Not correspond for Yadis document's header is text/html case.
$disc->discover($url);
my $identity_url = $disc->identity_url;
my $xrd_url = $disc->xrd_url;
$identity_url =~ s/www\.openidenabled\.com\/resources/openidenabled.com/;
$xrd_url =~ s/www\.openidenabled\.com\/resources/openidenabled.com/;
is($identity_url,$final);
is($xrd_url,$xrd);
}
__END__