|
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$/);
$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 );
}
|