X-Git-Url: http://erislabs.net/gitweb/?p=libwww-opensearch-perl.git;a=blobdiff_plain;f=t%2F01_live.t;fp=t%2F01_live.t;h=aeec5f7f00a1e0abefe6358855fd15e5a21d1cac;hp=0000000000000000000000000000000000000000;hb=ec50391b25e981b1b9bae8e42e03c0fc9c218845;hpb=3bea9ee9d57430b70d78dc4bed903b395bb4356a

diff --git a/t/01_live.t b/t/01_live.t
new file mode 100644
index 0000000..aeec5f7
--- /dev/null
+++ b/t/01_live.t
@@ -0,0 +1,24 @@
+use strict;
+use Test::More;
+
+my $url = $ENV{OPENSEARCH_URL};
+unless ($url) {
+    Test::More->import(skip_all => "OPENSEARCH_URL not set");
+    exit;
+}
+
+# XXX This is not testing, but for debugging :)
+plan 'no_plan';
+
+use WWW::OpenSearch;
+
+my $engine = WWW::OpenSearch->new($url);
+ok $engine;
+ok $engine->description->shortname, $engine->description->shortname;
+
+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->pager->total_entries, "total entries " . $res->pager->total_entries;