blob: c0a34cd1f250ff1c4dd88f5dc458951a1cd39ffb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
use Cwd;
use Cwd 'abs_path';
use File::Basename;
use File::Copy;
use feature "switch";
use lib 'tools';
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;
}
|
