t/msgtime: add more checks for known cases

Broken email clients sent the darndest things, make sure
we can still support them when we make Date::Parse optional.

diff --git a/t/msgtime.t b/t/msgtime.t
index 7bf731856a0670b419fe35f7798bef15a2b575dc..f969fa25f6aa5f1bd22ed739544c40494ab93d40 100644 (file)
--- a/t/msgtime.t
+++ b/t/msgtime.t
@@ -88,5 +88,8 @@ is_datestamp('Thursday, 20 Feb 2003 01:14:34 +000', [1045703674, '+0000']);
 is_datestamp('Fri, 28 Jun 2002 12:54:40 -700', [1025294080, '-0700']);
 is_datestamp('Sat, 12 Jan 2002 12:52:57 -200', [1010847177, '-0200']);
 is_datestamp('Mon, 05 Nov 2001 10:36:16 -800', [1004985376, '-0800']);
-
+is_datestamp('Tue, 3 Jun 2003 8:58:23 --500', [1054648703, '-0500']);
+is_datestamp('Thu, 18 May 100 10:40:43 +0200 (MET DST)', [958639243, '+0200']);
+is_datestamp('Thu, 18 May 2000 10:40:43 +0200', [958639243, '+0200']);
+is_datestamp('Tue, 27 Feb 2007 16:23:25 -0060', [1172597005, '-0100']);
 done_testing();