X-Git-Url: http://erislabs.net/gitweb/?p=libwww-opensearch-perl.git;a=blobdiff_plain;f=t%2F13-request.t;h=41c56b1aade80c16f9f09fe0f74cf0323046eafd;hp=24c93969559f13a2ed8f3b9114e86e209e61bfec;hb=a075f6895864bf1851d0526b64ca2e4b5ba118da;hpb=e6583e346fb587eda90892a92b7f34be0a940900 diff --git a/t/13-request.t b/t/13-request.t index 24c9396..41c56b1 100644 --- a/t/13-request.t +++ b/t/13-request.t @@ -27,7 +27,8 @@ use_ok( 'WWW::OpenSearch::Request' ); my $osd = WWW::OpenSearch::Description->new( $description ); { - my $req = WWW::OpenSearch::Request->new( $osd->url->[ 2 ], { searchTerms => 'iPod' } ); + 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' ); @@ -35,7 +36,8 @@ use_ok( 'WWW::OpenSearch::Request' ); } { - my $req = WWW::OpenSearch::Request->new( $osd->url->[ 1 ], { searchTerms => 'iPod' } ); + 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' );