##// END OF EJS Templates
Fix pie autotests...
Fix pie autotests Legend is now on by default which broke some tests.

File last commit:

r1103:7cb9d5f4a1e6
r1192:28f90ff1c65f
Show More
execute_tst.perl
42 lines | 1.4 KiB | text/plain | TextLexer
Tero Ahola
Added script for executing auto tests
r1102 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
Tero Ahola
Fixed test result path in autotest script
r1103 my $test_result_path = "test-reports/$testapp.xml";
Tero Ahola
Added script for executing auto tests
r1102 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";
}