#!perl -T
use strict;
use warnings;
use Test::More tests => 10;
use Test::Dist::VersionSync;
use_ok( 'Cwd' );
# Get untainted root directory.
my ( $root_directory ) = Cwd::getcwd() =~ /^(.*?)$/;
# Test retrieving modules from MANIFEST.
ok(
chdir( 't/11-_get_modules_from_manifest-exclusions' ),
'Change directory to t/11-_get_modules_from_manifest-exclusions.',
);
ok(
-e 'MANIFEST',
'MANIFEST file exists.',
);
ok(
-e 'MANIFEST.SKIP',
'MANIFEST.SKIP file exists.',
);
my $modules = Test::Dist::VersionSync::_get_modules_from_manifest();
isa_ok(
$modules,
'ARRAY',
);
is_deeply(
$modules,
[
'Test::Dist::VersionSync',
'Test::Dist::VersionSync::SampleTest',
],
'Verify the list of modules found in MANIFEST.',
);
ok(
chdir( $root_directory ),
'Change back to the original directory.',
);