1 files changed, 55 insertions, 0 deletions
diff --git a/t/cpanrt.t b/t/cpanrt.t
new file mode 100644
index 0000000..32b37e7
--- /dev/null
+++ b/t/cpanrt.t
@@ -0,0 +1,55 @@
+use Date::Format qw(time2str strftime);
+use Date::Parse qw(strptime str2time);
+
+print "1..8\n";
+
+my $i = 1;
+
+{    # RT#45067 Date::Format with %z gives wrong results for half-hour timezones
+
+  foreach my $zone (qw(-0430 -0445)) {
+    my $zone_str = time2str("%Z %z", time, $zone);
+    print "# $zone => $zone_str\n";
+    print "not " unless $zone_str eq "$zone $zone";
+    print "ok ", $i++, "\n";
+  }
+}
+
+
+{    # RT#48164: Date::Parse unable to set seconds correctly
+
+  foreach my $str ("2008.11.30 22:35 CET", "2008-11-30 22:35 CET") {
+    my @t = strptime($str);
+    my $t = join ":", map { defined($_) ? $_ : "-" } @t;
+    print "# $str => $t\n";
+    print "not " unless $t eq "-:35:22:30:10:108:3600";
+    print "ok ", $i++, "\n";
+  }
+}
+
+{    # RT#17396: Parse error for french date with 'mars' (march) as month
+  use Date::Language;
+  my $dateP     = Date::Language->new('French');
+  my $timestamp = $dateP->str2time('4 mars 2005');
+  my ($ss, $mm, $hh, $day, $month, $year, $zone) = localtime $timestamp;
+  $month++;
+  $year += 1900;
+  my $date = "$day/$month/$year";
+  print "# $date\n";
+  print "not " unless $date eq "4/3/2005";
+  print "ok ", $i++, "\n";
+}
+
+{   #   [rt.cpan.org #52387] seconds since the Epoch, UCT 
+  my $time = time;
+  my @lt = localtime(time);
+  print "not " unless strftime("%s", @lt) eq $time;
+  print "ok ", $i++, "\n";
+  print "not " unless time2str("%s",$time) eq $time;
+  print "ok ", $i++, "\n";
+}
+
+{   # [rt.cpan.org #51664]  Change in str2time behaviour between 1.16 and 1.19
+  print "not " if str2time('16 Oct 09') < 0;
+  print "ok ", $i++, "\n";
+}