Commit ceae5aaa authored by Sergei Golubchik's avatar Sergei Golubchik

mtr: allow nested plugin suites to be defaults too

parent 78f11e8e
...@@ -337,15 +337,20 @@ sub parse_disabled { ...@@ -337,15 +337,20 @@ sub parse_disabled {
# #
sub collect_default_suites(@) sub collect_default_suites(@)
{ {
my @dirs = my_find_dir(dirname($::glob_mysql_test_dir), use File::Find;
[ @plugin_suitedirs ], '*'); my @dirs;
for my $d (@dirs) { find(sub {
next unless -f "$d/suite.pm"; push @dirs, [$File::Find::topdir, $File::Find::name]
my $sname= basename($d); if -d and -f "$File::Find::name/suite.pm";
}, my_find_dir(dirname($::glob_mysql_test_dir), \@plugin_suitedirs));
for (@dirs) {
my ($plugin_root, $dir) = @$_;
my $sname= substr $dir, 1 + length $plugin_root;
# ignore overlays here, otherwise we'd need accurate # ignore overlays here, otherwise we'd need accurate
# duplicate detection with overlay support for the default suite list # duplicate detection with overlay support for the default suite list
next if $sname eq 'main' or -d "$::glob_mysql_test_dir/suite/$sname"; next if $sname eq 'main' or -d "$::glob_mysql_test_dir/suite/$sname";
my $s = load_suite_object($sname, $d); my $s = load_suite_object($sname, $dir);
push @_, $sname if $s->is_default(); push @_, $sname if $s->is_default();
} }
return @_; return @_;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment