Tests: add proxy_http2_cache.t for HTTP/2 proxy with cache support.

This is a basic test for cache functionality. More comprehensive
tests will be added later.

Author: hongzhidao

proxy_http2_cache.t

@@ -24,7 +24,7 @@ select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
 my $t = Test::Nginx->new()->has(qw/http rewrite http_v2 proxy cache/)
-	->has(qw/upstream_keepalive/)->plan(2);
+	->has(qw/upstream_keepalive/)->plan(3);
 
 $t->write_file_expand('nginx.conf', <<'EOF');
 
@@ -84,17 +84,11 @@ $frames = $f->{http_end}();
 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
 like($frame->{headers}{'x-cache-status'}, qr/MISS/, 'cache test - MISS on first request');
 
-# Test cached response - second request should be HIT
+# Second request - should be HIT from cache
 
-undef $f;
-$f = proxy_http2();
-
-$frames = $f->{http_start}('/');
-($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
-$f->{data}('Hello');
-$frames = $f->{http_end}();
+$frames = $f->{request}('/');
 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
-like($frame->{headers}{'x-cache-status'}, qr/HIT/, 'cache test - HIT on cached request');
+like($frame->{headers}{'x-cache-status'}, qr/HIT/, 'cache test - HIT on second request');
 
 ###############################################################################
 
@@ -157,20 +151,12 @@ sub proxy_http2 {
 	$f->{http_end} = sub {
 		my (%extra) = @_;
 
-		# Determine cache status based on request count
-		my $cache_status = 'MISS';
-		if ($n > 1) {
-			$cache_status = 'HIT';
-		}
-
 		my $h = [
 			{ name => ':status', value => '200',
 				mode => $extra{mode} || 0 },
 			{ name => 'content-type', value => 'text/plain',
 				mode => $extra{mode} || 1, huff => 1 },
 			{ name => 'x-connection', value => $n,
-				mode => 2, huff => 1 },
-			{ name => 'x-cache-status', value => $cache_status,
 				mode => 2, huff => 1 }];
 		push @$h, { name => 'content-length', value => $extra{cl} }
 			if $extra{cl};
@@ -187,11 +173,17 @@ sub proxy_http2 {
 
 		return $s->read(all => [{ fin => 1 }]);
 	};
+	$f->{request} = sub {
+		my ($uri) = @_;
+		$s = Test::Nginx::HTTP2->new() if !defined $s;
+		my $sid = $s->new_stream({ path => $uri });
+		return $s->read(all => [{ fin => 1 }]);
+	};
 	return $f;
 }
 
 sub log2i { Test::Nginx::log_core('|| <<', @_); }
 sub log2o { Test::Nginx::log_core('|| >>', @_); }
 sub log2c { Test::Nginx::log_core('||', @_); }
 
-###############################################################################
+###############################################################################