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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
use strict;
use warnings;
use subs qw ( _which );
use Config qw( %Config );
use File::Basename qw( basename );
use File::Spec qw();
my ( $local_lib_root, $local_bin, $local_lib, $prove_rc_file, $t_lib );
BEGIN {
$local_lib_root = File::Spec->catfile( $ENV{ PWD }, 'local' );
$local_bin = File::Spec->catfile( $local_lib_root, qw( bin ) );
$local_lib = File::Spec->catfile( $local_lib_root, qw( lib perl5 ) );
$prove_rc_file = File::Spec->catfile( $ENV{ PWD }, qw( t .proverc ) );
$t_lib = File::Spec->catfile( $ENV{ PWD }, qw( t lib ) );
}
use lib $local_lib;
# do not use "local" in the following line because then _which() will no see
# the modified PATH
$ENV{ PATH } = ## no critic (RequireLocalizedPunctuationVars)
exists $ENV{ PATH }
? "$local_bin$Config{ path_sep }$ENV{ PATH }"
: $local_bin; ## no critic (RequireLocalizedPunctuationVars)
{
no warnings 'once'; ## no critic (ProhibitNoWarnings)
*MY::postamble = sub {
my $make_fragment = '';
$make_fragment .= <<"MAKE_FRAGMENT";
export PATH := $ENV{ PATH }
ifdef PERL5LIB
PERL5LIB := ${ \( -d $t_lib ? "$t_lib:" : '' ) }$local_lib:\$(PERL5LIB)
else
export PERL5LIB := ${ \( -d $t_lib ? "$t_lib:" : '' ) }$local_lib
endif
# runs the last modified test script
.PHONY: testlm
testlm:
\$(NOECHO) \$(MAKE) TEST_FILES=\$\$(perl -e 'print STDOUT ( sort { -M \$\$a > -M \$\$b } glob( "\$\$ARGV[0]" ) )[0]' '\$(TEST_FILES)') test
MAKE_FRAGMENT
my $prove = _which 'prove';
$make_fragment .= <<"MAKE_FRAGMENT" if $prove;
# runs test scripts through TAP::Harness (prove) instead of Test::Harness (ExtUtils::MakeMaker)
.PHONY: testp
testp: pure_all
\$(NOECHO) $prove\$(if \$(TEST_VERBOSE:0=), --verbose) --norc${ \( -f $prove_rc_file ? " --rc $prove_rc_file" : '' ) } --blib --recurse --shuffle \$(TEST_FILES)
MAKE_FRAGMENT
my $cover = _which 'cover';
$make_fragment .= <<"MAKE_FRAGMENT" if $cover;
.PHONY: cover
cover:
\$(NOECHO) $cover -test -ignore ${ \( basename( $local_lib_root ) ) } -report vim
MAKE_FRAGMENT
return $make_fragment;
};
}
sub _which ( $ ) {
my ( $executable ) = @_;
for ( split /$Config{ path_sep }/, $ENV{ PATH } ) { ## no critic (RequireExtendedFormatting)
my $file = File::Spec->catfile( $_, $executable );
return $file if -x $file;
}
return;
}
|
