t/15-odd-date.t

   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