Blame t/00-compile.t

Packit b8b726
use 5.006;
Packit b8b726
use strict;
Packit b8b726
use warnings;
Packit b8b726
Packit b8b726
# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.054
Packit b8b726
Packit b8b726
use Test::More;
Packit b8b726
Packit b8b726
plan tests => 1 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
Packit b8b726
Packit b8b726
my @module_files = (
Packit b8b726
    'File/Remove.pm'
Packit b8b726
);
Packit b8b726
Packit b8b726
Packit b8b726
Packit b8b726
# fake home for cpan-testers
Packit b8b726
use File::Temp;
Packit b8b726
local $ENV{HOME} = File::Temp::tempdir( CLEANUP => 1 );
Packit b8b726
Packit b8b726
Packit b8b726
my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib';
Packit b8b726
Packit b8b726
use File::Spec;
Packit b8b726
use IPC::Open3;
Packit b8b726
use IO::Handle;
Packit b8b726
Packit b8b726
open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
Packit b8b726
Packit b8b726
my @warnings;
Packit b8b726
for my $lib (@module_files)
Packit b8b726
{
Packit b8b726
    # see L<perlfaq8/How can I capture STDERR from an external command?>
Packit b8b726
    my $stderr = IO::Handle->new;
Packit b8b726
Packit b8b726
    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]");
Packit b8b726
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';
Packit b8b726
    my @_warnings = <$stderr>;
Packit b8b726
    waitpid($pid, 0);
Packit b8b726
    is($?, 0, "$lib loaded ok");
Packit b8b726
Packit b8b726
    shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/
Packit b8b726
        and not eval { require blib; blib->VERSION('1.01') };
Packit b8b726
Packit b8b726
    if (@_warnings)
Packit b8b726
    {
Packit b8b726
        warn @_warnings;
Packit b8b726
        push @warnings, @_warnings;
Packit b8b726
    }
Packit b8b726
}
Packit b8b726
Packit b8b726
Packit b8b726
Packit b8b726
is(scalar(@warnings), 0, 'no warnings found')
Packit b8b726
    or diag 'got warnings: ', ( Test::More->can('explain') ? Test::More::explain(\@warnings) : join("\n", '', @warnings) ) if $ENV{AUTHOR_TESTING};
Packit b8b726
Packit b8b726