-    is( canonpath( [ splitpath( cwd(),    1 ) ]->[1] ), 
-        canonpath( [ splitpath( $new_dir, 1 ) ]->[1] ), 
-        "changed to new directory" 
-    );
+    is( cwd(), abs_path( $new_dir ), "changed to new directory" );