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