Put some headers in error messages in single quotes.

diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl
index fcdf816..29dc7bc 100755 (executable)
--- 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.166 2009/02/27 18:33:39 fk Exp $
+# $Id: privoxy-regression-test.pl,v 1.167 2009/04/05 18:58:46 fk Exp $
 #
 # Wish list:
 #
@@ -875,7 +875,7 @@ sub check_header_result ($$) {
 
             $header = "REMOVAL" unless defined $header;
             l(LL_VERBOSE_FAILURE,
-              "Ooops. Got: " . $header . " while expecting: " . $expect_header);
+              "Ooops. Got: '" . $header . "' while expecting: '" . $expect_header . "'");
         }
 
     } elsif ($expect_header eq 'REMOVAL') {
@@ -883,7 +883,7 @@ sub check_header_result ($$) {
         if (defined($header) and $header eq $test{'data'}) {
 
             l(LL_VERBOSE_FAILURE,
-              "Ooops. Expected removal but: " . $header . " is still there.");
+              "Ooops. Expected removal but: '" . $header . "' is still there.");
 
         } else {
 
@@ -902,7 +902,7 @@ sub check_header_result ($$) {
 
             $header = "REMOVAL" unless defined $header;
             l(LL_VERBOSE_FAILURE,
-              "Ooops. Got: " . $header . " while expecting: SOME CHANGE");
+              "Ooops. Got: '" . $header . "' while expecting: SOME CHANGE");
         }
 
 
@@ -916,7 +916,7 @@ sub check_header_result ($$) {
 
             $header = "'No matching header'" unless defined $header; # XXX: No header detected to be precise
             l(LL_VERBOSE_FAILURE,
-              "Ooops. Got: " . $header . " while expecting: " . $expect_header);
+              "Ooops. Got: '" . $header . "' while expecting: '" . $expect_header . "'");
         }
     }
     return $success;