Tests: fixed variable-length encoding of QUIC Stream ID.

pluknet · pluknet · commit 2dc0f8f212af · 2023-08-14T17:10:19.000+04:00
diff --git a/lib/Test/Nginx/HTTP3.pm b/lib/Test/Nginx/HTTP3.pm
@@ -1969,7 +1969,8 @@ sub build_stream {
 	my $length = $extra{length} ? $extra{length} : build_int(length($r));
 	my $offset = build_int($extra{offset} ? $extra{offset} : 0);
 	my $sid = defined $extra{sid} ? $extra{sid} : $self->{requests}++;
-	pack("CC", $stream, 4 * $sid) . $offset . $length . $r;
+	$sid = build_int(4 * $sid);
+	pack("C", $stream) . $sid . $offset . $length . $r;
 }
 
 sub parse_int {

Original file line number	Diff line number	Diff line change
`@@ -1969,7 +1969,8 @@ sub build_stream {`
`1969`	`1969`	`my $length = $extra{length} ? $extra{length} : build_int(length($r));`
`1970`	`1970`	`my $offset = build_int($extra{offset} ? $extra{offset} : 0);`
`1971`	`1971`	`my $sid = defined $extra{sid} ? $extra{sid} : $self->{requests}++;`
`1972`		`- pack("CC", $stream, 4 * $sid) . $offset . $length . $r;`
	`1972`	`+ $sid = build_int(4 * $sid);`
	`1973`	`+ pack("C", $stream) . $sid . $offset . $length . $r;`
`1973`	`1974`	`}`
`1974`	`1975`
`1975`	`1976`	`sub parse_int {`