@@ -23,7 +23,7 @@ use Test::Nginx::HTTP2;
23
23
select STDERR ; $| = 1;
24
24
select STDOUT ; $| = 1;
25
25
26
- my $t = Test::Nginx-> new()-> has(qw/ http http_v2 proxy cache/ )-> plan(12 )
26
+ my $t = Test::Nginx-> new()-> has(qw/ http http_v2 proxy cache/ )-> plan(9 )
27
27
-> write_file_expand(' nginx.conf' , <<'EOF' );
28
28
29
29
%%TEST_GLOBALS%%
@@ -130,22 +130,6 @@ $frames = $s->read(all => [{ sid => $sid, fin => 1 }], wait => 0.2);
130
130
push @$frames , $_ for @{$s -> read (all => [{ sid => $sid }], wait => 0.2)};
131
131
ok(!grep ({ $_ -> {type } eq " DATA" } @$frames ), ' proxy cache HEAD - no body' );
132
132
133
- # proxy cache - expect no stray empty DATA frame
134
-
135
- TODO: {
136
- local $TODO = ' not yet' ;
137
-
138
- $s = Test::Nginx::HTTP2-> new();
139
- $sid = $s -> new_stream({ path => ' /cache/t.html?2' });
140
-
141
- $frames = $s -> read (all => [{ sid => $sid , fin => 1 }]);
142
- my @data = grep ({ $_ -> {type } eq " DATA" } @$frames );
143
- is(@data , 1, ' proxy cache write - data frames' );
144
- is(join (' ' , map { $_ -> {data } } @data ), ' SEE-THIS' , ' proxy cache write - data' );
145
- is(join (' ' , map { $_ -> {flags } } @data ), ' 1' , ' proxy cache write - flags' );
146
-
147
- }
148
-
149
133
# HEAD on empty cache with proxy_buffering off
150
134
151
135
$s = Test::Nginx::HTTP2-> new();
0 commit comments