From bca6db35bedc7e03e4bf6a11eb1dc3718478c83e Mon Sep 17 00:00:00 2001
From: Christian Renz <crenz@web42.com>
Date: Sun, 31 Jul 2022 00:15:50 +0800
Subject: Added new test for existence of symlink

---
 .gitignore      | 1 +
 t/07-symlinks.t | 9 ++++++---
 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;
 
-- 
cgit v1.2.3