Commit | Line | Data |
---|---|---|
daba7240 | 1 | #!perl -w |
2 | ||
3 | use strict; | |
4 | use Test::More tests => 3; | |
5 | use XML::Feed; | |
6 | ||
7 | ok (my $feed = XML::Feed->parse('t/samples/rss10-odd-date.xml'), "Parsed file"); | |
8 | ok (my ($entry) = $feed->entries, "Got entry"); | |
9 | is ($entry->issued, "2009-05-29T20:17:07", "Got correct issued date"); | |
10 |