1 |
use strict; |
2 |
use XML::Feed; |
3 |
|
4 |
use Test::More; |
5 |
plan tests => 7; |
6 |
|
7 |
my $feed = XML::Feed->parse("t/samples/atom-full.xml"); |
8 |
is $feed->title, 'Content Considered Harmful Atom Feed'; |
9 |
is $feed->link, 'http://blog.jrock.us/', "link without rel"; |
10 |
|
11 |
my $e = ($feed->entries)[0]; |
12 |
ok $e->link, 'entry link without rel'; |
13 |
is $e->category, "Catalyst", "atom:category support"; |
14 |
is $e->modified, "2006-08-09T19:07:58", "atom:updated"; |
15 |
is $e->content->type, 'text/html'; |
16 |
like $e->content->body, qr/^<div class="pod">/; |
17 |
|
18 |
|
19 |
|