1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
use strict;
use warnings FATAL => 'all';
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
# we are testing ourselves, so we don't want this warning
BEGIN { $ENV{_KWALITEE_NO_WARN} = 1; }
# newer Module::CPANTS::Kwalitee::CpantsErrors checks $Test::Kwalitee::VERSION
BEGIN {
require Test::Kwalitee;
$Test::Kwalitee::VERSION = '100' unless $Test::Kwalitee::VERSION;
}
# these tests all pass without building the dist
my @expected; BEGIN { @expected = (qw(
has_changelog
has_readme
has_tests
)) }
use Test::Kwalitee tests => \@expected;
my $count = @expected + ($ENV{AUTHOR_TESTING} ? 1 : 0);
Test::Builder->new->current_test == $count
or die 'ran ' . Test::Builder->new->current_test . ' tests; expected ' . $count . '!';
|
