@INC = '../lib';
}
-use Test::More tests => 60;
+use Test::More tests => 64;
BEGIN { use_ok 'File::Basename' }
}
+### basename(1) sez: "The suffix is not stripped if it is identical to the
+### remaining characters in string"
+{
+ fileparse_set_fstype('Unix');
+ is(basename('.foo'), '.foo');
+ is(basename('.foo', '.foo'), '.foo');
+ is(basename('.foo.bar', '.foo'), '.foo.bar');
+ is(basename('.foo.bar', '.bar'), '.foo');
+}
+
+
### Test tainting
{
# The empty tainted value, for tainting strings