Imported Upstream version 0.13
[libwww-opensearch-perl.git] / t / 01_live.t
index aeec5f7..c1a2625 100644 (file)
@@ -1,9 +1,9 @@
 use strict;
 use Test::More;
 
-my $url = $ENV{OPENSEARCH_URL};
-unless ($url) {
-    Test::More->import(skip_all => "OPENSEARCH_URL not set");
+my $url = $ENV{ OPENSEARCH_URL };
+unless ( $url ) {
+    Test::More->import( skip_all => "OPENSEARCH_URL not set" );
     exit;
 }
 
@@ -12,13 +12,14 @@ plan 'no_plan';
 
 use WWW::OpenSearch;
 
-my $engine = WWW::OpenSearch->new($url);
+my $engine = WWW::OpenSearch->new( $url );
 ok $engine;
 ok $engine->description->shortname, $engine->description->shortname;
 
-my $res = $engine->search("iPod");
+my $res = $engine->search( "iPod" );
 ok $res;
 ok $res->feed->title, $res->feed->title;
-ok $res->feed->link, $res->feed->link;
-ok $res->pager->entries_per_page, "items per page " . $res->pager->entries_per_page;
+ok $res->feed->link,  $res->feed->link;
+ok $res->pager->entries_per_page,
+    "items per page " . $res->pager->entries_per_page;
 ok $res->pager->total_entries, "total entries " . $res->pager->total_entries;