Changeset 29377

Timestamp:

02/01/09 13:55:24 (4 years ago)

Author:

yusukebe

Message:

fixed test for XML::Feed

Files:

• lang/perl/WebService-Simple/trunk/t/02_parser_xml_feed.t (modified) (2 diffs)

lang/perl/WebService-Simple/trunk/t/02_parser_xml_feed.t

@@ -1 +1 @@
 use strict;
-use Test::More qw( no_plan );
+use Test::More;
 
 BEGIN {
+    eval { require XML::Feed; };
+    if ($@) {
+        plan( skip_all => "XML::Feed not installed" );
+    }
+    else {
+        plan( tests => 3 );
+    }
     use_ok("WebService::Simple");
 }
@@ -15 +22 @@
         "WebService::Simple::Parser::XML::Feed" );
 
-    my $response =
-      $service->get( { q => "oasis" } );
+    my $response = $service->get( { q => "oasis" } );
     my $feed = $response->parse_response;
-    isa_ok( $feed, 'XML::Feed::Atom');
+    isa_ok( $feed, 'XML::Feed::Atom' );
 }
 
-