1berry/MariaDB-server
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Reverted unittest/unit.pl back to Test::Harness as some of our build machines didn't support the new recommended TAP::Harness module

Browse Source 
unittest/mytap/tap.c:
  Fixed output for some tests that didn't call plan()
This commit is contained in:
Michael Widenius 2011-05-06 14:01:51 +03:00
parent 5cf6ccd29e
commit 6b8788e425
2 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
unittest/mytap/tap.c
View File

@ -190,7 +190,7 @@ static signal_entry install_signal[]= {
};
int skip_big_tests= 1;
ulong start_time;
ulong start_time= 0;
void
plan(int count)
@ -335,9 +335,12 @@ int exit_status()
diag("Failed %d tests!", g_test.failed);
return EXIT_FAILURE;
}
end_timer(start_time, buff);
printf("Test took %s\n", buff);
fflush(stdout);
if (start_time)
{
end_timer(start_time, buff);
printf("Test took %s\n", buff);
fflush(stdout);
}
return EXIT_SUCCESS;
}

17
unittest/unit.pl
View File

@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
use TAP::Harness;
use Test::Harness;
use File::Find;
use Getopt::Long;
@ -37,11 +37,10 @@ unit - Run unit tests in directory
=cut
my $big= $ENV{'MYTAP_CONFIG'} eq 'big';
my $verbose= 0;
my $result = GetOptions (
"big!" => \$big,
"verbose!" => \$verbose,
"verbose!" => \$Test::Harness::verbose,
);
$ENV{'MYTAP_CONFIG'} = $big ? 'big' : '';
@ -103,14 +102,8 @@ sub run_cmd (@) {
if (@files > 0) {
# Removing the first './' from the file names
foreach (@files) { s!^\./!! }
my %args = (
verbosity => $verbose,
timer => 1,
exec => [ "/bin/sh", "-c" ],
);
my $harness= TAP::Harness->new( \%args );
$harness->runtests(@files);
$ENV{'HARNESS_PERL_SWITCHES'} .= ' -e "exec @ARGV"';
$Test::Harness::Timer = 1;
runtests @files;
}
}