lib/mbedtls
1
0
Fork 0
mirror of https://github.com/Mbed-TLS/mbedtls.git synced 2025-07-30 22:43:08 +03:00
Code Activity

Merge pull request #6543 from mpg/improve-test-suites-listing

Browse Source 
Improve test suite detection in run-test-suites.pl
This commit is contained in:
Gilles Peskine
2022-11-09 19:03:03 +01:00
committed by GitHub
parent ed4b34aa7c 38860e2f19
commit 9a571ddfd9
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/scripts/run-test-suites.pl
View File

@ -50,11 +50,13 @@ GetOptions(
'verbose|v:1' => \$verbose, 'verbose|v:1' => \$verbose,
) or die; ) or die;
# All test suites = executable files, excluding source files, debug # All test suites = executable files derived from a .data file.
# and profiling information, etc. We can't just grep {! /\./} because my @suites = ();
# some of our test cases' base names contain a dot. for my $data_file (glob 'suites/test_suite_*.data') {
my @suites = grep { -x $_ || /\.exe$/ } glob 'test_suite_*'; (my $base = $data_file) =~ s#^suites/(.*)\.data$#$1#;
@suites = grep { !/\.c$/ && !/\.data$/ && -f } @suites; push @suites, $base if -x $base;
push @suites, "$base.exe" if -e "$base.exe";
}
die "$0: no test suite found\n" unless @suites; die "$0: no test suite found\n" unless @suites;
# "foo" as a skip pattern skips "test_suite_foo" and "test_suite_foo.bar" # "foo" as a skip pattern skips "test_suite_foo" and "test_suite_foo.bar"