Test::Kwalitee - test the Kwalitee of a distribution before you release it

  Test::Kwalitee - test the Kwalitee of a distribution before you release it

  # in a separate test file
  use Test::More;

  eval { require Test::Kwalitee; Test::Kwalitee->import() };

  plan( skip_all => 'Test::Kwalitee not installed; skipping' ) if $@;

  eval
  {
      require Test::Kwalitee;
      Test::Kwalitee->import( tests => [ qw( use_strict has_tests ) ] );
  };

  eval
  {
      require Test::Kwalitee;
      Test::Kwalitee->import( tests =>
          [ qw( -has_test_pod -has_test_pod_coverage ) ]
      );
  };

package Test::Kwalitee;

use Cwd;
use Test::Builder;
use Module::CPANTS::Analyse;

use strict;
use warnings;

use vars qw( $Test $VERSION );
$VERSION = '1.01';

BEGIN { $Test = Test::Builder->new() }

my %test_types;
BEGIN
{
    %test_types =
    (
        extractable           => 'distribution is extractable',
        has_readme            => 'distribution has a readme file',
        has_manifest          => 'distribution has a MANIFEST',
        has_meta_yml          => 'distribution has a META.yml file',
        has_buildtool         => 'distribution has a build tool file',
        has_changelog         => 'distribution has a changelog',
        no_symlinks           => 'distribution has no symlinks',
        has_tests             => 'distribution has tests',
        proper_libs           => 'distribution has proper libs',
        no_pod_errors         => 'distribution has no POD errors',
        use_strict            => 'distribution files all use strict',
        has_test_pod          => 'distribution has a POD test file',
        has_test_pod_coverage => 'distribution has a POD-coverage test file',
    );

# These three don't really work unless you have a tarball, so skip them for now
#        extracts_nicely       => 'distribution extracts nicely',
#        has_version           => 'distribution has a version',
#        has_proper_version    => 'distribution has a proper version',

    while (my ($subname, $diagnostic) = each %test_types)
    {
        my $sub = sub
        {
            my ($dist, $metric) = @_;
            $Test->ok( $metric->{code}->( $dist ), $subname, $diagnostic ) ||
                $Test->diag( @{ $metric }{qw( remedy error )} );
        };

        no strict 'refs';
        *{ $subname } = $sub;
    }
}

sub import
{
    my ($class, %args)   = @_;
    $args{basedir}     ||= cwd();
    $args{tests}       ||= [];
    my @tests            = @{ $args{tests} } ?
                           @{ $args{tests} } : keys %test_types;
    @tests               = keys %test_types if grep { /^-/ } @tests;

    my %run_tests;

    for my $test ( @tests, @{ $args{tests} } )
    {
        if ( $test =~ s/^-// )
        {
            delete $run_tests{$test};
        }
        else
        {
            $run_tests{$test} = 1;
        }
    }

    my $analyzer = Module::CPANTS::Analyse->new({
        distdir => $args{basedir},
        dist    => $args{basedir},
    });

    $Test->plan( tests => scalar keys %run_tests );

    for my $generator (@{ $analyzer->mck()->generators() } )
    {
        next if $generator =~ /Unpack/;
        next if $generator =~ /CPAN$/;
        next if $generator =~ /Authors$/;

        # no distname, so no warnings here
        {
            local $^W;
            $generator->analyse($analyzer);
        }

        for my $indicator (@{ $generator->kwalitee_indicators() })
        {
            next unless $run_tests{ $indicator->{name} };
            my $sub = __PACKAGE__->can( $indicator->{name} );
            next unless $sub;
            $sub->( $analyzer->d(), $indicator );
        }
    }
}

1;
__END__