1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
use lib 't', 'lib';
use strict;
use warnings;
use Test::More;
use IO::All;
use IO_All_Test;
use Cwd qw(abs_path);
my $cwd = abs_path('.');
eval { symlink("$cwd/lib/IO/All.pm", 't/output/IO-All-file-link') or die $! };
if ($@ or not (-e 't/output/IO-All-file-link' and -l 't/output/IO-All-file-link')) {
plan skip_all => 'Cannot call symlink on this platform';
}
else {
plan tests => 7;
}
my $file_link = io('t/output/IO-All-file-link');
ok($file_link->is_link, 'Link to file is a link (not a file)');
my $file_target = $file_link->readlink;
ok(! $file_target->is_link, 'readlink returns file object, not link' );
is($file_target->filename, 'All.pm', 'link target is expected file' );
symlink("$cwd/lib/IO", 't/output/IO-All-dir-link');
my $dir_link = io('t/output/IO-All-dir-link');
ok($dir_link->is_link, 'Link to dir is a link (not a dir)');
my $dir_target = $dir_link->readlink;
ok(! $dir_target->is_link, 'readlink returns dir object, not link' );
ok($dir_target->is_dir, 'readlink returns dir object, not link' );
is($dir_target->filename, 'IO', 'link target is expected dir' );
|
