X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01-parse.t;h=ad5a8c54f75ddb4aa09c7d5019f3901aba1f65de;hb=ecac864aa8679ab8937614deed1f0f6616ced10f;hp=f71f25f1b9e4aaa130fee7ca148780d768bb0389;hpb=23103173b588d98a69b6b3d217dc9c9a47910b02;p=catagits%2FXML-Feed.git

diff --git a/t/01-parse.t b/t/01-parse.t
index f71f25f..ad5a8c5 100644
--- 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 => 72;
 use XML::Feed;
 use URI;
 
@@ -68,3 +68,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.