diff options
Diffstat (limited to 't')
-rw-r--r-- | t/prs-01.t | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/t/prs-01.t b/t/prs-01.t new file mode 100644 index 0000000..5aaf93c --- /dev/null +++ b/t/prs-01.t @@ -0,0 +1,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'); |