# 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:
#
$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') {
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 {
$header = "REMOVAL" unless defined $header;
l(LL_VERBOSE_FAILURE,
- "Ooops. Got: " . $header . " while expecting: SOME CHANGE");
+ "Ooops. Got: '" . $header . "' while expecting: SOME CHANGE");
}
$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;