X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2F50-network.t;h=14a9cb9e72dd1bdda4e169e050ed66b9148324ad;hb=aa0cd8d4eead4039d4a02d1949a43d63b8d05bdc;hp=b940cc8d6f45bb744679d36de3b4084fb9421b94;hpb=de48830a28800ad0465048ce165b23a74a966265;p=www-offliberty.git

diff --git a/t/50-network.t b/t/50-network.t
index b940cc8..14a9cb9 100644
--- a/t/50-network.t
+++ b/t/50-network.t
@@ -1,20 +1,14 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 use strict;
 use warnings;
 
-use Test::More;
+use Test::RequiresInternet 'offliberty.com' => 80;
+use Test::More tests => 2;
 use WWW::Offliberty qw/off/;
 
-if ($ENV{NETWORK_TEST}) {
-  plan tests => 2;
+my @results;
+@results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
+cmp_ok @results, '>=', 1, 'youtube';
 
-  my @results;
-
-  @results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
-  is @results, 1, 'youtube';
-
-  @results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
-  is @results, 2, 'youtube, video_file => 1';
-} else {
-  plan skip_all => '$ENV{NETWORK_TEST} not true';
-}
+@results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
+is @results, 2, 'youtube, video_file => 1';