1Index: Path-Class/t/01-basic.t 2=================================================================== 3--- Path-Class/t/01-basic.t (revision 22267) 4+++ Path-Class/t/01-basic.t (working copy) 5@@ -7,7 +7,7 @@ 6 use Path::Class; 7 use Cwd; 8 9-plan tests => 66; 10+plan tests => 65; 11 ok(1); 12 13 my $file1 = Path::Class::File->new('foo.txt'); 14@@ -79,7 +79,6 @@ 15 ok dir(''), '/'; 16 ok dir(), '.'; 17 ok dir('', 'var', 'tmp'), '/var/tmp'; 18- ok dir()->absolute, dir(Cwd::cwd())->cleanup; 19 ok dir(undef), undef; 20 } 21 22Index: Path-Class/t/03-filesystem.t 23=================================================================== 24--- Path-Class/t/03-filesystem.t (revision 22200) 25+++ Path-Class/t/03-filesystem.t (working copy) 26@@ -4,7 +4,7 @@ 27 use File::Temp qw(tmpnam tempdir); 28 use File::Spec; 29 30-plan tests => 72; 31+plan tests => 71; 32 33 use_ok 'Path::Class'; 34 35@@ -66,11 +66,6 @@ 36 ok $dir->mkpath, "Created $dir"; 37 ok -d $dir, "$dir is a directory"; 38 39- # Use a Unix sample path to test cleaning it up 40- my $ugly = Path::Class::Dir->new_foreign(Unix => 't/foo/..//foo/bar'); 41- $ugly->resolve; 42- is $ugly->as_foreign('Unix'), 't/foo/bar'; 43- 44 $dir = $dir->parent; 45 ok $dir->rmtree; 46 ok !-e $dir; 47