Merge pull request #1969 from misch2/michals/convert-tests-to-use-sub…

…tests-ioloop-ipv6 Convert t/mojo/ioloop_ipv6.t to use subtests
mojolicious · Aug 14, 2022 · ac8eb21 · ac8eb21
2 parents 5443420 + bd2f7fa
commit ac8eb21
Showing 1 changed file with 26 additions and 25 deletions.
diff --git a/t/mojo/ioloop_ipv6.t b/t/mojo/ioloop_ipv6.t
@@ -10,30 +10,31 @@ plan skip_all => 'set TEST_IPV6 to enable this test (developer only!)' unless $E
 
 use Mojo::IOLoop;
 
-# IPv6 roundtrip
-my ($server, $client);
-my $promise = Mojo::Promise->new;
-my $id      = Mojo::IOLoop->server(
-  {address => '[::1]'} => sub {
-    my ($loop, $stream) = @_;
-    $stream->write('test' => sub { shift->write('321') });
-    $stream->on(close => sub { $promise->resolve });
-    $stream->on(read  => sub { $server .= pop });
-  }
-);
-my $port     = Mojo::IOLoop->acceptor($id)->port;
-my $promise2 = Mojo::Promise->new;
-Mojo::IOLoop->client(
-  {address => '[::1]', port => $port} => sub {
-    my ($loop, $err, $stream) = @_;
-    $stream->write('tset' => sub { shift->write('123') });
-    $stream->on(close => sub { $promise2->resolve });
-    $stream->on(read  => sub { $client .= pop });
-    $stream->timeout(0.5);
-  }
-);
-Mojo::Promise->all($promise, $promise2)->wait;
-is $server, 'tset123', 'right content';
-is $client, 'test321', 'right content';
+subtest 'IPv6 roundtrip' => sub {
+  my ($server, $client);
+  my $promise = Mojo::Promise->new;
+  my $id      = Mojo::IOLoop->server(
+    {address => '[::1]'} => sub {
+      my ($loop, $stream) = @_;
+      $stream->write('test' => sub { shift->write('321') });
+      $stream->on(close => sub { $promise->resolve });
+      $stream->on(read  => sub { $server .= pop });
+    }
+  );
+  my $port     = Mojo::IOLoop->acceptor($id)->port;
+  my $promise2 = Mojo::Promise->new;
+  Mojo::IOLoop->client(
+    {address => '[::1]', port => $port} => sub {
+      my ($loop, $err, $stream) = @_;
+      $stream->write('tset' => sub { shift->write('123') });
+      $stream->on(close => sub { $promise2->resolve });
+      $stream->on(read  => sub { $client .= pop });
+      $stream->timeout(0.5);
+    }
+  );
+  Mojo::Promise->all($promise, $promise2)->wait;
+  is $server, 'tset123', 'right content';
+  is $client, 'test321', 'right content';
+};
 
 done_testing();