Fix reorder

parent 3f910d48
......@@ -37,6 +37,7 @@ our $default_storage_engine;
our $opt_with_ndbcluster_only;
our $defaults_file;
our $defaults_extra_file;
our $reorder;
sub collect_option {
my ($opt, $value)= @_;
......@@ -120,7 +121,7 @@ sub collect_test_cases ($$) {
}
}
if ( $::opt_reorder )
if ( $reorder )
{
# Reorder the test cases in an order that will make them faster to run
my %sort_criteria;
......@@ -173,7 +174,8 @@ sub collect_test_cases ($$) {
push(@criteria, "ndb=" . ($tinfo->{'ndb_test'} ? "1" : "0"));
# Group test with equal options together.
# Ending with "~" makes empty sort later than filled
push(@criteria, join("!", sort @{$tinfo->{'master_opt'}}) . "~");
my $opts= $tinfo->{'master_opt'} ? $tinfo->{'master_opt'} : [];
push(@criteria, join("!", sort @{$opts}) . "~");
$sort_criteria{$test_name} = join(" ", @criteria);
}
......
......@@ -124,7 +124,6 @@ sub using_extern { return (keys %opts_extern > 0);};
our $opt_fast= 0;
our $opt_force;
our $opt_reorder= 0;
our $opt_mem= $ENV{'MTR_MEM'};
our $opt_gcov;
......@@ -368,7 +367,7 @@ sub command_line_setup {
'report-features' => \$opt_report_features,
'comment=s' => \$opt_comment,
'fast' => \$opt_fast,
'reorder' => \$opt_reorder,
'reorder' => \&collect_option,
'enable-disabled' => \&collect_option,
'verbose+' => \$opt_verbose,
'sleep=i' => \$opt_sleep,
......
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