# HG changeset patch # User Sergey Kandaurov # Date 1461163141 -10800 # Node ID 2668f30181eb3462d9149726373ca778cb882f24 # Parent 49579dd88e3fbb1c8025b1e47dc711f74e0f7560 Tests: HTTP/2 server frames logging. diff --git a/lib/Test/Nginx/HTTP2.pm b/lib/Test/Nginx/HTTP2.pm --- a/lib/Test/Nginx/HTTP2.pm +++ b/lib/Test/Nginx/HTTP2.pm @@ -23,6 +23,7 @@ use Test::More qw//; use IO::Select; use IO::Socket; use Socket qw/ CRLF /; +use Data::Dumper; use Test::Nginx; @@ -265,6 +266,8 @@ sub h2_read { my $s = $sess->{socket}; my $buf = ''; + local $Data::Dumper::Terse = 1; + while (1) { $buf = raw_read($s, $buf, 9); last if length $buf < 9; @@ -290,6 +293,8 @@ sub h2_read { $frame->{sid} = $stream; push @got, $frame; + Test::Nginx::log_core('||', $_) for split "\n", Dumper $frame; + $buf = substr($buf, $length); last unless $extra{all} && test_fin($got[-1], $extra{all});