From 9492cfde5049de2bdf534412285e7b8262a75874 Mon Sep 17 00:00:00 2001 From: Jens Luedicke Date: Sun, 10 Mar 2013 21:56:40 +0100 Subject: [PATCH] M: Added more test-cases. --- t/1.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/t/1.t b/t/1.t index 5852ff8..8ec2f5b 100644 --- a/t/1.t +++ b/t/1.t @@ -1,4 +1,4 @@ -use Test::More tests => 29; +use Test::More tests => 33; use Test::Exception; BEGIN { use_ok( 'File::DirWalk' ); } @@ -7,6 +7,11 @@ require_ok( 'File::DirWalk' ); $dw = new File::DirWalk(); is(ref($dw), 'File::DirWalk' ); +is(SUCCESS, 1); +is(FAILED, 0); +is(ABORTED, -1); +is(PRUNE, -10); + is ($dw->getDepth(), 0); dies_ok { $dw->setDepth(-1) }; is ($dw->getDepth(), 0);