database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-30 16:24:05 +03:00
Code Activity

Move code that saves datadirs to test server

Browse Source 
Remove mtr_report_test_failed
This commit is contained in:
msvensson@pilot.mysql.com
2008-04-27 23:35:38 +02:00
parent b18a64979a
commit 4f9409c835
2 changed files with 83 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
mysql-test/lib/mtr_report.pm
View File

@ -26,7 +26,7 @@ our @EXPORT= qw(report_option mtr_print_line mtr_print_thick_line
mtr_print_header mtr_report mtr_report_stats mtr_print_header mtr_report mtr_report_stats
mtr_warning mtr_error mtr_debug mtr_verbose mtr_warning mtr_error mtr_debug mtr_verbose
mtr_verbose_restart mtr_report_test_passed mtr_verbose_restart mtr_report_test_passed
mtr_report_test_failed mtr_report_test_skipped mtr_report_test_skipped
mtr_report_test); mtr_report_test);
use mtr_match; use mtr_match;
@ -125,51 +125,6 @@ sub mtr_report_test_passed ($$) {
} }
sub mtr_report_test_failed ($$) {
my ($tinfo, $logfile)= @_;
_mtr_report_test_name($tinfo);
$tinfo->{'result'}= 'MTR_RES_FAILED';
my $test_failures= $tinfo->{'failures'} || 0;
$tinfo->{'failures'}= $test_failures + 1;
if ( defined $tinfo->{'warnings'} )
{
mtr_report("[ fail ] Found warnings in server log file!");
mtr_report($tinfo->{'warnings'});
return;
}
elsif ( defined $tinfo->{'timeout'} )
{
mtr_report("[ fail ] timeout");
return;
}
else
{
mtr_report("[ fail ]");
}
if ( $tinfo->{'comment'} )
{
# The test failure has been detected by mysql-test-run.pl
# when starting the servers or due to other error, the reason for
# failing the test is saved in "comment"
mtr_report("\nERROR: $tinfo->{'comment'}");
}
elsif ( defined $logfile and -f $logfile )
{
# Test failure was detected by test tool and its report
# about what failed has been saved to file. Display the report.
$tinfo->{logfile}= mtr_fromfile($logfile);
}
else
{
# Neither this script or the test tool has recorded info
# about why the test has failed. Should be debugged.
mtr_report("\nUnexpected termination, probably when starting mysqld");;
}
}
sub mtr_report_test ($) { sub mtr_report_test ($) {
my ($tinfo)= @_; my ($tinfo)= @_;
_mtr_report_test_name($tinfo); _mtr_report_test_name($tinfo);

139
mysql-test/mysql-test-run.pl
View File

@ -41,6 +41,7 @@ use Getopt::Long;
use My::File::Path; # Patched version of File::Path use My::File::Path; # Patched version of File::Path
use File::Basename; use File::Basename;
use File::Copy; use File::Copy;
use File::Find;
use File::Temp qw / tempdir /; use File::Temp qw / tempdir /;
use File::Spec::Functions qw / splitdir /; use File::Spec::Functions qw / splitdir /;
use My::Platform; use My::Platform;
@ -197,10 +198,7 @@ our %mysqld_variables;
my $source_dist= 0; my $source_dist= 0;
my $opt_max_save_core= $ENV{MTR_MAX_SAVE_CORE} || 5; my $opt_max_save_core= $ENV{MTR_MAX_SAVE_CORE} || 5;
my $num_saved_cores= 0; # Number of core files saved in vardir/log/ so far.
my $opt_max_save_datadir= $ENV{MTR_MAX_SAVE_DATADIR} || 20; my $opt_max_save_datadir= $ENV{MTR_MAX_SAVE_DATADIR} || 20;
my $num_saved_datadir= 0; # Number of datadirs saved in vardir/log/ so far.
select(STDOUT); select(STDOUT);
$| = 1; # Automatically flush STDOUT $| = 1; # Automatically flush STDOUT
@ -335,6 +333,9 @@ sub main {
sub run_test_server { sub run_test_server {
my ($server, $tests, $childs) = @_; my ($server, $tests, $childs) = @_;
my $num_saved_cores= 0; # Number of core files saved in vardir/log/ so far.
my $num_saved_datadir= 0; # Number of datadirs saved in vardir/log/ so far.
# Scheduler variables # Scheduler variables
my $max_ndb= $opt_parallel / 2; my $max_ndb= $opt_parallel / 2;
$max_ndb = 4 if $max_ndb > 4; $max_ndb = 4 if $max_ndb > 4;
@ -377,10 +378,54 @@ sub run_test_server {
# Report test status # Report test status
mtr_report_test($result); mtr_report_test($result);
if ($result->is_failed() and !$opt_force){ if ( $result->is_failed() ) {
# Test has failed, force is off
push(@$completed, $result); # Save the workers "savedir" in var/log
return $completed; my $worker_savedir= $result->{savedir};
my $worker_savename= basename($worker_savedir);
my $savedir= "$opt_vardir/log/$worker_savename";
if ($opt_max_save_datadir > 0 &&
$num_saved_datadir >= $opt_max_save_datadir)
{
mtr_report(" - skipping '$worker_savedir/'");
rmtree($worker_savedir);
}
else {
mtr_report(" - saving '$worker_savedir/' to '$savedir/'");
rename($worker_savedir, $savedir);
}
$num_saved_datadir++;
if ($opt_max_save_core > 0) {
# Limit number of core files saved
find({ no_chdir => 1,
wanted => sub {
my $core_file= $File::Find::name;
my $core_name= basename($core_file);
if ($core_name =~ "core*"){
if ($num_saved_cores >= $opt_max_save_core) {
mtr_report(" - deleting '$core_name'",
"($num_saved_cores/$opt_max_save_core)");
unlink("$core_file");
}
else {
mtr_report(" - found '$core_name'",
"($num_saved_cores/$opt_max_save_core)");
}
++$num_saved_cores;
}
}
},
$savedir);
}
if ( !$opt_force ) {
# Test has failed, force is off
push(@$completed, $result);
return $completed;
}
} }
# Retry test run after test failure # Retry test run after test failure
@ -3079,46 +3124,15 @@ sub clean_datadir {
} }
#
# Limit number of core files saved
#
sub limit_cores_after_failure ($) {
my ($datadir)= @_;
# Look for core files
foreach my $core_file ( glob("$datadir/core*") )
{
my $core_name= basename($core_file);
if ($opt_max_save_core > 0 && $num_saved_cores >= $opt_max_save_core) {
# Delete file to avoid saving it when the datadir is later saved
mtr_report(" - deleting '$core_name'",
"($num_saved_cores/$opt_max_save_core)");
unlink("$core_file");
}
else {
mtr_report(" - found '$core_name'",
"($num_saved_cores/$opt_max_save_core)");
}
++$num_saved_cores;
}
}
# #
# Save datadir before it's removed # Save datadir before it's removed
# #
sub save_datadir_after_failure($$) { sub save_datadir_after_failure($$) {
my ($dir, $savedir)= @_; my ($dir, $savedir)= @_;
if ($opt_max_save_datadir > 0 && mtr_report(" - saving '$dir'");
$num_saved_datadir >= $opt_max_save_datadir) my $dir_name= basename($dir);
{ rename("$dir", "$savedir/$dir_name");
mtr_report(" - skipping '$dir'");
}
else {
mtr_report(" - saving '$dir'");
my $dir_name= basename($dir);
rename("$dir", "$savedir/$dir_name");
}
} }
@ -3133,6 +3147,9 @@ sub after_failure ($) {
$save_dir.= "-$tinfo->{combination}" $save_dir.= "-$tinfo->{combination}"
if defined $tinfo->{combination}; if defined $tinfo->{combination};
# Save savedir path for server
$tinfo->{savedir}= $save_dir;
mkpath($save_dir) if ! -d $save_dir; mkpath($save_dir) if ! -d $save_dir;
# Save the used my.cnf file # Save the used my.cnf file
@ -3140,12 +3157,6 @@ sub after_failure ($) {
if ( clusters() ) { if ( clusters() ) {
foreach my $cluster ( clusters() ) { foreach my $cluster ( clusters() ) {
foreach my $server ( ndbds($cluster), ndb_mgmds($cluster) ) {
my $data_dir= $server->value('DataDir');
limit_cores_after_failure($data_dir);
}
my $cluster_dir= "$opt_vardir/".$cluster->{name}; my $cluster_dir= "$opt_vardir/".$cluster->{name};
save_datadir_after_failure($cluster_dir, $save_dir); save_datadir_after_failure($cluster_dir, $save_dir);
} }
@ -3153,29 +3164,43 @@ sub after_failure ($) {
else { else {
foreach my $mysqld ( mysqlds() ) { foreach my $mysqld ( mysqlds() ) {
my $data_dir= $mysqld->value('datadir'); my $data_dir= $mysqld->value('datadir');
limit_cores_after_failure($data_dir);
save_datadir_after_failure(dirname($data_dir), $save_dir); save_datadir_after_failure(dirname($data_dir), $save_dir);
} }
} }
$num_saved_datadir++;
clean_datadir();
} }
sub report_failure_and_restart ($) { sub report_failure_and_restart ($) {
my $tinfo= shift; my $tinfo= shift;
mtr_report_test_failed($tinfo, $path_current_testlog);
# Stop all servers that are known to be running
stop_all_servers(); stop_all_servers();
# Collect and clean files $tinfo->{'result'}= 'MTR_RES_FAILED';
my $test_failures= $tinfo->{'failures'} || 0;
$tinfo->{'failures'}= $test_failures + 1;
my $logfile= $path_current_testlog;
if ( $tinfo->{comment} )
{
# The test failure has been detected by mysql-test-run.pl
# when starting the servers or due to other error, the reason for
# failing the test is saved in "comment"
;
}
elsif ( defined $logfile and -f $logfile )
{
# Test failure was detected by test tool and its report
# about what failed has been saved to file. Save the report
# in tinfo
$tinfo->{logfile}= mtr_fromfile($logfile);
}
after_failure($tinfo); after_failure($tinfo);
mtr_report("Resuming tests...\n"); mtr_report_test($tinfo);
} }