# HG changeset patch # User Sergey Kandaurov # Date 1441188357 -10800 # Node ID 944b87756cab12a7f1dbc946a49de8c07e0eb0ca # Parent 0c442e551ba1e62c86c4d561bb5de16b5fe5ee4c Tests: fixed GOAWAY and PING frames parsing in HTTP/2 tests. diff --git a/h2.t b/h2.t --- a/h2.t +++ b/h2.t @@ -1740,7 +1740,7 @@ sub settings { sub ping { my ($ctx, $buf, $len) = @_; - return { value => unpack "a8", $buf }; + return { value => unpack "A$len", $buf }; } sub rst_stream { @@ -1758,7 +1758,8 @@ sub goaway { $payload{last_sid} = $stream; $len -= 4; - $payload{debug} = unpack "x4 A$len", $buf; + $payload{code} = unpack "x4 N", $buf; + $payload{debug} = unpack "x8 A$len", $buf; return \%payload; }