X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=lib%2FPublicInbox%2FTestCommon.pm;h=978c3cd7bafaf4a1cc82a7a78724296453f49cbd;hp=600843f006663815a3b0f95b1f61a1c24dfa3899;hb=46742d95647c7a80cb2f60d5c134717dd91e22e2;hpb=3b1b7abf814dbc7f2a737b2ca0e12b0fa518ff44 diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm index 600843f0..978c3cd7 100644 --- a/lib/PublicInbox/TestCommon.pm +++ b/lib/PublicInbox/TestCommon.pm @@ -8,12 +8,15 @@ use parent qw(Exporter); use Fcntl qw(FD_CLOEXEC F_SETFD F_GETFD :seek); use POSIX qw(dup2); use IO::Socket::INET; +use PublicInbox::MIME; # temporary our @EXPORT = qw(tmpdir tcp_server tcp_connect require_git require_mods run_script start_script key2sub xsys xqx mime_load eml_load); sub mime_load ($) { my ($path) = @_; open(my $fh, '<', $path) or die "open $path: $!"; + # test should've called: require_mods('Email::MIME') + require PublicInbox::MIME; PublicInbox::MIME->new(\(do { local $/; <$fh> })); }