Added new test for existence of symlink

2 files changed, 7 insertions, 3 deletions

diff --git a/.gitignore b/.gitignore
index ce2b502..628413b 100644
--- a/.gitignore
+++ b/.gitignore
@@ -5,3 +5,4 @@ pm_to_blib
 blib/
 cover_db/
 Makefile.old
+t/test/ModuleFindTestSymLink
diff --git a/t/07-symlinks.t b/t/07-symlinks.t
index 47a21f0..d4e8200 100644
--- a/t/07-symlinks.t
+++ b/t/07-symlinks.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 13;
+use Test::More tests => 14;
 
 use Module::Find qw(ignoresymlinks followsymlinks findsubmod findallmod);
 
@@ -12,8 +12,11 @@ my $linkName = "./t/test/ModuleFindTestSymLink";
 
 SKIP: {
     my $r = eval { symlink($dirName, $linkName) };
-    skip "Symlinks not supported on this system", 13 if $@;
-    skip "Unable to create symlink", 13 if $r == 0;
+    skip "Symlinks not supported on this system", 14 if $@;
+    skip "Unable to create symlink", 14 if $r == 0;
+
+    # Ensure link was created
+    ok(-e $linkName);
 
     my @l;