Add date

[catagits/XML-Feed.git] / t / 01-parse.t

diff --git a/t/01-parse.t b/t/01-parse.t
index f71f25f..b1939d1 100644 (file)
--- a/t/01-parse.t
+++ b/t/01-parse.t
@@ -1,7 +1,7 @@
-# $Id: 01-parse.t 1867 2005-08-09 20:41:15Z btrott $
+# $Id: 01-parse.t 1921 2006-02-28 02:50:52Z btrott $
 
 use strict;
-use Test::More tests => 70;
+use Test::More tests => 75;
 use XML::Feed;
 use URI;
 
@@ -58,6 +58,7 @@ for my $file (sort keys %Feeds) {
     is($dt->iso8601, '2004-05-30T07:39:25');
     like($entry->content->body, qr/<p>Hello!<\/p>/);
     is($entry->summary->body, 'Hello!...');
+    is(($entry->category)[0], 'Travel');
     is($entry->category, 'Travel');
     is($entry->author, 'Melody');
     ok($entry->id);
@@ -68,3 +69,9 @@ $feed = XML::Feed->parse('t/samples/rss20-no-summary.xml')
 my $entry = ($feed->entries)[0];
 ok(!$entry->summary->body);
 like($entry->content->body, qr/<p>This is a test.<\/p>/);
+
+$feed = XML::Feed->parse('t/samples/rss10-invalid-date.xml')
+    or die XML::Feed->errstr;
+$entry = ($feed->entries)[0];
+ok(!$entry->issued);   ## Should return undef, but not die.
+ok(!$entry->modified); ## Same.