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
31
32
33
34
|
# -*- perl -*-
use strict;
use warnings;
use Test::More;
use Config;
plan skip_all => 'This test is only run for the module author'
unless -d '.git' || $ENV{RELEASE_TESTING};
plan skip_all => 'Test::Kwalitee fails with clang -faddress-sanitizer'
if $Config{ccflags} =~ /-faddress-sanitizer/;
# 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 $@;
}
if (-e 'MYMETA.yml' and !-e 'META.yml') {
require File::Copy;
File::Copy::cp('MYMETA.yml','META.yml') ;
}
eval {
require Test::Kwalitee;
my @args;
if ($Test::Kwalitee::VERSION lt '1.02') {
@args = (tests => [ qw( -proper_libs ) ]);
}
Test::Kwalitee->import(@args);
};
plan skip_all => "Test::Kwalitee needed for testing kwalitee"
if $@;
|
