Changeset 17003 for lang/perl/Data-Feed

Timestamp:

08/03/08 07:05:13 (5 years ago)

Author:

daisuke

Message:

don't rely on network

Location:

lang/perl/Data-Feed/trunk/t

Files:

• 01_rss.t (modified) (3 diffs)
• data/rss-with-media.xml (added)

lang/perl/Data-Feed/trunk/t/01_rss.t

@@ -2 +2 @@
 use Test::More (tests => 25);
 
-my $HAVE_NETWORK;
-
 BEGIN {
-    if ( $ENV{DATA_FEED_NETWORK_TEST}) {
-        $HAVE_NETWORK = 1;
-    } else {
-        eval {
-            require IO::Socket::INET;
-            my $socket = IO::Socket::INET->new(
-                PeerAddr => '4u.straightline.jp',
-                PeerPort => 80
-            );
-            if ($socket || !$@) {
-                $HAVE_NETWORK = 1;
-            }
-        };
-    }
-
-
     use_ok("Data::Feed");
 }
@@ -39 +21 @@
 }
 
-SKIP: {
-    skip( "No network connection", 19 ) unless $HAVE_NETWORK;
-    my $rss = eval {
-        Data::Feed->parse( URI->new('http://4u.straightline.jp/rss') )
-    };
-    if ($@ && $@ =~ /Failed to fetch/) {
-        skip( "Failed to fetch rss (skipping for sanity's sake", 19 );
-    }
+{
+    my $rss = Data::Feed->parse( 't/data/rss-with-media.xml' );
 
     ok( $rss, "Fetch successful" );
@@ -57 +33 @@
 
     for my $entry (@entries) {
-        ok( $entry->enclosures );
+        ok( $entry->enclosures, "enclosures for entry are ok" );
     }
 }