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

diff --git a/t/13-request.t b/t/13-request.t
index 24c9396..26f9c3e 100644
--- a/t/13-request.t
+++ b/t/13-request.t
@@ -27,17 +27,26 @@ 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' );
-        is( $req->content, 'l=*&c=&s=iPod&o=1', 'content' );
+        is( _sort_result( $req->content ), 'c=&l=*&o=1&s=iPod', 'content' );
     }
 
     {
-        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' );
     }
 }
+
+sub _sort_result {
+    my $s = shift;
+    return join( '&',
+        sort { substr( $a, 0, 1 ) cmp substr( $b, 0, 1 ) }
+            split( /\&/, $s ) );
+}