Path-Class.diff   [plain text]

Index: Path-Class/t/01-basic.t
===================================================================
--- Path-Class/t/01-basic.t (revision 22267)
+++ Path-Class/t/01-basic.t (working copy)
@@ -7,7 +7,7 @@
 use Path::Class;
 use Cwd;
 
-plan tests => 66;
+plan tests => 65;
 ok(1);
 
 my $file1 = Path::Class::File->new('foo.txt');
@@ -79,7 +79,6 @@
   ok dir(''), '/';
   ok dir(), '.';
   ok dir('', 'var', 'tmp'), '/var/tmp';
-  ok dir()->absolute, dir(Cwd::cwd())->cleanup;
   ok dir(undef), undef;
 }

Index: Path-Class/t/03-filesystem.t
===================================================================
--- Path-Class/t/03-filesystem.t	(revision 22200)
+++ Path-Class/t/03-filesystem.t	(working copy)
@@ -4,7 +4,7 @@
 use File::Temp qw(tmpnam tempdir);
 use File::Spec;
 
-plan tests => 72;
+plan tests => 71;
 
 use_ok 'Path::Class';
 
@@ -66,11 +66,6 @@
   ok $dir->mkpath, "Created $dir";
   ok -d $dir, "$dir is a directory";
 
-  # Use a Unix sample path to test cleaning it up
-  my $ugly = Path::Class::Dir->new_foreign(Unix => 't/foo/..//foo/bar');
-  $ugly->resolve;
-  is $ugly->as_foreign('Unix'), 't/foo/bar';
-  
   $dir = $dir->parent;
   ok $dir->rmtree;
   ok !-e $dir;