mirror of
https://github.com/MariaDB/server.git
synced 2025-01-30 18:41:56 +01:00
Replace all - with - in $opt name
This commit is contained in:
parent
471a98001e
commit
7e8898aaca
2 changed files with 26 additions and 10 deletions
|
@ -46,7 +46,7 @@ sub collect_option {
|
|||
my ($opt, $value)= @_;
|
||||
|
||||
# Convert - to _ in option name
|
||||
$opt =~ s/-/_/;
|
||||
$opt =~ s/-/_/g;
|
||||
no strict 'refs';
|
||||
${$opt}= $value;
|
||||
}
|
||||
|
|
|
@ -26,8 +26,7 @@ our @EXPORT= qw(report_option mtr_print_line mtr_print_thick_line
|
|||
mtr_print_header mtr_report mtr_report_stats
|
||||
mtr_warning mtr_error mtr_debug mtr_verbose
|
||||
mtr_verbose_restart mtr_report_test_passed
|
||||
mtr_report_test_failed mtr_report_test_skipped
|
||||
mtr_report_stats);
|
||||
mtr_report_test_failed mtr_report_test_skipped);
|
||||
|
||||
use mtr_match;
|
||||
require "mtr_io.pl";
|
||||
|
@ -35,12 +34,13 @@ require "mtr_io.pl";
|
|||
my $tot_real_time= 0;
|
||||
|
||||
our $timestamp= 0;
|
||||
our $timediff= 1;
|
||||
|
||||
sub report_option {
|
||||
my ($opt, $value)= @_;
|
||||
|
||||
# Convert - to _ in option name
|
||||
$opt =~ s/-/_/;
|
||||
$opt =~ s/-/_/g;
|
||||
no strict 'refs';
|
||||
${$opt}= $value;
|
||||
}
|
||||
|
@ -228,20 +228,20 @@ sub mtr_report_stats ($) {
|
|||
# Print a list of check_testcases that failed(if any)
|
||||
if ( $::opt_check_testcases )
|
||||
{
|
||||
my @check_testcases= ();
|
||||
my %check_testcases;
|
||||
|
||||
foreach my $tinfo (@$tests)
|
||||
{
|
||||
if ( defined $tinfo->{'check_testcase_failed'} )
|
||||
{
|
||||
push(@check_testcases, $tinfo->{'name'});
|
||||
$check_testcases{$tinfo->{'name'}}= 1;
|
||||
}
|
||||
}
|
||||
|
||||
if ( @check_testcases )
|
||||
if ( keys %check_testcases )
|
||||
{
|
||||
print "Check of testcase failed for: ";
|
||||
print join(" ", @check_testcases);
|
||||
print join(" ", keys %check_testcases);
|
||||
print "\n\n";
|
||||
}
|
||||
}
|
||||
|
@ -330,13 +330,29 @@ sub mtr_print_header () {
|
|||
|
||||
use Time::localtime;
|
||||
|
||||
use Time::HiRes qw(gettimeofday);
|
||||
|
||||
my $t0= gettimeofday();
|
||||
|
||||
sub _timestamp {
|
||||
return "" unless $timestamp;
|
||||
|
||||
my $diff;
|
||||
if ($timediff){
|
||||
my $t1= gettimeofday();
|
||||
my $elapsed= $t1 - $t0;
|
||||
|
||||
$diff= sprintf(" +%02.3f", $elapsed);
|
||||
|
||||
# Save current time for next lap
|
||||
$t0= $t1;
|
||||
|
||||
}
|
||||
|
||||
my $tm= localtime();
|
||||
return sprintf("%02d%02d%02d %2d:%02d:%02d ",
|
||||
return sprintf("%02d%02d%02d %2d:%02d:%02d%s ",
|
||||
$tm->year % 100, $tm->mon+1, $tm->mday,
|
||||
$tm->hour, $tm->min, $tm->sec);
|
||||
$tm->hour, $tm->min, $tm->sec, $diff);
|
||||
}
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue