use File::Basename;

use Test::More;

my ($name, $path, $suffix) = fileparse($_, qr/\.[^.]*/);
is("bar",   $name);
is($suffix, ".t");

done_testing;