##// 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.
Tero Ahola - - Load All Authors

File last commit:

r1103:7cb9d5f4a1e6
r1150:27b7fe27c99d
Show More
execute_tst.perl
42 lines | 1.4 KiB | text/plain | TextLexer
/ test / scripts / execute_tst.perl
History | Annotation | Raw |Copy content |Copy permalink
use Cwd;
use Cwd 'abs_path';
use File::Basename;
# Go through all the files in the test folder
my $root_path = abs_path();
my $test_path = "$root_path/bin/test/";
opendir (TESTAPPDIR, "$test_path") or die "Couldn't open test app dir";
@files = <TESTAPPDIR>;
while ($testapp = readdir TESTAPPDIR) {
# autotest is an executable beginning with "tst_"
if (index($testapp, "tst_") == 0) {
if (-x "$test_path$testapp") {
my $cmd_postfix = "";
if ($^O == "darwin") {
# On OSX the actual test binary is in a sub folder
$cmd_postfix = "/Contents/MacOS/$testapp";
$cmd_postfix = substr($cmd_postfix, 0, rindex($cmd_postfix, ".app"));
}
# Generate path for test results
my $test_result_path = "test-reports/$testapp.xml";
mkdir dirname($test_result_path);
# Execute the actual auto test
executeTestApp("$test_path$testapp$cmd_postfix", "-xunitxml -o $test_result_path");
} else {
print "file $tst_executable not executable";
}
}
}
closedir TESTAPPDIR;
sub executeTestApp($) {
my $test_app_path = $_[0];
my $parameters = $_[1];
print "executing: $cmd_prefix$test_app_path $parameters\n";
my $file_handle = system("$test_app_path $parameters");
my $exit_status = $? >> 8;
# print "exit: $exit_status \n";
# print "handle: $file_handle\n";
}