use Test::More tests => 4; BEGIN { use_ok('Net::Yadis::Discovery') }; my $disc = Net::Yadis::Discovery->new(); $disc->identity_url("http://example.com"); my $buffer; foreach () { if (/^result:(.+)$/) { if ($1 =~ "^ok") { ok ($disc->parse_xrd($buffer)); } else { ok (!eval{ $disc->parse_xrd($buffer) }) ; } $buffer = ''; } else { $buffer .= $_; } } __END__ http://openid.net/signon/1.0 http://openid.net/signon/1.1 http://www.myopenid.com/server http://myid.myopenid.com/ http://openid.net/signon/1.0 http://openid.net/signon/1.1 http://www.livejournal.com/openid/server.bml http://www.livejournal.com/users/myid/ http://openid.net/signon/1.0 http://openid.net/signon/1.1 http://videntity.org/server http://myid.videntity.org/ http://openid.net/signon/1.0 http://openid.net/signon/1.1 http://auth.mylevel9.com/?action=openid http://mylevel9.com/user/myid http://www.sixapart.com/typekey/sso/1.0 myid http://lid.netmesh.org/sso/2.0 http://mylid.net/myid http://lid.netmesh.org/sso/1.0 http://mylid.net/myid result:ok result:ng http://openid.net/signon/1.0 http://openid.net/signon/1.1 http://www.myopenid.com/server http://myid.myopenid.com/ http://openid.net/signon/1.0 http://openid.net/signon/1.1 http://www.livejournal.com/openid/server.bml http://www.livejournal.com/users/myid/ http://openid.net/signon/1.0 http://openid.net/signon/1.1 http://videntity.org/server http://myid.videntity.org/ result:ng