mirror of
https://github.com/mangosfour/server.git
synced 2025-12-15 01:37:00 +00:00
571f510ee4
(based on cipherCOM's repo commit d3d8934) Signed-off-by: VladimirMangos <vladimir@getmangos.com>
244 lines
7.3 KiB
Perl
Executable file
244 lines
7.3 KiB
Perl
Executable file
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
|
|
& eval 'exec perl -S $0 $argv:q'
|
|
if 0;
|
|
|
|
# $Id: auto_run_tests.pl 91483 2010-08-26 11:54:20Z johnnyw $
|
|
# -*- perl -*-
|
|
# This file is for running the run_test.pl scripts listed in
|
|
# auto_run_tests.lst.
|
|
|
|
use lib "$ENV{ACE_ROOT}/bin";
|
|
if (defined $ENV{srcdir}) {
|
|
use lib "$ENV{srcdir}/bin";
|
|
}
|
|
use PerlACE::Run_Test;
|
|
|
|
use English;
|
|
use Getopt::Std;
|
|
use Cwd;
|
|
|
|
use Env qw(ACE_ROOT PATH TAO_ROOT CIAO_ROOT DANCE_ROOT);
|
|
|
|
if (!defined $TAO_ROOT && -d "$ACE_ROOT/TAO") {
|
|
$TAO_ROOT = "$ACE_ROOT/TAO";
|
|
}
|
|
if (!defined $CIAO_ROOT && -d "$ACE_ROOT/TAO/CIAO") {
|
|
$CIAO_ROOT = "$ACE_ROOT/TAO/CIAO";
|
|
}
|
|
if (!defined $DANCE_ROOT && -d "$ACE_ROOT/TAO/CIAO/DAnCE") {
|
|
$CIAO_ROOT = "$ACE_ROOT/TAO/CIAO/DAnCE";
|
|
}
|
|
|
|
################################################################################
|
|
|
|
if (!getopts ('adl:os:r:tC') || $opt_h) {
|
|
print "auto_run_tests.pl [-a] [-h] [-s sandbox] [-o] [-t]\n";
|
|
print "\n";
|
|
print "Runs the tests listed in auto_run_tests.lst\n";
|
|
print "\n";
|
|
print "Options:\n";
|
|
print " -a ACE tests only\n";
|
|
print " -c config Run the tests for the <config> configuration\n";
|
|
print " -h display this help\n";
|
|
print " -s sandbox Runs each program using a sandbox program\n";
|
|
print " -o ORB test only\n";
|
|
print " -t TAO tests (other than ORB tests) only\n";
|
|
print " -C CIAO and DAnCE tests only\n";
|
|
print " -Config cfg Run the tests for the <cfg> configuration\n";
|
|
print " -l list Load the list and run only those tests\n";
|
|
print " -r dir Root directory for running the tests\n";
|
|
print "\n";
|
|
$ace_config_list = new PerlACE::ConfigList;
|
|
$ace_config_list->load ($ACE_ROOT."/bin/ace_tests.lst");
|
|
print "ACE Test Configs: " . $ace_config_list->list_configs () . "\n";
|
|
if (defined $TAO_ROOT) {
|
|
$orb_config_list = new PerlACE::ConfigList;
|
|
$orb_config_list->load ($TAO_ROOT."/bin/tao_orb_tests.lst");
|
|
print "ORB Test Configs: " . $orb_config_list->list_configs () . "\n";
|
|
$tao_config_list = new PerlACE::ConfigList;
|
|
$tao_config_list->load ($TAO_ROOT."/bin/tao_other_tests.lst");
|
|
print "TAO Test Configs: " . $tao_config_list->list_configs () . "\n";
|
|
}
|
|
if (defined $CIAO_ROOT) {
|
|
$ciao_config_list = new PerlACE::ConfigList;
|
|
$ciao_config_list->load ($CIAO_ROOT."/bin/ciao_tests.lst");
|
|
print "CIAO Test Configs: " . $ciao_config_list->list_configs ()
|
|
. "\n";
|
|
}
|
|
if (defined $DANCE_ROOT) {
|
|
$dance_config_list = new PerlACE::ConfigList;
|
|
$dance_config_list->load ($DANCE_ROOT."/bin/dance_tests.lst");
|
|
print "DAnCE Test Configs: " . $dance_config_list->list_configs ()
|
|
. "\n";
|
|
}
|
|
exit (1);
|
|
}
|
|
|
|
my @file_list;
|
|
|
|
if ($opt_a) {
|
|
push (@file_list, "bin/ace_tests.lst");
|
|
}
|
|
|
|
if ($opt_o) {
|
|
push (@file_list, "$TAO_ROOT/bin/tao_orb_tests.lst");
|
|
}
|
|
|
|
if ($opt_t) {
|
|
push (@file_list, "$TAO_ROOT/bin/tao_other_tests.lst");
|
|
}
|
|
|
|
if ($opt_C) {
|
|
push (@file_list, "$CIAO_ROOT/bin/ciao_tests.lst");
|
|
push (@file_list, "$DANCE_ROOT/bin/dance_tests.lst");
|
|
}
|
|
|
|
if ($opt_r) {
|
|
$startdir = $opt_r;
|
|
}
|
|
else {
|
|
$startdir = "$ACE_ROOT";
|
|
}
|
|
|
|
if ($opt_l) {
|
|
push (@file_list, "$opt_l");
|
|
}
|
|
|
|
if (scalar(@file_list) == 0) {
|
|
push (@file_list, "bin/ace_tests.lst");
|
|
if (-d $TAO_ROOT) {
|
|
push (@file_list, "$TAO_ROOT/bin/tao_orb_tests.lst");
|
|
push (@file_list, "$TAO_ROOT/bin/tao_other_tests.lst");
|
|
}
|
|
if (-d $CIAO_ROOT) {
|
|
push (@file_list, "$CIAO_ROOT/bin/ciao_tests.lst");
|
|
}
|
|
if (-d $DANCE_ROOT) {
|
|
push (@file_list, "$DANCE_ROOT/bin/dance_tests.lst");
|
|
}
|
|
}
|
|
|
|
foreach my $test_lst (@file_list) {
|
|
|
|
my $config_list = new PerlACE::ConfigList;
|
|
if (-r $ACE_ROOT.$test_lst) {
|
|
$config_list->load ($ACE_ROOT.$test_lst);
|
|
}
|
|
elsif (-r "$startdir/$test_lst") {
|
|
$config_list->load ("$startdir/$test_lst");
|
|
}
|
|
else {
|
|
$config_list->load ($test_lst);
|
|
}
|
|
|
|
# Insures that we search for stuff in the current directory.
|
|
$PATH .= $Config::Config{path_sep} . '.';
|
|
|
|
foreach $test ($config_list->valid_entries ()) {
|
|
my $directory = ".";
|
|
my $program = ".";
|
|
|
|
## Remove intermediate '.' directories to allow the
|
|
## scoreboard matrix to read things correctly
|
|
$test =~ s!/./!/!g;
|
|
|
|
if ($test =~ /(.*)\/([^\/]*)$/) {
|
|
$directory = $1;
|
|
$program = $2;
|
|
}
|
|
else {
|
|
$program = $test;
|
|
}
|
|
|
|
# this is to ensure that we dont print out the time for tests/run_test.pl
|
|
# that test prints out the times for each of the ace tests individually
|
|
my $is_ace_test = ($directory eq "tests");
|
|
|
|
if (! $is_ace_test) {
|
|
print "auto_run_tests: $test\n";
|
|
}
|
|
|
|
my($orig_dir) = $directory;
|
|
if ($directory =~ m:^TAO/(.*):) {
|
|
$directory = $1;
|
|
}
|
|
if ($directory =~ m:^CIAO/(.*):) {
|
|
$directory = $1;
|
|
}
|
|
if ($directory =~ m:^DAnCE/(.*):) {
|
|
$directory = $1;
|
|
}
|
|
|
|
$status = undef;
|
|
foreach my $path ($ACE_ROOT."/$directory",
|
|
$TAO_ROOT."/$directory",
|
|
$CIAO_ROOT."/$directory",
|
|
$DANCE_ROOT."/$directory",
|
|
$startdir."/$directory",
|
|
$startdir."/$orig_dir") {
|
|
if (-d $path && ($status = chdir ($path))) {
|
|
last;
|
|
}
|
|
}
|
|
|
|
if (!$status) {
|
|
if ($opt_r) {
|
|
print STDERR "ERROR: Cannot chdir to $startdir/$directory\n";
|
|
} else {
|
|
print STDERR "ERROR: Cannot chdir to $directory\n";
|
|
}
|
|
next;
|
|
}
|
|
|
|
if ($program =~ /(.*?) (.*)/) {
|
|
if (! -e $1) {
|
|
print STDERR "ERROR: $directory.$1 does not exist\n";
|
|
next;
|
|
}
|
|
}
|
|
else {
|
|
if (! -e $program) {
|
|
print STDERR "ERROR: $directory.$program does not exist\n";
|
|
next;
|
|
}
|
|
}
|
|
|
|
### Generate the -ExeSubDir and -Config options
|
|
my $inherited_options = " -ExeSubDir $PerlACE::Process::ExeSubDir ";
|
|
|
|
foreach my $config ($config_list->my_config_list ()) {
|
|
$inherited_options .= " -Config $config ";
|
|
}
|
|
|
|
$cmd = '';
|
|
if ($opt_s) {
|
|
#The Win32 sandbox takes the program and options in quotes, but the
|
|
#posix sandbox takes the program and options as separate args.
|
|
my($q) = ($^O eq 'MSWin32') ? '"' : '';
|
|
$cmd = "$opt_s ${q}perl $program $inherited_options${q}";
|
|
}
|
|
else {
|
|
$cmd = "perl $program$inherited_options";
|
|
}
|
|
|
|
my $result = 0;
|
|
|
|
if (defined $opt_d) {
|
|
print "Running: $cmd\n";
|
|
}
|
|
else {
|
|
$start_time = time();
|
|
$result = system ($cmd);
|
|
$time = time() - $start_time;
|
|
|
|
# see note about tests/run_test.pl printing reports for ace tests individually
|
|
if (! $is_ace_test) {
|
|
if ($result != 0) {
|
|
print "Error: $test returned with status $result\n";
|
|
}
|
|
|
|
print "\nauto_run_tests_finished: $test Time:$time"."s Result:$result\n";
|
|
}
|
|
}
|
|
}
|
|
}
|