jens/File-DirWalk
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

M: Code style (no tabs).

Browse Source
This commit is contained in:
Jens Luedicke
2013-03-10 19:37:50 +01:00
parent 395907e53b
commit 6ca6dad45b
3 changed files with 108 additions and 108 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
t/2.t
View File

@@ -10,25 +10,25 @@ ok(-e "t/");
ok(-d "t/");
foreach my $f qw(1.t 2.t 3.t 4.t) {
$dw = new File::DirWalk();
$dw->setDepth(1);
$dw = new File::DirWalk();
$dw->setDepth(1);
$dw->onFile(sub {
my ($path,$dir,$basename) = @_;
ok(-e $path);
ok(-f $path);
ok(-d $dir);
is($dir, "t");
is($dw->currentDir(), "t");
is($dw->currentDir(), $dir);
is($dw->currentBasename(), $basename);
$dw->onFile(sub {
my ($path,$dir,$basename) = @_;
ok(-e $path);
ok(-f $path);
ok(-d $dir);
is($dir, "t");
is($dw->currentDir(), "t");
is($dw->currentDir(), $dir);
is($dw->currentBasename(), $basename);
if (($dw->currentBasename() eq $f) and ($basename eq $f)) {
return 42;
}
if (($dw->currentBasename() eq $f) and ($basename eq $f)) {
return 42;
}
return SUCCESS;
});
return SUCCESS;
});
is($dw->walk("t/"), 42);
is($dw->walk("t/"), 42);
}