37 lines
976 B
Perl
37 lines
976 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use FindBin ();
|
|
BEGIN {
|
|
plan skip_all => "test requires Test::Version 1.001001"
|
|
unless eval q{ use Test::Version 1.001001 qw( version_all_ok ), { has_version => 1 }; 1 };
|
|
plan skip_all => "test requires Path::Class"
|
|
unless eval q{ use Path::Class qw( file dir ); 1 };
|
|
plan skip_all => 'test requires YAML'
|
|
unless eval q{ use YAML; 1; };
|
|
}
|
|
|
|
use YAML qw( LoadFile );
|
|
use FindBin;
|
|
use File::Spec;
|
|
|
|
plan skip_all => "test not built yet (run dzil test)"
|
|
unless -e dir( $FindBin::Bin)->parent->parent->file('Makefile.PL')
|
|
|| -e dir( $FindBin::Bin)->parent->parent->file('Build.PL');
|
|
|
|
my $config_filename = File::Spec->catfile(
|
|
$FindBin::Bin, 'release.yml'
|
|
);
|
|
|
|
my $config;
|
|
$config = LoadFile($config_filename)
|
|
if -r $config_filename;
|
|
|
|
if($config->{version}->{dir})
|
|
{
|
|
note "using dir " . $config->{version}->{dir}
|
|
}
|
|
|
|
version_all_ok($config->{version}->{dir} ? ($config->{version}->{dir}) : ());
|
|
done_testing;
|