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
29
30
|
# -*- perl -*-
use strict;
use warnings;
use Test::More;
use Config;
plan skip_all => 'requires Test::More 0.88' if Test::More->VERSION < 0.88;
plan skip_all => 'This test is only run for the module author'
unless -d '.git' || $ENV{AUTHOR_TESTING} || $ENV{RELEASE_TESTING};
# Missing XS dependencies are usually not caught by EUMM
# And they are usually only XS-loaded by the importer, not require.
for (qw( Class::XSAccessor Text::CSV_XS List::MoreUtils )) {
eval "use $_;";
plan skip_all => "$_ required for Test::Kwalitee"
if $@;
}
eval "require Test::Kwalitee;";
plan skip_all => "Test::Kwalitee required"
if $@;
plan skip_all => 'Test::Kwalitee fails with clang -faddress-sanitizer'
if $Config{ccflags} =~ /-faddress-sanitizer/;
use File::Copy 'cp';
cp('MYMETA.yml','META.yml') if -e 'MYMETA.yml' and !-e 'META.yml';
#Test::Kwalitee->import( tests => [ qw( -use_strict -proper_libs ) ] );
Test::Kwalitee->import();
|
