From ee04ca7e4faf91c16f050356e99bcc40f2e6a2e5 Mon Sep 17 00:00:00 2001
From: Jens Luedicke <jens.luedicke@gmail.com>
Date: Sat, 9 Mar 2013 21:25:33 +0100
Subject: [PATCH] M: Added more test-cases.

---
 t/1.t | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/t/1.t b/t/1.t
index 17b3b89..73b5322 100644
--- a/t/1.t
+++ b/t/1.t
@@ -14,12 +14,22 @@ is ($dw->getDepth(), 0);
 ok ($dw->setDepth(1));
 is ($dw->getDepth(), 1);
 
-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 }));
+ok ($dw->onBeginWalk(sub {}));
+ok ($dw->onLink(sub {}));
+ok ($dw->onFile(sub {}));
+ok ($dw->onDirEnter(sub {}));
+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(onLink      => 0)};
 dies_ok {$dw->setHandler(onFile      => 0)};