diff -r 21a87c5f86e4 -r 9416fc33d2a0 t/000-module.t --- a/t/000-module.t Tue Aug 02 00:21:00 2011 +0200 +++ b/t/000-module.t Tue Aug 02 16:02:54 2011 +0200 @@ -12,6 +12,25 @@ foreach (qw(type pwd cd)) { can_ok $fops => $_; } +is($fops->pwd() => "/", "working dir is /"); + +my @dir = ( + "////" => "/", + "/.//./" => "/", + "/.//./." => "/", + "././/./." => "/", + "/a/b/c/d/" => "/a/b/c/d", + "/a/b/c/d" => "/a/b/c/d", + ".." => "/a/b/c", +); + +while (@dir) { + my $dir = shift @dir; + my $pwd = shift @dir; + + ok($fops->cd($dir), "cd $dir"); + is($fops->pwd(), $pwd, "pwd should be $pwd"); +} done_testing;