diff options
author | Eric Wong <e@80x24.org> | 2024-01-16 11:52:51 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2024-01-17 09:37:53 +0000 |
commit | 9b381304c383df305ee0d1f082d4747ef336e936 (patch) | |
tree | d212477acd6c69515a35fc13ebc1371b7c7444e4 | |
parent | 25aa06e05957cba74798884f53aa317a0ccd04b8 (diff) | |
download | public-inbox-9b381304c383df305ee0d1f082d4747ef336e936.tar.gz |
We moved to PublicInbox::Eml a while back and have no plans to go back to using Email::MIME, so don't tempt users and packagers to waste disk space on Email::MIME.
-rw-r--r-- | lib/PublicInbox/TestCommon.pm | 1 | ||||
-rw-r--r-- | t/eml.t | 6 | ||||
-rw-r--r-- | t/import.t | 3 | ||||
-rw-r--r-- | t/mime.t | 4 |
4 files changed, 8 insertions, 6 deletions
diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm index 25caaaa9..5f159683 100644 --- a/lib/PublicInbox/TestCommon.pm +++ b/lib/PublicInbox/TestCommon.pm @@ -266,6 +266,7 @@ sub require_mods { } return unless @need; my $m = join(', ', @need)." missing for $0"; + $m =~ s/\bEmail::MIME\b/Email::MIME (development purposes only)/; skip($m, $maybe) if $maybe; plan(skip_all => $m) } @@ -1,8 +1,8 @@ #!perl -w -# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org> +# Copyright (C) all contributors <meta@public-inbox.org> # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> +use v5.10.1; # TODO: check unicode_strings w/ 5.12 use strict; -use Test::More; use PublicInbox::TestCommon; use PublicInbox::MsgIter qw(msg_part_text); my @classes = qw(PublicInbox::Eml); @@ -355,7 +355,7 @@ if ('maxparts is a feature unique to us') { } SKIP: { - require_mods('PublicInbox::MIME', 1); + require_mods('Email::MIME', 1); my $eml = eml_load 't/utf8.eml'; my $mime = mime_load 't/utf8.eml'; for my $h (qw(Subject From To)) { @@ -98,7 +98,8 @@ ok($@, 'Import->add fails on non-existent dir'); my @cls = qw(PublicInbox::Eml); SKIP: { - require_mods('PublicInbox::MIME', 1); + require_mods('Email::MIME', 1); + require PublicInbox::MIME; push @cls, 'PublicInbox::MIME'; }; @@ -1,10 +1,10 @@ #!perl -w -# Copyright (C) 2017-2021 all contributors <meta@public-inbox.org> +# Copyright (C) all contributors <meta@public-inbox.org> # This library is free software; you can redistribute it and/or modify # it under the same terms as Perl itself. # Artistic or GPL-1+ <https://www.gnu.org/licenses/gpl-1.0.txt> +use v5.10.1; # TODO: check unicode_strings w/ v5.12 use strict; -use Test::More; use PublicInbox::TestCommon; use PublicInbox::MsgIter; my @classes = qw(PublicInbox::Eml); |