Tests: extended interface for sending QUIC PINGs.

pluknet · pluknet · commit 4dd18f9420f4 · 2023-12-11T14:02:11.000+04:00
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
@@ -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 {

Original file line number	Diff line number	Diff line change
`@@ -259,9 +259,11 @@ sub DESTROY {`
`259`	`259`	`}`
`260`	`260`
`261`	`261`	`sub ping {`
`262`		`- my ($self) = @_;`
`263`		`- my $frame = "\x01\x00\x00\x00";`
`264`		`- $self->{socket}->syswrite($self->encrypt_aead($frame, 3));`
	`262`	`+ my ($self, $level, $pad) = @_;`
	`263`	`+ $level = 3 if !defined $level;`
	`264`	`+ $pad = 4 if !defined $pad;`
	`265`	`+ my $frame = "\x01" . "\x00" x ($pad - 1);`
	`266`	`+ $self->{socket}->syswrite($self->encrypt_aead($frame, $level));`
`265`	`267`	`}`
`266`	`268`
`267`	`269`	`sub reset_stream {`