Mercurial > hg > nginx-tests

comparison h2_request_body.t @ 1232:a4a040b4e4dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: removed TODOs for fixes merged in 1.12.2.
author Sergey Kandaurov <pluknet@nginx.com>
date Sat, 21 Oct 2017 01:07:48 +0300
parents 124322e9accd
children b5620655b506
comparison
equal deleted inserted replaced
1231:5ceb07e20515 1232:a4a040b4e4dd
441 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames; 441 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
442 is($frame->{headers}->{'x-body-file'}, undef, 'no request body in file'); 442 is($frame->{headers}->{'x-body-file'}, undef, 'no request body in file');
443 443
444 # ticket #1384, request body corruption in recv_buffer 444 # ticket #1384, request body corruption in recv_buffer
445 445
446 TODO: {
447 local $TODO = 'not yet' unless $t->has_version('1.13.6');
448
449 $s = Test::Nginx::HTTP2->new(); 446 $s = Test::Nginx::HTTP2->new();
450 $sid = $s->new_stream({ path => '/off/slow.html', body_more => 1 }); 447 $sid = $s->new_stream({ path => '/off/slow.html', body_more => 1 });
451 select undef, undef, undef, 0.1; 448 select undef, undef, undef, 0.1;
452 449
453 # for simplicity, DATA frame is received on its own for a known offset 450 # for simplicity, DATA frame is received on its own for a known offset
461 $s->h2_ping('xxxx'); 458 $s->h2_ping('xxxx');
462 459
463 $frames = $s->read(all => [{ sid => $sid, fin => 1 }]); 460 $frames = $s->read(all => [{ sid => $sid, fin => 1 }]);
464 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames; 461 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
465 isnt($frame->{headers}->{'x-body'}, 'xxxx', 'sync buffer'); 462 isnt($frame->{headers}->{'x-body'}, 'xxxx', 'sync buffer');
466
467 }
468 463
469 ############################################################################### 464 ###############################################################################
470 465
471 sub read_body_file { 466 sub read_body_file {
472 my ($path) = @_; 467 my ($path) = @_;