X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FWebService-Strike.t;h=7713555614d44afcd20e1aa777f9a2d6c55a90a1;hb=fceb2d419996e35f394d758d9b090e520cf7a218;hp=42825e19196a469ed639a02d937b50487f544db1;hpb=b1241fec123cd9dcc2e0e595dd018ad5655b637c;p=webservice-strike.git

diff --git a/t/WebService-Strike.t b/t/WebService-Strike.t
index 42825e1..7713555 100644
--- a/t/WebService-Strike.t
+++ b/t/WebService-Strike.t
@@ -2,12 +2,18 @@
 use strict;
 use warnings;
 
-use Test::RequiresInternet qw/getstrike.net 80/;
+use Data::Dumper qw/Dumper/;
+use Test::RequiresInternet qw/getstrike.net 443/;
 use Test::More tests => 9;
 use Try::Tiny;
 BEGIN { use_ok('WebService::Strike') };
 
-my ($t1, $t2, $t3) = strike qw/B425907E5755031BDA4A8D1B6DCCACA97DA14C04 5D4FD5A64E436A831383773F85FB38B888B9ECC9 85DF191A921C20B2DDAFF72368CAB93BA18C5ACE/;
+my ($t1, $t2, $t3);
+try {
+	($t1, $t2, $t3) = strike qw/B425907E5755031BDA4A8D1B6DCCACA97DA14C04 5D4FD5A64E436A831383773F85FB38B888B9ECC9 85DF191A921C20B2DDAFF72368CAB93BA18C5ACE/;
+} catch {
+	diag 'Error while calling strike:', "\n", Dumper $_
+};
 
 subtest 'order' => sub {
 	plan tests => 3;