diff options
Diffstat (limited to 'tests/run_tests.pl')
| -rwxr-xr-x | tests/run_tests.pl | 192 |
1 files changed, 0 insertions, 192 deletions
diff --git a/tests/run_tests.pl b/tests/run_tests.pl deleted file mode 100755 index 6ffb9d7da6e..00000000000 --- a/tests/run_tests.pl +++ /dev/null @@ -1,192 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -# $Id$ -# -*- perl -*- - -unshift @INC, '../bin'; -require ACEutils; - -use English; - -$tmp="/tmp"; -$compilation_log="log/compilations.log"; - -$ACE_ROOT = $ENV{'ACE_ROOT'}; -$LD_VAR = 'LD_LIBRARY_PATH'; - -if ($OSNAME eq "HP-UX") { - $LD_VAR = 'SHLIB_PATH'; -} elsif ($OSNAME eq 'AIX') { - $LD_VAR = 'LIBPATH'; -} - -local $path = $ENV{$LD_VAR}; -if ($path eq '') { - $path = '/usr/lib'; -} -$ENV{$LD_VAR} = $ACE_ROOT."/ace:".$path; - -#### -#### Run each process -#### -sub run -{ - local $program = shift; - - unlink "core"; - local $log = "log/".$program.".log"; - unlink $log; - - local $remove_exe_after_test = 0; - if ( ! -x $program) { - print STDERR "Making $program . . .\n"; - $remove_exe_after_test = 1; - system ("make BIN=$program >>$compilation_log 2>&1"); - } - - print STDERR "Running $program\n"; - $P = Process::Create ($EXEPREFIX.$program.$EXE_EXT, ""); - $status = $P->TimedWait (300); - - if ($status == -1) { - print STDERR "$program FAILED (time out)\n"; - $P->Kill (); $P->TimedWait (1); - } elsif ($status != 0) { - print STDERR "$program FAILED with exit status $status!!!!\n"; - } - - if ( -e "core" ) { - print STDERR "$program dumped core!!!!\n"; - } - if ( ! -e $log ) { - print STDERR "No log file (log/$program.log) is present\n"; - } else { - if (open (LOG, "<". $log) == 0) { - print STDERR "Cannot open log file $log\n"; - } else { - $starting_matched = 0; - $ending_matched = 0; - $bad_matched = 0; - while (<LOG>) { - chop; - if (m/Starting/) { - $starting_matched = 1; - } - if (m/Ending/) { - $ending_matched = 1; - } - if (m/assertion failed|timeout|Bad file number/) { - $bad_matched = 1; - } - # On Linux the /etc/hosts files contains IPV6 addresses that - # tend to confuse the heck out of this test - if (($program ne "SOCK_Connector_Test" - || $^O ne "linux") - && m/Invalid argument/) { - $bad_matched = 1; - } - if ($program ne "Cached_Accept_Conn_Test" - && m/No such file or directory/) { - $bad_matched = 1; - } - if (m/not supported/) { - print STDERR $_, "\n"; - } - } - if ($starting_matched == 0) { - print STDERR "Error in $program log: no line with 'starting'\n"; - } - if ($ending_matched == 0) { - print STDERR "Error in $program log: no line with 'Ending'\n"; - } - if ($bad_matched == 1) { - print STDERR "Error in $program log: unexpected output\n"; - } - close (LOG); # ignore errors - } - } - - if ($remove_exe_after_test == 1) { - unlink $program; - } -} - -$ACE_BUILD_COMPONENTS=`$ACE_ROOT/bin/ace_components --ace`; -$OTHER = 1; -if (grep {/ Other /} $ACE_BUILD_COMPONENTS) { - $OTHER = 0; -} -$TOKEN = 1; -if (grep {/ Token /} $ACE_BUILD_COMPONENTS) { - $TOKEN = 0; -} -$netsvcs_main = 1; -if (-f "../netsvcs/servers/main" ) { - $netsvcs_main = 0; -} -$libDLL_Test = 1; -if (-f "libDLL_Test.so" ) { - $libDLL_Test = 0; -} - -# Testing for this flag always disables the test. -$DISABLED = 1; - -# @@ Can we obtain reasonable values for this features? -$chorus = 0; -$LynxOS = 0; -$Unicos = 0; - -if ($chorus eq "" || $chorus == 0) { - if (!defined $ENV{'LOGNAME'}) { - $user=`whoami`; - } else { - $user = $ENV{'LOGNAME'}; - } - $start_test_resources=`ipcs | egrep $user`; -} - -$ace_version=`head -1 ../VERSION | sed -e 's/.*version \\([0-9.]*\\).*\$/\\1/'`; -chop $ace_version; - -print STDERR "Starting ACE version $ace_version tests . . .\n"; -open (LIST, '<run_tests.lst') - || die "Can't read program list\n"; -PROGRAM: while (<LIST>) { - chop; - local @fields = split (/\//, $_); - local $program = $fields[$#fields]; - - - for ($i = 0; $i < $#fields; $i++) { - $var = $fields[$i]; -# print "var = $var -> $program\n"; - local $e = $$var; - if ($e == 1) { - print STDERR "Skipping $program on this platform\n"; - next PROGRAM; - } - } - run $program; -} -close (LIST) - || die "Can't close program list\n"; -print STDERR "Finished ACE version $ace_version tests.\n"; - -unlink "ace_pipe_name"; -unlink "pattern"; -unlink "$tmp/ace_temp_file"; -# unlink "$tmp/ace_temp_file*"; # How to make this work? -# unlink "$tmp/Naming_Test*"; - -if ($chorus eq "" || $chorus == 0) { - $end_test_resources=`ipcs | egrep $user`; - if ("$start_test_resources" ne "$end_test_resources") { - print STDERR "WARNING: the ACE tests _may_ have leaked OS resources!\n"; - print STDERR "$end_test_resources"; - } -} - -exit 0; |