# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1702288931 -14400
# Node ID 2c4f1019ee0d23b256a6b0a1bdbd9a068f7d0d45
# Parent  aec72dcee93b217e49980c8aa003775e368e3855
Tests: extended interface for sending QUIC PINGs.

It is useful to experiment with packet expansion on limited paths,
particularly during QUIC connection migration.

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
@@ -259,9 +259,11 @@ sub DESTROY {
 }
 
 sub ping {
-	my ($self) = @_;
-	my $frame = "\x01\x00\x00\x00";
-	$self->{socket}->syswrite($self->encrypt_aead($frame, 3));
+	my ($self, $level, $pad) = @_;
+	$level = 3 if !defined $level;
+	$pad = 4 if !defined $pad;
+	my $frame = "\x01" . "\x00" x ($pad - 1);
+	$self->{socket}->syswrite($self->encrypt_aead($frame, $level));
 }
 
 sub reset_stream {