t/prs-01.t


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
34
35

#!/usr/bin/perl 
use strict;
use warnings;
use Test::More qw(no_plan);
use Path::Class;
 
BEGIN { use_ok('Path::ResolveSymlinks') or die }
 
my $base=dir('','tmp','prs-test');
 
$base->mkpath;
 
END { $base->rmtree }
 
$base->subdir('real')->mkpath;
symlink $base->subdir('real'),$base->file('linked');
 
my $TEST_CONTENT=<<'EOF';
test content
EOF
 
{ my $fh=$base->file('real','data-real.txt')->openw;
  print $fh $TEST_CONTENT
};
 
symlink $base->file('real','data-real.txt'),$base->file('real','data.txt');
 
symlink 'data-real.txt',$base->file('real','data-rel.txt');
 
is(Path::ResolveSymlinks::resolve_symlinks($base->file('linked','data.txt')),
   $base->file('real','data-real.txt'),
   'resolved abs ok');
is(Path::ResolveSymlinks::resolve_symlinks($base->file('linked','data-rel.txt')),
   $base->file('real','data-real.txt'),
   'resolved rel ok');