Commit | Line | Data |
---|---|---|
4679cf3f | 1 | use strict; |
2 | use XML::Feed; | |
3 | ||
4 | use Test::More; | |
5 | plan tests => 3; | |
6 | ||
7 | my $feed = XML::Feed->parse("t/samples/atom-10-example.xml"); | |
8 | is $feed->title, 'Example Feed'; | |
9 | is $feed->link, 'http://example.org/', "link without rel"; | |
10 | ||
11 | my $e = ($feed->entries)[0]; | |
12 | ok $e->link, 'entry link without rel'; | |
13 |