Move tests to subests

libwww-perl · Oct 12, 2018 · ef241a9 · ef241a9
1 parent f2855a0
commit ef241a9
Showing 1 changed file with 18 additions and 13 deletions.
diff --git a/xt/author/live/encoding.t b/xt/author/live/encoding.t
@@ -2,30 +2,35 @@ use strict;
 use warnings;
 
 use constant PAIRS => {
-    'https://www.tripadvisor.com/'
-        => 'utf-8',
-    'http://www.liveinternet.ru/users/dashdi/blog'
-        => 'cp1251',
+    'https://www.tripadvisor.com/'                 => 'utf-8',
+    'http://www.liveinternet.ru/users/dashdi/blog' => 'cp1251',
 };
 
 use Encode;
 use Test::More;
 use Test::Needs 'LWP::Protocol::https';
-use Test::RequiresInternet( 'www.tripadvisor.com' => 443, 'www.liveinternet.ru' => 80 );
+use Test::RequiresInternet(
+    'www.tripadvisor.com' => 443,
+    'www.liveinternet.ru' => 80
+);
 use WWW::Mechanize;
 
-my %pairs = %{+PAIRS};
+my %pairs = %{ +PAIRS };
 for my $url ( sort keys %pairs ) {
-    my $want_encoding = $pairs{$url};
+    subtest $url => sub {
+        my $want_encoding = $pairs{$url};
 
-    my $mech = WWW::Mechanize->new;
+        my $mech = WWW::Mechanize->new;
 
-    $mech->get( $url );
-    is( $mech->response->code, 200, "Fetched $url" );
+        $mech->get($url);
+        is( $mech->response->code, 200, "Fetched $url" );
 
-    like( $mech->res->content_charset, qr/$want_encoding/i,
-        "   ... Got encoding $want_encoding" );
-    ok( Encode::is_utf8( $mech->content ), 'Got back UTF-8' );
+        like(
+            $mech->res->content_charset, qr/$want_encoding/i,
+            "   ... Got encoding $want_encoding"
+        );
+        ok( Encode::is_utf8( $mech->content ), 'Got back UTF-8' );
+    };
 }
 
 done_testing();