X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FTestCommon.pm;h=978c3cd7bafaf4a1cc82a7a78724296453f49cbd;hb=46742d95647c7a80cb2f60d5c134717dd91e22e2;hp=600843f006663815a3b0f95b1f61a1c24dfa3899;hpb=57af9c8d0bedafac3267b5b42f963bb8aa5c2ea1;p=public-inbox.git 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> })); }