[perl #22236] File::Basename behavior is misleading

[p5sagit/p5-mst-13.2.git] / lib / File / Basename.t

diff --git a/lib/File/Basename.t b/lib/File/Basename.t
index 8e15900..2383744 100755 (executable)
--- a/lib/File/Basename.t
+++ b/lib/File/Basename.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-use Test::More tests => 53;
+use Test::More tests => 57;
 
 BEGIN { use_ok 'File::Basename' }
 
@@ -120,6 +120,16 @@ can_ok( __PACKAGE__, qw( basename fileparse dirname fileparse_set_fstype ) );
     is(dirname('/perl/lib//'), '/perl');
 }
 
+### rt.perl.org 22236
+{
+    is(basename('a/'), 'a');
+    is(basename('/usr/lib//'), 'lib');
+
+    fileparse_set_fstype 'MSWin32';
+    is(basename('a\\'), 'a');
+    is(basename('\\usr\\lib\\\\'), 'lib');
+}
+
 
 ### Test tainting
 {