root/WWW-Blog-Metadata-OpenID/trunk/t/01_openid.t

Revision 1612 (checked in by miyagawa, 15 years ago)

import

Line 
1 use strict;
2 use Test::More tests => 2;
3
4 use WWW::Blog::Metadata;
5
6 my $html = do { open my $in, "t/sample.html"; join '', <$in> };
7 my $meta = WWW::Blog::Metadata->extract_from_html(\$html, "http://www.example.com/")
8     or die WWW::Blog::Metadata->errstr;
9 is $meta->openid_server, "http://www.livejournal.com/misc/openid.bml";
10 is $meta->openid_delegate, undef;
11
Note: See TracBrowser for help on using the browser.