# A regression test "framework" for Privoxy. For documentation see:
# perldoc privoxy-regression-test.pl
#
-# $Id: privoxy-regression-test.pl,v 1.147 2008/05/04 18:17:45 fk Exp $
+# $Id: privoxy-regression-test.pl,v 1.149 2008/05/17 14:11:29 fk Exp $
#
# Wish list:
#
my $expect_header = $test{'expect-header'};
my $success = 0;
- $header =~ s@ @ @g if defined($header);
-
if ($expect_header eq 'NO CHANGE') {
if (defined($header) and $header eq $test{'data'}) {
s@^\s*<.*?>@@g;
s@\s*$@@g;
+ # Decode characters we care about.
+ s@"@"@g;
+
$filtered_request .= "\n" . $_;
if (/^$header_to_get/) {