##// END OF EJS Templates
HG_REPOSITORIES » LPP » INSTRUMENTATION » USERS » JEANDET » qtcharts
RSS

Clone from http://code.qt.io/qt/qtcharts.git

Added Config::Tiny as a local module....
Added Config::Tiny as a local module. This removes the dependency to install any extra modules on perl.
Jani Honkonen - - Load All Authors

File last commit:

r1137:696303b9edc0
r1150:27b7fe27c99d
Show More
run_tests.pl
75 lines | 2.0 KiB | text/plain | PerlLexer
/ test / scripts / run_tests.pl
History | Source | Raw |Copy content |Copy permalink
Jani Honkonen
Add a script for running tests
 r1134 use Cwd;
use Cwd 'abs_path';
use File::Basename;
use File::Copy;
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);
Jani Honkonen
run_tests.pl: return an error code if a test fails
 r1136 # set/get paths
Jani Honkonen
run_tests.pl: try to fix auto test running in win7
 r1135 my $root_path = abs_path();
Jani Honkonen
Remove extra "test" folder. Put all binaries in the bin.
 r1137 my $bin_path = "$root_path/bin/";
Jani Honkonen
run_tests.pl: return an error code if a test fails
 r1136 my $reports_path = "test-reports";
# create reports path
Jani Honkonen
Remove extra "test" folder. Put all binaries in the bin.
 r1137 mkdir $reports_path;
Jani Honkonen
run_tests.pl: try to fix auto test running in win7
 r1135
Jani Honkonen
Add a script for running tests
 r1134 # Windows specific magic
if ($job{'Platform'} eq "Win7") {
$ENV{'PATH'} .= ";" . $job{'QtDir'} . "\\bin"; # Add qtdir to path
Jani Honkonen
run_tests.pl: try to fix auto test running in win7
 r1135 $ENV{'PATH'} =~ s/\//\\/g; # replace / -> \
Jani Honkonen
Add a script for running tests
 r1134 }
Jani Honkonen
run_tests.pl: return an error code if a test fails
 r1136 my $script_exit_status = 0;
Jani Honkonen
Add a script for running tests
 r1134 # Go through all the files in the test folder
Jani Honkonen
run_tests.pl: return an error code if a test fails
 r1136 # autotest is an executable beginning with "tst_"
Jani Honkonen
Remove extra "test" folder. Put all binaries in the bin.
 r1137 opendir (TESTAPPDIR, "$bin_path") or die "Couldn't open test app dir";
Jani Honkonen
Add a script for running tests
 r1134 @files = <TESTAPPDIR>;
while ($testapp = readdir TESTAPPDIR) {
if (index($testapp, "tst_") == 0) {
Jani Honkonen
Remove extra "test" folder. Put all binaries in the bin.
 r1137 if (-x "$bin_path$testapp") {
Jani Honkonen
run_tests.pl: return an error code if a test fails
 r1136 my $status = executeTestApp($testapp);
if ($status != 0) {
$script_exit_status = $status;
}
Jani Honkonen
Add a script for running tests
 r1134 } else {
#print "file $testapp not executable\n";
}
}
}
closedir TESTAPPDIR;
Jani Honkonen
Remove extra "test" folder. Put all binaries in the bin.
 r1137 print "\n*** script exit status : $script_exit_status ***\n\n";
Jani Honkonen
run_tests.pl: return an error code if a test fails
 r1136 exit($script_exit_status);
Jani Honkonen
Add a script for running tests
 r1134
Jani Honkonen
run_tests.pl: return an error code if a test fails
 r1136 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"));
}
Jani Honkonen
Remove extra "test" folder. Put all binaries in the bin.
 r1137 my $cmd = "$bin_path$testapp$cmd_postfix -xunitxml -o $reports_path/$testapp.xml";
Jani Honkonen
run_tests.pl: return an error code if a test fails
 r1136 print "executing: $cmd\n";
Jani Honkonen
Remove extra "test" folder. Put all binaries in the bin.
 r1137 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.
Jani Honkonen
Add a script for running tests
 r1134 my $exit_status = $? >> 8;
Jani Honkonen
Remove extra "test" folder. Put all binaries in the bin.
 r1137 print "\texit status: $exit_status\n";
Jani Honkonen
run_tests.pl: return an error code if a test fails
 r1136
return $exit_status;
Jani Honkonen
Add a script for running tests
 r1134 }