X-Git-Url: http://erislabs.net/gitweb/?p=libwww-opensearch-perl.git;a=blobdiff_plain;f=t%2F01_live.t;h=c1a2625121a7b9bc5e3f368541c58b97427580ac;hp=aeec5f7f00a1e0abefe6358855fd15e5a21d1cac;hb=3e29d833e4fbe59c83e7ae52a7413b193c1083bd;hpb=5127c597102ab37e43b89cc43b4d8ea1b34509cd diff --git a/t/01_live.t b/t/01_live.t index aeec5f7..c1a2625 100644 --- a/t/01_live.t +++ b/t/01_live.t @@ -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;