argh! Cwd::abs_path fa già tutto...

git-svn-id: svn://luxion/repos/WebCoso/trunk@273 fcb26f47-9200-0410-b104-b98ab5b095f3

1 files changed, 0 insertions, 35 deletions

diff --git a/t/prs-01.t b/t/prs-01.t
deleted file mode 100644
index 5aaf93c..0000000
--- a/t/prs-01.t
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/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');