changeset 1914:afbf4c06c014

Tests: fixed croak sending QUIC Initial with CCM cipher negotiated.
author Sergey Kandaurov <pluknet@nginx.com>
date Fri, 16 Jun 2023 14:54:11 +0400
parents 032ccd3118cb
children 15131dd931a0
files lib/Test/Nginx/HTTP3.pm
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lib/Test/Nginx/HTTP3.pm
+++ b/lib/Test/Nginx/HTTP3.pm
@@ -1762,9 +1762,9 @@ sub encrypt_aead {
 	my $nonce = substr(pack("x12") . pack("N", $pn), -12)
 		^ $self->{keys}[$level]{w}{iv};
 	my ($f, @args) = encrypt_aead_f($level, $self->{cipher});
+	my @taglen = ($level != 0 && $self->{cipher} == 0x1304) ? 16 : ();
 	my ($ciphertext, $tag) = $f->(@args,
-		$self->{keys}[$level]{w}{key}, $nonce, $ad,
-		$self->{cipher} == 0x1304 ? 16 : (), $payload);
+		$self->{keys}[$level]{w}{key}, $nonce, $ad, @taglen, $payload);
 	my $sample = substr($ciphertext . $tag, 0, 16);
 
 	$ad = $self->encrypt_ad($ad, $self->{keys}[$level]{w}{hp},