mirror/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-01-16 03:52:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing unit test execution script to work with AIX 5.2 and OS X machines.

Browse source 
These are using old version of the Test::Harness modules, so I resort
to a safer way of running executable files.


unittest/README.txt:
  Adding reference to Doxygen-generated documentation on the intranet.
unittest/unit.pl:
  Using environment HARNESS_PERL_SWITCHES instead of a replacement
  straps
This commit is contained in:
unknown 2006-08-14 13:52:05 +02:00
parent 1363c9b215
commit dc2264ab86
2 changed files with 8 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
unittest/README.txt
View file

@ -37,3 +37,10 @@ directory and add the following to the Makefile.am in that directory
Note, it's important to have "-t" at the end of the filename, otherwise the
test won't be executed by 'make test' !
Documentation
-------------
There is Doxygen-generated documentation available at:
https://intranet.mysql.com/~mkindahl/mytap/html/

26
unittest/unit.pl
View file

@ -1,19 +1,5 @@
#!/usr/bin/perl
# Override _command_line in the standard Perl test harness to prevent
# it from using "perl" to run the test scripts.
package MySQL::Straps;
use base qw(Test::Harness::Straps);
use strict;
sub _command_line {
return $_[1]
}
package main;
use Test::Harness qw(&runtests $verbose);
use File::Find;
@ -37,9 +23,6 @@ unit - Run unit tests in directory
my $cmd = shift;
# $Test::Harness::Verbose = 1;
# $Test::Harness::Debug = 1;
if (defined $cmd && exists $dispatch{$cmd}) {
$dispatch{$cmd}->(@ARGV);
} else {
@ -95,14 +78,7 @@ sub run_cmd (@) {
if (@files > 0) {
# Removing the first './' from the file names
foreach (@files) { s!^\./!! }
# Install the strap above instead of the default strap. Since
# we are replacing the straps under the feet of Test::Harness,
# we need to do some basic initializations in the new straps.
$Test::Harness::Strap = MySQL::Straps->new;
$Test::Harness::Strap->{callback} = \&Test::Harness::strap_callback
if defined &Test::Harness::strap_callback;
$ENV{'HARNESS_PERL_SWITCHES'} .= q" -e 'exec @ARGV'";
runtests @files;
}
}