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

M: Added more test-cases.

Browse Source
This commit is contained in:
Jens Luedicke
2013-03-10 20:06:27 +01:00
parent 6ca6dad45b
commit d0319851f3
1 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
t/4.t
View File

@@ -20,6 +20,7 @@ foreach my $subdir (qw(dir1 dir2 dir3 dir4 dir5)) {
$dw->onBeginWalk(sub { $dw->onBeginWalk(sub {
my ($path,$dir,$basename) = @_; my ($path,$dir,$basename) = @_;
ok(-e $path); ok(-e $path);
ok(-d $dir);
is($dw->currentDir(), $dir); is($dw->currentDir(), $dir);
is($dw->currentBasename(), $basename); is($dw->currentBasename(), $basename);
@@ -41,8 +42,16 @@ foreach my $subdir (qw(dir1 dir2 dir3 dir4 dir5)) {
is($dw->currentBasename(), $basename); is($dw->currentBasename(), $basename);
if (($dw->currentBasename() eq $subdir) and ($basename eq $subdir)) { if (($dw->currentBasename() eq $subdir) and ($basename eq $subdir)) {
is( $dw->count(), 10 );
is( $dw->currentDepth(), 2 ); is( $dw->currentDepth(), 2 );
is( @{$dw->entryList()}, 10);
is( $dw->count(), 10 );
foreach my $expected (qw(file0 file1 file2 file3 file4 file5 file6 file7 file8 file9)) {
my @foo = grep(/$expected/, @{$dw->entryList()});
is(@foo, 1);
is($foo[0], $expected);
}
return 42; return 42;
} }
@@ -60,8 +69,16 @@ foreach my $subdir (qw(dir1 dir2 dir3 dir4 dir5)) {
is($dw->currentBasename(), $basename); is($dw->currentBasename(), $basename);
if (($dw->currentBasename() eq $subdir) and ($basename eq $subdir)) { if (($dw->currentBasename() eq $subdir) and ($basename eq $subdir)) {
is( $dw->count(), 10 );
is( $dw->currentDepth(), 2 ); is( $dw->currentDepth(), 2 );
is( @{$dw->entryList()}, 10);
is( $dw->count(), 10 );
foreach my $expected (qw(file0 file1 file2 file3 file4 file5 file6 file7 file8 file9)) {
my @foo = grep(/$expected/, @{$dw->entryList()});
is(@foo, 1);
is($foo[0], $expected);
}
return 42; return 42;
} }