rev 1802 - trunk/Email-Store/t

[prev] [thread] [next] [lurker] [Date index for 2005/02/03]

Author: richardc
Date: 2005-02-03 15:05:23 +0000 (Thu, 03 Feb 2005)
New Revision: 1802

Modified:
   trunk/Email-Store/t/date-test2
   trunk/Email-Store/t/date.t
Log:
fixup the date test

Modified: trunk/Email-Store/t/date-test2
===================================================================
--- trunk/Email-Store/t/date-test2	2005-02-03 15:04:02 UTC (rev 1801)
+++ trunk/Email-Store/t/date-test2	2005-02-03 15:05:23 UTC (rev 1802)
@@ -1,7 +1,7 @@
 From: Foo Bar <foo@xxx.xxx>
 To: Me <simon@xxxxxxxx.xxx>
 Subject: Test Mail
-Message-ID: 20001128211546.A29664@xxx.xxx
+Message-ID: 20001128211546.A296642@xxx.xxx
 Date: Fri, 19 Jun 2004 11:14:35 +0100 
 
 > J0!

Modified: trunk/Email-Store/t/date.t
===================================================================
--- trunk/Email-Store/t/date.t	2005-02-03 15:04:02 UTC (rev 1801)
+++ trunk/Email-Store/t/date.t	2005-02-03 15:05:23 UTC (rev 1802)
@@ -1,4 +1,4 @@
-use Test::More tests => 10;
+use Test::More tests => 11;
 use File::Slurp;
 BEGIN { unlink("t/test.db"); }
 use Email::Store "dbi:SQLite:dbname=t/test.db";
@@ -8,8 +8,6 @@
 my $data = read_file("t/date-test");
 Email::Store::Mail->store($data);
 
-
-
 # We need one mail:
 my @mails = Email::Store::Mail->retrieve_all;
 is(@mails, 1, "Only one mail");
@@ -29,10 +27,13 @@
 $data = read_file("t/date-test2");
 Email::Store::Mail->store($data);
 
+@mails = Email::Store::Mail->retrieve_all;
+is(@mails, 2, "now two mails");
+
 my @searched = Email::Store::Mail->search_between(1087516800,1087603199);
 
 is(@searched, 1, "Search only found one mail");
 
 @searched = Email::Store::Mail->search_between(1087516800,1087689600);
-is(@searched, 2, "Search only found two mail");
+is(@searched, 2, "Search found two mails");
 

• rev 1802 - trunk/Email-Store/t richardc 15:05 on 03 Feb 2005

Generated at 16:00 on 03 Feb 2005 by mariachi 0.52