[catagits/XML-Feed.git] / t / 15-odd-date.t

#!perl -w

use strict;
use Test::More tests => 3;
use XML::Feed;

ok (my $feed  = XML::Feed->parse('t/samples/rss10-odd-date.xml'),  "Parsed file");
ok (my ($entry) = $feed->entries,                                  "Got entry");
is ($entry->issued . '',"2009-05-29T20:17:07",                     "Got correct issued date");
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");
18090117	9	is ($entry->issued . '',"2009-05-29T20:17:07", "Got correct issued date");
daba7240	10