Add a method to list available tests
authorRichard Levitte <levitte@openssl.org>
Tue, 15 Sep 2015 12:07:10 +0000 (14:07 +0200)
committerRichard Levitte <levitte@openssl.org>
Tue, 15 Sep 2015 12:07:10 +0000 (14:07 +0200)
Reviewed-by: Emilia Käsper <emilia@openssl.org>
Makefile.org
test/Makefile
test/run_tests.pl

index 2f8e472..c56aa86 100644 (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
 
index 779d23a..e938633 100644 (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)
index 7e61282..cacbc02 100644 (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);
+}