database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-27 18:02:13 +03:00
Code Activity

mysql-test: allow suite.pm add its suite to the default list.

Browse Source 
run tokudb suites by default.
mark big and slow tests tokudb.change_column_all_1000_1 and
tokudb.change_column_all_1000_10 test as --big
This commit is contained in:
Sergei Golubchik
2013-11-27 21:58:36 +01:00
parent 5e812ee03b
commit c2839e2cf2
10 changed files with 75 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
mysql-test/lib/mtr_cases.pm
View File

@ -23,7 +23,7 @@ package mtr_cases;
use strict;
use base qw(Exporter);
our @EXPORT= qw(collect_option collect_test_cases);
our @EXPORT= qw(collect_option collect_test_cases collect_default_suites);
use Carp;
@ -315,11 +315,33 @@ sub parse_disabled {
}
}
#
# load suite.pm files from plugin suites
# collect the list of default plugin suites.
#
sub collect_default_suites(@)
{
my @dirs = my_find_dir(dirname($::glob_mysql_test_dir),
['storage/*/mysql-test/*', 'plugin/*/mysql-test/*'],
[], NOT_REQUIRED);
for my $d (@dirs) {
next unless -f "$d/suite.pm";
my $sname= basename($d);
# ignore overlays here, otherwise we'd need accurate
# duplicate detection with overlay support for the default suite list
next if $sname eq 'main' or -d "$::glob_mysql_test_dir/suite/$sname";
my $s = load_suite_object($sname, $d);
push @_, $sname if $s->is_default();
}
return @_;
}
#
# processes one user-specified suite name.
# it could contain wildcards, e.g engines/*
#
sub collect_suite_name
sub collect_suite_name($$)
{
my $suitename= shift; # Test suite name
my $opt_cases= shift;