When verbosity is requested, OpenSSL::Test::run() displays the command

[openssl.git] / test / testlib / OpenSSL / Test.pm

diff --git a/test/testlib/OpenSSL/Test.pm b/test/testlib/OpenSSL/Test.pm
index c0471f918b5df8c4be1585765e3e25306e4f4659..c2b9f5c589625ca6e55f294fd539ca1023f9d396 100644 (file)
--- a/test/testlib/OpenSSL/Test.pm
+++ b/test/testlib/OpenSSL/Test.pm
@@ -354,6 +354,9 @@ sub run {
        $r = $hooks{exit_checker}->($e);
     }
 
+    print STDERR "$prefix$cmd => $e\n"
+        if !$ENV{HARNESS_ACTIVE} || $ENV{HARNESS_VERBOSE};
+
     # At this point, $? stops being interesting, and unfortunately,
     # there are Test::More versions that get picky if we leave it
     # non-zero.