diff options
author | dakkar <dakkar@luxion> | 2007-08-13 15:26:50 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2007-08-13 15:26:50 +0000 |
commit | fe5fb68a82036dfafdb515295020dd29ddf84f3d (patch) | |
tree | 609f09da856ba0948dbf12a4d6f4d35f455d9bb6 /t | |
parent | nomi dai test (diff) | |
download | WebCoso-fe5fb68a82036dfafdb515295020dd29ddf84f3d.tar.gz WebCoso-fe5fb68a82036dfafdb515295020dd29ddf84f3d.tar.bz2 WebCoso-fe5fb68a82036dfafdb515295020dd29ddf84f3d.zip |
symlink resolver, per aiutare la cache dei template
git-svn-id: svn://luxion/repos/WebCoso/trunk@272 fcb26f47-9200-0410-b104-b98ab5b095f3
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'); |