use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use Test::DZil;
use Test::Fatal;
use Test::Deep;
use Path::Tiny;
use Moose::Util 'find_meta';
use File::pushd 'pushd';
use Dist::Zilla::App::Command::stale;
use lib 't/lib';
use NoNetworkHits;
use EnsureStdinTty;
use DiagFilehandles;
my @prompts;
{
use Dist::Zilla::Chrome::Test;
my $meta = find_meta('Dist::Zilla::Chrome::Test');
$meta->make_mutable;
$meta->add_before_method_modifier(prompt_str => sub {
my ($self, $prompt, $arg) = @_;
push @prompts, $prompt;
});
}
for my $check_prereqs ( 0, 1 ) {
subtest "check_all_prereqs => $check_prereqs" => sub {
my $checked_app;
BUILD:
my $tzil = Builder->from_config(
{ dist_root => 'does-not-exist' },
{
add_files => {
path(qw(source dist.ini)) => simple_ini(
[ GatherDir => ],
do {
my $mod = '0';
map {
my $phase = $_;
map {
[ 'Prereqs' => $phase . $_ => { 'Foo' . $mod++ => 0 } ]
} qw(Requires Recommends Suggests)
} qw(Runtime Test Develop);
},
[ 'PromptIfStale' => {
phase => 'release',
check_all_prereqs => $check_prereqs,
# some of these are duplicated with prereqs
module => [ 'Bar', map { 'Foo' . $_ } 0 .. 2 ]
},
],
[ 'FakeRelease' ],
),
path(qw(source lib Foo.pm)) => "package Foo;\n1;\n",
},
},
);
# if check_all_prereqs is true, then we should see errors on Foo 0 to 8, otherwise, just
# specifically requested 0 to 2
my $last = $check_prereqs ? '8' : '2';
if (not $checked_app++)
{
my $wd = pushd $tzil->root;
cmp_deeply(
[ Dist::Zilla::App::Command::stale->stale_modules($tzil) ],
[ 'Bar', map { 'Foo' . $_ } ('0' .. $last) ],
'app finds stale modules',
);
Dist::Zilla::Plugin::PromptIfStale::__clear_already_checked();
goto BUILD;
}
my %expected_prompts = (
before_release => [
map { ' ' . $_ . ' is not installed.' } 'Bar', map { 'Foo' . $_ } ('0' .. $last) ],
);
my @expected_prompts = map {
"Issues found:\n" . join("\n", @{$expected_prompts{$_}}, 'Continue anyway?')
} qw(before_release);
$tzil->chrome->logger->set_debug(1);
like(
exception { $tzil->release },
qr/\Q[PromptIfStale] Aborting release\E/,
'release aborted',
);
cmp_deeply(
\@prompts,
\@expected_prompts,
"check_all_prereqs = $check_prereqs: we were indeed prompted, for exactly all the right phases and types, and not twice for the duplicates",
) or diag 'got: ', explain \@prompts;
Dist::Zilla::Plugin::PromptIfStale::__clear_already_checked();
@prompts = ();
cmp_deeply(
$tzil->log_messages,
superbagof(
'[PromptIfStale] checking for stale modules' . ($check_prereqs ? ', prerequisites' : '') . '...',
),
'log messages indicate what is checked',
);
diag 'got log messages: ', explain $tzil->log_messages
if not Test::Builder->new->is_passing;
}
}
done_testing;