Commit | Line | Data |
c4d4c98e |
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 | |