#!perl
use Test::More tests => 20;
use Cwd qw<abs_path>;
use File::LinkDir;
my $source = abs_path( 't/tests/src' );
my $dest = abs_path( 't/tests/dest' );
my $ignore = [ 1, 3, 5, 7, 9 ];
my $fld = File::LinkDir->new(
source => $source,
dest => $dest,
addignore => $ignore,
);
$fld->run();
opendir my $dir_handle, $source or die "Can't open the dir $source: $!; aborted";
while ( defined ( my $file = readdir $dir_handle ) )
{
next if $file =~ /^\.{1,2}$/;
if ( $file !~ /\d/ || ( $file =~ /(\d+)/ && ! ( $1 % 2 ) ) )
{
ok( -l "$dest/$file", "$dest/$file is a symlink" );
ok( readlink "$dest/$file" eq "$source/$file", "destination is linked to the source file" );
unlink "$dest/$file"; # clean up after ourselves
}
else
{
ok( ! -l "$dest/$file", "$dest/$file is a not symlink" );
SKIP: {
skip "No destination to test with readlink", 1;
ok( readlink "$dest/$file" ne "$source/$file", "destination is not linked to the source file" );
}
}
}