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-09 21:25:33 +01:00
parent 945f88f45e
commit ee04ca7e4f
1 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
t/1.t
View File

@@ -14,12 +14,22 @@ is ($dw->getDepth(), 0);
ok ($dw->setDepth(1)); ok ($dw->setDepth(1));
is ($dw->getDepth(), 1); is ($dw->getDepth(), 1);
ok ($dw->setHandler(onBeginWalk => sub { SUCCESS })); ok ($dw->onBeginWalk(sub {}));
ok ($dw->setHandler(onLink => sub { SUCCESS })); ok ($dw->onLink(sub {}));
ok ($dw->setHandler(onFile => sub { SUCCESS })); ok ($dw->onFile(sub {}));
ok ($dw->setHandler(onDirEnter => sub { SUCCESS })); ok ($dw->onDirEnter(sub {}));
ok ($dw->setHandler(onDirLeave => sub { SUCCESS })); ok ($dw->onDirLeave(sub {}));
dies_ok {$dw->onBeginWalk(0)};
dies_ok {$dw->onLink(0)};
dies_ok {$dw->onFile(0)};
dies_ok {$dw->onDirEnter(0)};
dies_ok {$dw->onDirLeave(0)};
ok ($dw->setHandler(onBeginWalk => sub {}));
ok ($dw->setHandler(onLink => sub {}));
ok ($dw->setHandler(onFile => sub {}));
ok ($dw->setHandler(onDirEnter => sub {}));
ok ($dw->setHandler(onDirLeave => sub {}));
dies_ok {$dw->setHandler(onBeginWalk => 0)}; dies_ok {$dw->setHandler(onBeginWalk => 0)};
dies_ok {$dw->setHandler(onLink => 0)}; dies_ok {$dw->setHandler(onLink => 0)};
dies_ok {$dw->setHandler(onFile => 0)}; dies_ok {$dw->setHandler(onFile => 0)};