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 21:56:40 +01:00
parent d0319851f3
commit 9492cfde50
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
t/1.t
View File

@@ -1,4 +1,4 @@
use Test::More tests => 29; use Test::More tests => 33;
use Test::Exception; use Test::Exception;
BEGIN { use_ok( 'File::DirWalk' ); } BEGIN { use_ok( 'File::DirWalk' ); }
@@ -7,6 +7,11 @@ require_ok( 'File::DirWalk' );
$dw = new File::DirWalk(); $dw = new File::DirWalk();
is(ref($dw), 'File::DirWalk' ); is(ref($dw), 'File::DirWalk' );
is(SUCCESS, 1);
is(FAILED, 0);
is(ABORTED, -1);
is(PRUNE, -10);
is ($dw->getDepth(), 0); is ($dw->getDepth(), 0);
dies_ok { $dw->setDepth(-1) }; dies_ok { $dw->setDepth(-1) };
is ($dw->getDepth(), 0); is ($dw->getDepth(), 0);