|
|
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";
|
|
|
}
|
|
|
|
