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;