1use strict; 2use Test::More; 3 4my $url = $ENV{ OPENSEARCH_URL }; 5unless ( $url ) { 6 Test::More->import( skip_all => "OPENSEARCH_URL not set" ); 7 exit; 8} 9 10# XXX This is not testing, but for debugging :) 11plan 'no_plan'; 12 13use WWW::OpenSearch; 14 15my $engine = WWW::OpenSearch->new( $url ); 16ok $engine; 17ok $engine->description->shortname, $engine->description->shortname; 18 19my $res = $engine->search( "iPod" ); 20ok $res; 21ok $res->feed->title, $res->feed->title; 22ok $res->feed->link, $res->feed->link; 23ok $res->pager->entries_per_page, 24 "items per page " . $res->pager->entries_per_page; 25ok $res->pager->total_entries, "total entries " . $res->pager->total_entries; 26