The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 9;
use Test::Deep;
use Test::NoWarnings;

use Module::CPANTS::Analyse;

eval {
    my $an=Module::CPANTS::Analyse->new();
};
like($@, qr/need a dist/, 'exception');

my $a=Module::CPANTS::Analyse->new({dist => 'dummy'});

{
	my @plugins=$a->plugins;
	is(@plugins,15,'number of plugins');
}


my $plugins=$a->mck->generators;

is(shift(@$plugins),'Module::CPANTS::Kwalitee::Files','plugin order 1 Files');
is(shift(@$plugins),'Module::CPANTS::Kwalitee::Distname','plugin order 2 Distname');
is(shift(@$plugins),'Module::CPANTS::Kwalitee::MetaYML','plugin order 3 MetaYML');
is(shift(@$plugins),'Module::CPANTS::Kwalitee::FindModules','plugin order 4 FindModules');
is(pop(@$plugins),'Module::CPANTS::Kwalitee::CpantsErrors','plugin order last CpantsErrors');

cmp_deeply($plugins,bag(
        qw( Module::CPANTS::Kwalitee::Pod 
            Module::CPANTS::Kwalitee::Prereq 
            Module::CPANTS::Kwalitee::Uses 
            Module::CPANTS::Kwalitee::BrokenInstaller
            Module::CPANTS::Kwalitee::Manifest
            Module::CPANTS::Kwalitee::License
            Module::CPANTS::Kwalitee::NeedsCompiler
            Module::CPANTS::Kwalitee::Repackageable
            Module::CPANTS::Kwalitee::Version
            Module::CPANTS::Kwalitee::Distros
        )),'plugin the rest');