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

M: Extended unit test.

Browse Source
This commit is contained in:
Jens Luedicke
2012-09-02 19:24:28 +02:00
parent 1c890bec84
commit e5fbd64b9c
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
t/1.t
View File

@@ -11,7 +11,19 @@ $dw = new File::DirWalk();
ok( ref($dw) eq 'File::DirWalk' ); ok( ref($dw) eq 'File::DirWalk' );
dies_ok { $dw->setHandler(Foo => 0); } ok ($dw->setHandler(onBeginWalk => sub { SUCCESS }));
ok ($dw->setHandler(onLink => sub { SUCCESS }));
ok ($dw->setHandler(onFile => sub { SUCCESS }));
ok ($dw->setHandler(onDirEnter => sub { SUCCESS }));
ok ($dw->setHandler(onDirLeave => sub { SUCCESS }));
dies_ok {$dw->setHandler(onBeginWalk => 0)};
dies_ok {$dw->setHandler(onLink => 0)};
dies_ok {$dw->setHandler(onFile => 0)};
dies_ok {$dw->setHandler(onDirEnter => 0)};
dies_ok {$dw->setHandler(onDirLeave => 0)};
dies_ok {$dw->setHandler(Foo => sub {})};
$dw->onFile(sub { $dw->onFile(sub {
my ($path) = @_; my ($path) = @_;