From e5fbd64b9ca46c4db1758ca906b3573449026c5f Mon Sep 17 00:00:00 2001
From: Jens Luedicke <jens.luedicke@gmail.com>
Date: Sun, 2 Sep 2012 19:24:28 +0200
Subject: [PATCH] M: Extended unit test.

---
 t/1.t | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/t/1.t b/t/1.t
index 6b306c2..f17b164 100644
--- a/t/1.t
+++ b/t/1.t
@@ -11,7 +11,19 @@ $dw = new 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 {
 	my ($path) = @_;