From fe5fb68a82036dfafdb515295020dd29ddf84f3d Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Mon, 13 Aug 2007 15:26:50 +0000
Subject: symlink resolver, per aiutare la cache dei template

git-svn-id: svn://luxion/repos/WebCoso/trunk@272 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 t/prs-01.t | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 t/prs-01.t

(limited to 't')

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');
-- 
cgit v1.2.3