Commit | Line | Data |
---|---|---|
7b5fccb1 | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use Test::More tests => 2; | |
5 | use XML::Feed; | |
6 | ||
7 | my $file = 't/samples/rss20-p.xml'; | |
8 | my $feed = XML::Feed->parse($file); | |
9 | isa_ok($feed, 'XML::Feed::Format::RSS'); | |
10 | my $entry = ($feed->entries)[0]; | |
11 | is($entry->link, 'http://creograf.ru/post/regexp -js'); |