#!/usr/bin/perl
# Test specific functions in Devel::Pler
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More tests => 11;
use File::Spec::Functions ':ALL';
use pler;
# Can we find the current perl executable ok
ok( pler::perl(), 'Got perl() ok' );
ok( pler::perl, 'Got perl ok' );
ok( -f pler::perl, 'perl exists' );
ok( file_name_is_absolute( pler::perl ), 'perl path is absolute' );
# Can we find the mandated make
ok( pler::make(), 'Got make() ok' );
ok( pler::make, 'Got make ok' );
ok( -f pler::make, 'make exists' );
ok( file_name_is_absolute( pler::make ), 'make path is absolute' );
# Filter tests
my @tests = qw{
t/01_compile.t
t/02_functions.t
t/22_something.t
};
is_deeply(
pler::filter(
[ 'functions' ],
[ @tests ],
),
[ 't/02_functions.t' ],
'Simple term ok',
);
is_deeply(
pler::filter(
[ '22' ],
[ @tests ],
),
[ 't/22_something.t' ],
);
is_deeply(
pler::filter(
[ '2' ],
[ @tests ],
),
[ 't/02_functions.t' ],
);