X-Git-Url: http://erislabs.net/gitweb/?p=libwww-opensearch-perl.git;a=blobdiff_plain;f=t%2F13-request.t;fp=t%2F13-request.t;h=24c93969559f13a2ed8f3b9114e86e209e61bfec;hp=0000000000000000000000000000000000000000;hb=1fc70f0d6badbef9bb483990d761d1446d52cbb2;hpb=ec50391b25e981b1b9bae8e42e03c0fc9c218845

diff --git a/t/13-request.t b/t/13-request.t
new file mode 100644
index 0000000..24c9396
--- /dev/null
+++ b/t/13-request.t
@@ -0,0 +1,43 @@
+use Test::More tests => 9;
+
+use strict;
+use warnings;
+
+use_ok( 'WWW::OpenSearch::Description' );
+use_ok( 'WWW::OpenSearch::Request' );
+
+{
+    my $description = q(<?xml version="1.0" encoding="UTF-8"?>
+<OpenSearchDescription xmlns="http://a9.com/-/spec/opensearch/1.1/">
+  <Url type="application/rss+xml"
+       template="http://example.com/?q={searchTerms}&amp;pw={startPage}&amp;format=rss"/>
+  <Url type="application/atom+xml"
+       template="http://example.com/?q={searchTerms}&amp;pw={startPage?}&amp;format=atom"/>
+  <Url type="text/html" 
+       method="post"
+       template="https://intranet/search?format=html">
+    <Param name="s" value="{searchTerms}"/>
+    <Param name="o" value="{startIndex?}"/>
+    <Param name="c" value="{itemsPerPage?}"/>
+    <Param name="l" value="{language?}"/>
+  </Url>
+</OpenSearchDescription>
+);
+
+    my $osd = WWW::OpenSearch::Description->new( $description );
+
+    {
+        my $req = WWW::OpenSearch::Request->new( $osd->url->[ 2 ], { searchTerms => 'iPod' } );
+        isa_ok( $req, 'WWW::OpenSearch::Request' );
+        is( lc $req->method, 'post', 'method' );
+        is( $req->uri, 'https://intranet/search?format=html', 'uri' );
+        is( $req->content, 'l=*&c=&s=iPod&o=1', 'content' );
+    }
+
+    {
+        my $req = WWW::OpenSearch::Request->new( $osd->url->[ 1 ], { searchTerms => 'iPod' } );
+        isa_ok( $req, 'WWW::OpenSearch::Request' );
+        is( lc $req->method, 'get', 'method' );
+        is( $req->uri, 'http://example.com/?q=iPod&pw=1&format=atom', 'uri' );
+    }
+}