From 24ecc2e0e8c7a7f9a68ad5f1c33cd4a007ce004d Mon Sep 17 00:00:00 2001 From: James E Keenan Date: Wed, 3 Jul 2013 02:03:53 +0200 Subject: [PATCH] Add test for undefined first argument to fileparse(). --- lib/File/Basename.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lib/File/Basename.t b/lib/File/Basename.t index 6ff3121..29d7d25 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' ); -- 1.8.3.1