5635823e17
As in the past, to avoid rewriting various autotests that contain line-number information, an extra blank line has been inserted at the end of the license text to ensure that this commit does not change the total number of lines in the license header. Change-Id: I311e001373776812699d6efc045b5f742890c689 Reviewed-by: Rohan McGovern <rohan.mcgovern@nokia.com>
233 lines
6.6 KiB
Perl
Executable File
233 lines
6.6 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
#############################################################################
|
|
##
|
|
## Copyright (C) 2012 Nokia Corporation and/or its subsidiary(-ies).
|
|
## Contact: http://www.qt-project.org/
|
|
##
|
|
## This file is part of the test suite of the Qt Toolkit.
|
|
##
|
|
## $QT_BEGIN_LICENSE:LGPL$
|
|
## GNU Lesser General Public License Usage
|
|
## This file may be used under the terms of the GNU Lesser General Public
|
|
## License version 2.1 as published by the Free Software Foundation and
|
|
## appearing in the file LICENSE.LGPL included in the packaging of this
|
|
## file. Please review the following information to ensure the GNU Lesser
|
|
## General Public License version 2.1 requirements will be met:
|
|
## http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
|
|
##
|
|
## In addition, as a special exception, Nokia gives you certain additional
|
|
## rights. These rights are described in the Nokia Qt LGPL Exception
|
|
## version 1.1, included in the file LGPL_EXCEPTION.txt in this package.
|
|
##
|
|
## GNU General Public License Usage
|
|
## Alternatively, this file may be used under the terms of the GNU General
|
|
## Public License version 3.0 as published by the Free Software Foundation
|
|
## and appearing in the file LICENSE.GPL included in the packaging of this
|
|
## file. Please review the following information to ensure the GNU General
|
|
## Public License version 3.0 requirements will be met:
|
|
## http://www.gnu.org/copyleft/gpl.html.
|
|
##
|
|
## Other Usage
|
|
## Alternatively, this file may be used in accordance with the terms and
|
|
## conditions contained in a signed written agreement between you and Nokia.
|
|
##
|
|
##
|
|
##
|
|
##
|
|
##
|
|
##
|
|
## $QT_END_LICENSE$
|
|
##
|
|
#############################################################################
|
|
|
|
use strict;
|
|
use Cwd;
|
|
|
|
# Usage: test.pl <SearchPath> <ExecutionMode> <TestResults> <Timeout [Default 300 seconds]>
|
|
# Variable declarations to keep strict happy
|
|
our $SEARCH_PATH;
|
|
our $EXEC_MODE;
|
|
our $EXE_PREFIX;
|
|
our $EXE_SUFFIX;
|
|
our $TIMEOUT;
|
|
our $REPORTDIR;
|
|
our $buryChildren;
|
|
our $timeoutChildren;
|
|
our $totalExecuted;
|
|
our $totalStarted;
|
|
our $totalTimedOut;
|
|
our $next;
|
|
our $currentDirectory;
|
|
|
|
# Where do we run this script? What directory?
|
|
$SEARCH_PATH=$ARGV[0];
|
|
if(!$SEARCH_PATH)
|
|
{
|
|
print "Please specify the search directory! \n";
|
|
exit(0);
|
|
}
|
|
|
|
# We have four options:
|
|
# 'U': Unix
|
|
# 'W': Windows
|
|
# 'M': Mac
|
|
# 'E': Embedded
|
|
$EXEC_MODE=$ARGV[1];
|
|
if($EXEC_MODE =~ /^U$/)
|
|
{
|
|
print "Using Unix execution mode\n";
|
|
$EXE_PREFIX="./";
|
|
$EXE_SUFFIX="";
|
|
} elsif($EXEC_MODE =~ /^W$/)
|
|
{
|
|
print "Using Windows execution mode\n";
|
|
$EXE_PREFIX="";
|
|
$EXE_SUFFIX=".exe";
|
|
} elsif($EXEC_MODE =~ /^M$/)
|
|
{
|
|
print "Using OSX execution mode\n";
|
|
$EXE_PREFIX="/Content/MacOS/";
|
|
$EXE_SUFFIX="";
|
|
} elsif($EXEC_MODE =~ /^E$/)
|
|
{
|
|
print "Using embedded execution mode\n";
|
|
$EXE_PREFIX="./";
|
|
$EXE_SUFFIX="";
|
|
} else {
|
|
print "Unknown execution mode: $EXEC_MODE \n";
|
|
print "Use: 'U' (Unix), 'W' (Windows), 'M' (MacOSX)\n";
|
|
exit(0);
|
|
}
|
|
# We get the current directory, we 'll need it afterwards
|
|
$currentDirectory = getcwd();
|
|
|
|
# We assume that by default goes to "reports" unless the user specifies it.
|
|
$REPORTDIR = $ARGV[2];
|
|
if(!$REPORTDIR)
|
|
{
|
|
if($SEARCH_PATH =~ /^\.$/)
|
|
{
|
|
# '.' ie current directory
|
|
$REPORTDIR = $currentDirectory."/reports";
|
|
} elsif($SEARCH_PATH =~ /^\//) {
|
|
# Absolute path
|
|
$REPORTDIR = $SEARCH_PATH."/reports";
|
|
} else {
|
|
# Relative path
|
|
$REPORTDIR = $currentDirectory.$SEARCH_PATH."/reports";
|
|
}
|
|
}
|
|
# Let's create the directory
|
|
mkdir $REPORTDIR;
|
|
|
|
# If given we use it, otherwise we default to 300 seconds.
|
|
$TIMEOUT = $ARGV[3];
|
|
if(!$TIMEOUT)
|
|
{
|
|
$TIMEOUT=300;
|
|
}
|
|
print "Timeout value: $TIMEOUT\n";
|
|
|
|
# Initialize 'global' variables
|
|
$buryChildren = 0;
|
|
$timeoutChildren = 0;
|
|
$totalExecuted = 0;
|
|
$totalStarted = 0;
|
|
$totalTimedOut = 0;
|
|
|
|
# Install signal handlers and pray for the best
|
|
$SIG{'CHLD'} = 'handleDeath';
|
|
$SIG{'ALRM'} = 'handleTimeout';
|
|
|
|
while ($next = <$SEARCH_PATH/*>)
|
|
{
|
|
if( -d $next )
|
|
{
|
|
print "Examining $next \n";
|
|
chdir($next) || die("Could not chdir to $next");
|
|
my @components;
|
|
my $command;
|
|
@components = split(/\//, $next);
|
|
if($EXEC_MODE =~ /^M$/)
|
|
{
|
|
$command = "tst_".$components[1].".app";
|
|
} else {
|
|
$command = "tst_".$components[1];
|
|
}
|
|
if( -e $command)
|
|
{
|
|
print "Executing $command \n";
|
|
my $myPid;
|
|
$myPid = fork();
|
|
if($myPid == 0)
|
|
{
|
|
my $realCommand;
|
|
if($EXEC_MODE =~/^M$/)
|
|
{
|
|
$realCommand = "./".$command.".app".$EXE_PREFIX.$command;
|
|
} else {
|
|
$realCommand = $EXE_PREFIX.$command.$EXE_SUFFIX;
|
|
}
|
|
my $outputRedirection = $REPORTDIR."/".$command.".xml";
|
|
if($EXEC_MODE =~ /^E$/)
|
|
{
|
|
exec($realCommand, "-qws", "-xml", "-o", $outputRedirection);
|
|
} else {
|
|
exec($realCommand, "-xml", "-o", $outputRedirection);
|
|
}
|
|
exit(0);
|
|
} elsif($myPid > 0 )
|
|
{
|
|
$totalStarted++;
|
|
alarm($TIMEOUT);
|
|
while(!$buryChildren && !$timeoutChildren)
|
|
{
|
|
sleep 10;
|
|
}
|
|
if($buryChildren)
|
|
{
|
|
my $value;
|
|
$value = waitpid($myPid , 0);
|
|
$buryChildren = 0;
|
|
$totalExecuted++;
|
|
} elsif($timeoutChildren)
|
|
{
|
|
kill 'INT', $myPid;
|
|
$timeoutChildren = 0;
|
|
$totalTimedOut++;
|
|
} else {
|
|
# What?? If we get here we need to abort, this is totally unexpected
|
|
print "Wrong condition evaluated, aborting to avoid damages\n";
|
|
exit(0);
|
|
}
|
|
# We need to handle children killed because of timeout
|
|
if($buryChildren)
|
|
{
|
|
my $value;
|
|
$value = waitpid($myPid , 0);
|
|
$buryChildren = 0;
|
|
}
|
|
} else {
|
|
print "Problems trying to execute $command";
|
|
}
|
|
}
|
|
}
|
|
chdir($currentDirectory);
|
|
|
|
}
|
|
print " ** Statistics ** \n";
|
|
print " Tests started: $totalStarted \n";
|
|
print " Tests executed: $totalExecuted \n";
|
|
print " Tests timed out: $totalTimedOut \n";
|
|
|
|
# This procedure takes care of handling dead children on due time
|
|
sub handleDeath {
|
|
$buryChildren = 1;
|
|
}
|
|
|
|
# This takes care of timeouts
|
|
sub handleTimeout {
|
|
$timeoutChildren = 1;
|
|
}
|
|
|