-    is( File::Spec->abs2rel( cwd(), $new_dir), q{.}, 
+    is( canonpath( [ splitpath( cwd(), 1 ) ]->[1] ), 
+        $new_dir, 
         "changed to new directory" 
     );