Add a method to list available tests

Reviewed-by: Emilia Käsper <emilia@openssl.org>
This commit is contained in:
Richard Levitte 2015-09-15 14:07:10 +02:00
parent 187bad4c24
commit 1780e6d916
3 changed files with 16 additions and 3 deletions

View File

@ -439,6 +439,10 @@ tests: rehash
$(CLEARENV) && $(MAKE) -e $(BUILDENV) TOP=.. TESTS='$(TESTS)' OPENSSL_DEBUG_MEMORY=on OPENSSL_CONF=../apps/openssl.cnf tests );
OPENSSL_CONF=apps/openssl.cnf util/opensslwrap.sh version -a
list-tests:
@(cd test && \
$(CLEARENV) && $(MAKE) -e $(BUILDENV) TOP=.. list-tests)
report:
@$(PERL) util/selftest.pl

View File

@ -153,6 +153,8 @@ tags:
tests: exe apps
TOP=$(TOP) PERL=$(PERL) $(PERL) run_tests.pl $(TESTS)
list-tests:
@TOP=$(TOP) PERL=$(PERL) $(PERL) run_tests.pl list
apps:
@(cd ..; $(MAKE) DIRS=apps all)

View File

@ -26,7 +26,8 @@ my @tests = ( "alltests" );
if (@ARGV) {
@tests = @ARGV;
}
if (grep /^alltests$/, @tests) {
my $list_mode = scalar(grep /^list$/, @tests) != 0;
if (grep /^alltests|list$/, @tests) {
@tests = grep {
basename($_) =~ /^[0-9][0-9]-[^\.]*\.t$/
} glob(catfile($recipesdir,"*.t"));
@ -40,6 +41,12 @@ if (grep /^alltests$/, @tests) {
@tests = @t;
}
@tests = map { abs2rel($_, rel2abs(curdir())); } @tests;
if ($list_mode) {
@tests = map { $_ = basename($_); $_ =~ s/^[0-9][0-9]-//; $_ =~ s/\.t$//;
$_ } @tests;
print join("\n", @tests), "\n";
} else {
@tests = map { abs2rel($_, rel2abs(curdir())); } @tests;
runtests(sort @tests);
runtests(sort @tests);
}