Edit

Editing: cpanrt.t

use Date::Format qw(time2str strftime);
use Date::Parse qw(strptime str2time);

print "1..9\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:20";
    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";
}

{   # RT#84075: Date::Parse::str2time maps date in 1963 to 2063
  my $this_year = 1900 + (gmtime(time))[5];
  my $target_year = $this_year - 50;
  my $date = "$target_year-01-01 00:00:00 UTC";
  my $time = str2time($date);
  my $year_parsed_as = 1900 + (gmtime($time))[5];
  print "not " unless $year_parsed_as == $target_year;
  print "ok ", $i++, "\n";
}

Back