view release on metacpan or  search on metacpan

t/cache.t  view on Meta::CPAN

	ok(length($body) eq $length);

	my $h = HTTP::Headers->new();
	foreach my $header(split(/\r?\n/, $headers)) {
		my ($key, $value) = split(/:\s?/, $header, 2);
		$h->header($key => $value);
	}
	my $r = HTTP::Response->new(200, 'OK', $h, $body);
	ok($h->content_encoding() eq 'gzip');

	$body = $r->decoded_content();
	if($^O eq 'MSWin32') {
		ok($body =~ /\\web\\English\\test4.cgi\\.+\.html"/m);
	} else {
		ok($body =~ /"\/web\/English\/test4.cgi\/.+\.html"/m);
	}
	ok($body !~ /"\?arg1=a/m);

	$ENV{'REQUEST_METHOD'} = 'HEAD';
	$ENV{'HTTP_ACCEPT_ENCODING'} = 'gzip';
	($stdout, $stderr) = capture { test5b() };