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