diff options
| -rw-r--r-- | test/generate_ssl_tests.pl | 2 | ||||
| -rw-r--r-- | util/perl/OpenSSL/Test.pm | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/test/generate_ssl_tests.pl b/test/generate_ssl_tests.pl index 044dff6ad4..8cfc451fbb 100644 --- a/test/generate_ssl_tests.pl +++ b/test/generate_ssl_tests.pl @@ -19,7 +19,7 @@ use OpenSSL::Test::Utils; # This block needs to run before 'use lib srctop_dir' directives. BEGIN { - OpenSSL::Test::setup("no_test_here"); + OpenSSL::Test::setup("no_test_here", quiet => 1); } use FindBin; diff --git a/util/perl/OpenSSL/Test.pm b/util/perl/OpenSSL/Test.pm index 75ba2d3a63..4297106392 100644 --- a/util/perl/OpenSSL/Test.pm +++ b/util/perl/OpenSSL/Test.pm @@ -132,6 +132,7 @@ is defined). sub setup { my $old_test_name = $test_name; $test_name = shift; + my %opts = @_; BAIL_OUT("setup() must receive a name") unless $test_name; warn "setup() detected test name change. Innocuous, so we continue...\n" @@ -149,7 +150,8 @@ sub setup { BAIL_OUT("setup() expects the file Configure in the source top directory") unless -f srctop_file("Configure"); - note "The results of this test will end up in $directories{RESULTS}"; + note "The results of this test will end up in $directories{RESULTS}" + unless $opts{quiet}; __cwd($directories{RESULTS}); } |