Make class names reflect new directory structure

This commit is contained in:
Eric A. Miller
2018-03-29 12:25:12 -04:00
parent 62267f4e8e
commit da6716b107
2 changed files with 2 additions and 2 deletions

View File

@@ -46,7 +46,7 @@ my $EMPTY = q{};
sub startup : Tests( startup => 1 ) {
my $test = shift;
(my $class = ref $test) =~ s/::Test$//x;
(my $class = ref $test) =~ s/^Test:://x;
return ok 1, "$class loaded" if $class eq __PACKAGE__;
use_ok $class or die;
$test->class($class);