database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-08-01 03:47:19 +03:00
Code 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
Download Patch File Download Diff File Expand all files Collapse all files

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;
}
}