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
|
# -*- perl -*-
use strict;
use warnings;
use Test::More;
use Config;
plan skip_all => 'requires Perl 5.8.2' if $] < 5.008002;
plan skip_all => 'This test is only run for the module author'
unless -d '.git' || $ENV{IS_MAINTAINER};
# 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;
|
