MM-XXXX

Fix embedded_style_block.t.

Related PR would always fail. Reason for this is that
LWP::Simple->get() does not pass a proper user agent, and is blocked
by a very large number of webservers, including rawgit.

The requirement, to fetch a remote file, is already accounted for
within this particular library. I basically removed the get() request,
and then shuffled some code around.

If Inliner is unable to request the file, we will now fail before
attempting to inline. Otherwise it will proceed as normal. We'll see
if there are other unstated issues that the previous approach was
dealing with.

Author: kamelkev

t/embedded_style_block.t

@@ -9,13 +9,6 @@ use LWP::Simple;
 
 use FindBin qw($Bin);
 
-eval {
-  get('https://rawgit.com') or die $@;
-};
-
-# conditional test plan based on whether or not the endpoint can be reached - frequently can't by cpan testers
-plan $@ ? (skip_all => 'Connectivity for endpoint required for test cannot be established') : (tests => 1);
-
 my $html_path = "$Bin/html/";
 my $test_url = 'https://rawgit.com/kamelkev/CSS-Inliner/master/t/html/embedded_style.html';
 my $result_file = $html_path . 'embedded_style_result.html';
@@ -24,7 +17,14 @@ open( my $fh, $result_file ) or die "can't open $result_file: $!!\n";
 my $correct_result = do { local( $/ ) ; <$fh> } ;
 
 my $inliner = CSS::Inliner->new();
-$inliner->fetch_file({ url => $test_url });
+
+eval {
+  $inliner->fetch_file({ url => $test_url });
+};
+
+## conditional test plan based on whether or not the endpoint can be reached - frequently can't by cpan testers
+plan $@ ? (skip_all => 'Connectivity for endpoint required for test cannot be established') : (tests => 1);
+
 my $inlined = $inliner->inlinify();
 
 ok($inlined eq $correct_result, 'result was correct');