generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add a method to list available tests

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile.org
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 ); $(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 OPENSSL_CONF=apps/openssl.cnf util/opensslwrap.sh version -a
list-tests:
@(cd test && \
$(CLEARENV) && $(MAKE) -e $(BUILDENV) TOP=.. list-tests)
report: report:
@$(PERL) util/selftest.pl @$(PERL) util/selftest.pl

2
test/Makefile
View File

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

13
test/run_tests.pl
View File

@ -26,7 +26,8 @@ my @tests = ( "alltests" );
if (@ARGV) { if (@ARGV) {
@tests = @ARGV; @tests = @ARGV;
} }
if (grep /^alltests$/, @tests) { my $list_mode = scalar(grep /^list$/, @tests) != 0;
if (grep /^alltests|list$/, @tests) {
@tests = grep { @tests = grep {
basename($_) =~ /^[0-9][0-9]-[^\.]*\.t$/ basename($_) =~ /^[0-9][0-9]-[^\.]*\.t$/
} glob(catfile($recipesdir,"*.t")); } glob(catfile($recipesdir,"*.t"));
@ -40,6 +41,12 @@ if (grep /^alltests$/, @tests) {
@tests = @t; @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);
}