1use strict; 2use warnings; 3 4# This test was generated via Dist::Zilla::Plugin::Test::Compile 2.014 5 6use Test::More 0.88; 7 8 9 10use Capture::Tiny qw{ capture }; 11 12my @module_files = qw( 13Email/FolderType.pm 14Email/FolderType/Ezmlm.pm 15Email/FolderType/MH.pm 16Email/FolderType/Maildir.pm 17Email/FolderType/Mbox.pm 18); 19 20my @scripts = qw( 21 22); 23 24# no fake home requested 25 26my @warnings; 27for my $lib (@module_files) 28{ 29 my ($stdout, $stderr, $exit) = capture { 30 system($^X, '-Mblib', '-e', qq{require qq[$lib]}); 31 }; 32 is($?, 0, "$lib loaded ok"); 33 warn $stderr if $stderr; 34 push @warnings, $stderr if $stderr; 35} 36 37is(scalar(@warnings), 0, 'no warnings found') if $ENV{AUTHOR_TESTING}; 38 39 40 41 42 43done_testing; 44