Add test for undefined first argument to fileparse().

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/File/Basename.t b/lib/File/Basename.t
index 6ff3121ec9..29d7d25226 100644
--- a/lib/File/Basename.t
+++ b/lib/File/Basename.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-use Test::More tests => 64;
+use Test::More tests => 65;
 
 BEGIN { use_ok 'File::Basename' }
 
@@ -14,6 +14,12 @@ can_ok( __PACKAGE__, qw( basename fileparse dirname fileparse_set_fstype ) );
 
 ### Testing Unix
 {
+    {
+        eval { fileparse(undef); 1 };
+        like($@, qr/need a valid path/,
+            "detect undef first argument to fileparse()");
+    }
+
     ok length fileparse_set_fstype('unix'), 'set fstype to unix';
     is( fileparse_set_fstype(), 'Unix',     'get fstype' );