# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1692018619 -14400
# Node ID 0fb9ca9046bf63e6d92ab40276f7b71f79569c07
# Parent  a4f1cbd87f0d40e147e1d2647df5f58c0474d3d7
Tests: fixed variable-length encoding of QUIC Stream ID.

diff --git a/lib/Test/Nginx/HTTP3.pm b/lib/Test/Nginx/HTTP3.pm
--- 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 {