The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# Generic test dependent on its filename

use strict;
use warnings;

use File::Spec ();

my $arg;
BEGIN {
    $arg = substr(File::Spec->splitpath(__FILE__), 0, -2)
}

use Test::Is $arg;

use Test::More tests => 1;
pass "$arg test";