|
|
use Cwd;
|
|
|
use Cwd 'abs_path';
|
|
|
use File::Basename;
|
|
|
use File::Copy;
|
|
|
use feature "switch";
|
|
|
use lib 'test/scripts';
|
|
|
use Jobs;
|
|
|
|
|
|
# read command line params
|
|
|
my $jobname = shift;
|
|
|
|
|
|
# read ini file
|
|
|
my $inifile = File::Basename::dirname($0) . "/jobs.ini";
|
|
|
my %job = Jobs::get($inifile, $jobname);
|
|
|
|
|
|
# set/get paths
|
|
|
my $root_path = abs_path();
|
|
|
my $bin_path = "$root_path/bin/";
|
|
|
my $reports_path = "test-reports";
|
|
|
|
|
|
# create reports path
|
|
|
mkdir $reports_path;
|
|
|
|
|
|
# setup environment for running tests
|
|
|
given ($job{'Platform'}) {
|
|
|
|
|
|
when ("Win7") {
|
|
|
# Add qtdir to path
|
|
|
$ENV{'PATH'} .= ";" . $job{'QtDir'} . "\\bin";
|
|
|
|
|
|
# replace / -> \
|
|
|
$ENV{'PATH'} =~ s/\//\\/g;
|
|
|
}
|
|
|
|
|
|
when ("Linux") {
|
|
|
# Add qtdir to path
|
|
|
$ENV{'PATH'} = $job{'QtDir'} . "/bin:" . $ENV{'PATH'};
|
|
|
|
|
|
# If this is not set we get "cannot connect to X server" errors
|
|
|
$ENV{'DISPLAY'} = ":0.0";
|
|
|
}
|
|
|
}
|
|
|
|
|
|
# Go through all the files in the test folder
|
|
|
# autotest is an executable beginning with "tst_"
|
|
|
my $script_exit_status = 0;
|
|
|
opendir (TESTAPPDIR, "$bin_path") or die "Couldn't open test app dir";
|
|
|
@files = <TESTAPPDIR>;
|
|
|
while ($testapp = readdir TESTAPPDIR) {
|
|
|
if (index($testapp, "tst_") == 0) {
|
|
|
if (-x "$bin_path$testapp") {
|
|
|
my $status = executeTestApp($testapp);
|
|
|
if ($status != 0) {
|
|
|
$script_exit_status = $status;
|
|
|
}
|
|
|
} else {
|
|
|
#print "file $testapp not executable\n";
|
|
|
}
|
|
|
}
|
|
|
}
|
|
|
closedir TESTAPPDIR;
|
|
|
|
|
|
print "\n*** script exit status : $script_exit_status ***\n\n";
|
|
|
exit($script_exit_status);
|
|
|
|
|
|
|
|
|
sub executeTestApp($) {
|
|
|
my $testapp = $_[0];
|
|
|
|
|
|
# On OSX the actual test binary is in a sub folder
|
|
|
my $cmd_postfix = "";
|
|
|
if ($^O eq "darwin") {
|
|
|
$cmd_postfix = "/Contents/MacOS/$testapp";
|
|
|
$cmd_postfix = substr($cmd_postfix, 0, rindex($cmd_postfix, ".app"));
|
|
|
}
|
|
|
|
|
|
my $cmd = "$bin_path$testapp$cmd_postfix -xunitxml -o $reports_path/$testapp.xml";
|
|
|
print "executing: $cmd\n";
|
|
|
system($cmd);
|
|
|
|
|
|
# From http://perldoc.perl.org/perlvar.html about $?:
|
|
|
# The upper eight bits reflect specific error conditions encountered by the
|
|
|
# program (the program's exit() value). The lower eight bits reflect
|
|
|
# mode of failure, like signal death and core dump information.
|
|
|
# See wait(2) for details.
|
|
|
my $exit_status = $? >> 8;
|
|
|
print "\texit status: $exit_status\n";
|
|
|
|
|
|
return $exit_status;
|
|
|
}
|
|
|
|
