From 8ea37c6a8c08b7d9e227303b621d334c4335eb06 Mon Sep 17 00:00:00 2001
From: Jens Luedicke <jens.luedicke@gmail.com>
Date: Sat, 1 Sep 2012 10:28:53 +0200
Subject: [PATCH] M: Extended unit test.

---
 t/1.t | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/t/1.t b/t/1.t
index 85f5760..ab9f61b 100644
--- a/t/1.t
+++ b/t/1.t
@@ -13,6 +13,18 @@ ok( ref($dw) eq 'File::DirWalk' );
 
 dies_ok { $dw->setHandler(Foo => 0); }
 
+$dw->onFile(sub {
+	my ($path) = @_;
+	
+	if (basename($path) eq "1.t") {
+		return ABORTED;
+	}
+
+	return SUCCESS;
+});
+
+ok( $dw->walk($0) == ABORTED );
+
 $dw->onDirEnter(sub {
 	my ($path) = @_;
 
@@ -62,11 +74,11 @@ ok( $dw->walk($perl_path) == ABORTED );
 $dw->onFile(sub {
 	my ($path) = @_;
 	
-	if (basename($path) eq "1.t") {
+	if (basename($path) eq "sh") {
 		return ABORTED;
 	}
 
 	return SUCCESS;
 });
 
-ok( $dw->walk($0) == ABORTED );
+ok( $dw->walk("/bin") == ABORTED );