Run all travis tests and expose the final result as exit code
This commit is contained in:
parent
adc9348e80
commit
a073acd406
@ -44,14 +44,16 @@ sub TestCase {
|
|||||||
}
|
}
|
||||||
|
|
||||||
my $testcases = 'testcases';
|
my $testcases = 'testcases';
|
||||||
my $testresults = 1;
|
my $testresults = 0;
|
||||||
|
|
||||||
opendir(my $dir, $testcases) or die "Could not open directory $testcases: $!";
|
opendir(my $dir, $testcases) or die "Could not open directory $testcases: $!";
|
||||||
|
|
||||||
while (my $entry = readdir($dir)) {
|
while (my $entry = readdir($dir)) {
|
||||||
next unless (-d "$testcases/$entry");
|
next unless (-d "$testcases/$entry");
|
||||||
next if ($entry =~ m/^\./);
|
next if ($entry =~ m/^\./);
|
||||||
$testresults = $testresults && TestCase("$testcases/$entry");
|
if (not TestCase("$testcases/$entry") ) {
|
||||||
|
$testresults = 1;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
closedir($dir);
|
closedir($dir);
|
||||||
exit 0;
|
exit $testresults;
|
||||||
|
Loading…
Reference in New Issue
Block a user