view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

);

my $birthday = 1153432704; # no, really!

is(
  email_gmdate($birthday),
  'Thu, 20 Jul 2006 21:58:24 +0000',
  "rjbs's birthday date format properly in GMT",
);

sub tz($) { sprintf "%s%02u%02u", Email::Date::Format::_tz_diff(shift) }

if ($^O ne 'MSWin32') {
  # https://github.com/rjbs/Email-Date-Format/issues/5
  #
  # Look, I'm not sure exactly what's going on here!  I think the short version
  # is "you can't set $TZ on Windows to make these tests go" and maybe it
  # hasn't worked in ages and I just didn't know.  Patches from better Windows
  # programmers than me are welcome! -- rjbs, 2023-01-13

  local $ENV{TZ} = "UTC+4";