From: Fabian Keil <fk@fabiankeil.de>
Date: Tue, 5 Feb 2013 14:02:43 +0000 (+0000)
Subject: Only log the test number when not running in verbose mode
X-Git-Tag: v_3_0_21~69
X-Git-Url: http://www.privoxy.org/gitweb/?p=privoxy.git;a=commitdiff_plain;h=a858ca7389842eeb2677252685a39bcbacfac51f

Only log the test number when not running in verbose mode

The position of the test is rarely relevant and it previously
wasn't exactly obvious which one of the numbers was useful to
repeat the test with --test-number.
---

diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl
index a1911c78..436353db 100755
--- a/tools/privoxy-regression-test.pl
+++ b/tools/privoxy-regression-test.pl
@@ -7,7 +7,7 @@
 # A regression test "framework" for Privoxy. For documentation see:
 # perldoc privoxy-regression-test.pl
 #
-# $Id: privoxy-regression-test.pl,v 1.87 2013/01/06 18:16:10 fabiankeil Exp $
+# $Id: privoxy-regression-test.pl,v 1.88 2013/01/06 18:19:24 fabiankeil Exp $
 #
 # Wish list:
 #
@@ -1553,17 +1553,16 @@ sub log_result ($$) {
     my $result = shift;
     my $number = shift;
 
-    my $message = '';
-
-    $message .= interpret_result($result);
-    $message .= " for test ";
-    $message .= $number;
-    $message .= '/';
-    $message .= $test->{'number'};
-    $message .= '/';
-    $message .= $test->{'section-id'};
-    $message .= '/';
-    $message .= $test->{'regression-test-id'};
+    my $message = sprintf("%s for test %d",
+                          interpret_result($result),
+                          $test->{'number'});
+
+    if (cli_option_is_set('verbose')) {
+        $message = sprintf(" (%d/%d/%d)", $number,
+                            $test->{'section-id'},
+                            $test->{'regression-test-id'});
+    }
+
     $message .= '.';
 
     if ($verbose_test_description) {