Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Test-Harness-3.42/t/rulesfile.t
#!/usr/bin/perl -w
BEGIN {
unshift @INC, 't/lib';
}
use strict;
use warnings;
use TAP::Harness;
use Test::More;
use File::Path qw/mkpath rmtree/;
use File::Spec::Functions qw/catdir catfile rel2abs/;
for my $path (@INC) {
$path = rel2abs($path);
}
if ( eval { require CPAN::Meta::YAML; 1 } ) {
plan tests => 4;
}
else {
plan skip_all => "requires CPAN::Meta::YAML";
}
# create temp directories long-hand
# XXX should we add File::Temp as a prereq to do this?
my $initial_dir = rel2abs(".");
my $work_dir = catdir($initial_dir, "tmp" . int(rand(2**31)));
my $t_dir = catdir($work_dir, 't');
mkpath($t_dir) or die "Could not create $t_dir: $!";
chdir $work_dir;
# clean up at the end, but only if we didn't skip
END { if ($initial_dir) {chdir $initial_dir; rmtree($work_dir) } }
# Create test rules in t
{
open my $fh, ">", catfile($t_dir, "testrules.yml");
print {$fh} <<'HERE';
---
par: t/p*.t
HERE
close $fh;
}
my $th = TAP::Harness->new;
my $exp = {
par => 't/p*.t'
};
is_deeply( $th->rules, $exp, "rules set from t/testrules.yml" );
# Create test rules in dist root
{
open my $fh, ">", catfile($work_dir, "testrules.yml");
print {$fh} <<'HERE';
---
seq:
- seq: t/p*.t
- par: '**'
HERE
close $fh;
}
$th = TAP::Harness->new;
$exp = {
seq => [
{ seq => 't/p*.t' },
{ par => '**' },
],
};
is_deeply( $th->rules, $exp, "root testrules.yml overrides t/testrules.yml" );
# Create alternately named file
my $altrules = catfile($work_dir, "myrules.yml");
{
open my $fh, ">", $altrules;
print {$fh} <<'HERE';
---
seq: **
HERE
close $fh;
}
{
local $ENV{HARNESS_RULESFILE} = $altrules;
$th = TAP::Harness->new;
$exp = {
seq => '**'
};
is_deeply( $th->rules, $exp, "HARNESS_RULESFILE overrides testrules.yml" );
}
$th = TAP::Harness->new( { rulesfile => $altrules} );
$exp = {
seq => '**'
};
is_deeply( $th->rules, $exp, "rulesfile param overrides testrules.yml" );
Mini Shell