FM / t

/home/.cpan/build/TimeDate-2.33-0/t

Name	Size	Mode	Actions
cpanrt.t	1950	0644	edit dl rm
date.t	4818	0644	edit dl rm
format.t	2412	0644	edit dl rm
getdate.t	8113	0644	edit dl rm
lang.t	348	0644	edit dl rm

Edit: /home/.cpan/build/TimeDate-2.33-0/t/cpanrt.t (1950B)

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";
}

cmd: