use PublicInbox::MIME;
use PublicInbox::MsgTime;
use PublicInbox::TestCommon;
+require_mods(qw(Email::MIME));
our $received_date = 'Mon, 22 Jan 2007 13:16:24 -0500';
sub datestamp ($) {
my ($date) = @_;
local $SIG{__WARN__} = sub {}; # Suppress warnings
- my $mime = PublicInbox::MIME->create(
+ my $mime = Email::MIME->create(
header => [
From => 'a@example.com',
To => 'b@example.com',
sub timestamp ($) {
my ($received) = @_;
local $SIG{__WARN__} = sub {}; # Suppress warnings
- my $mime = PublicInbox::MIME->create(
+ my $mime = Email::MIME->create(
header => [
From => 'a@example.com',
To => 'b@example.com',
SKIP: {
require_mods('Date::Parse', 1);
+ my $now = time;
+ if (join("\0", gmtime($now)) ne join("\0", localtime($now))) {
+ skip('needs TZ=UTC to test zone-less parsing', 1);
+ }
is_datestamp('Sat, 27 Sep 1997 10:02:32', [875354552, '+0000']);
}