Changeset 158 for server/trunk/web/t/controller_Distrib.t

Timestamp:

12/21/10 03:30:52 (13 years ago)

Author:

nanardon

Message:

• factorize xml::rpc test code
• add functions to test xml::rpc results (ie xml::rpc error code)

File:

• server/trunk/web/t/controller_Distrib.t (modified) (2 diffs)

server/trunk/web/t/controller_Distrib.t

@@ -2 +2 @@
 use warnings;
 use Test::More;
-require RPC::XML;
-use HTTP::Request;
+use Test::More;
+use FindBin;
+require "$FindBin::Bin/xml.pl";
 
 # know existing data:
@@ -16 +17 @@
 BEGIN { use_ok 'Sophie::Controller::Distrib' }
 
-sub xmlrpcreq {
-    my (@xmlargs) = @_;
-    my $str = RPC::XML::request->new( @xmlargs )->as_string;
-
-    my $req = HTTP::Request->new( POST => 'http://localhost/rpc' );
-    $req->header( 'Content-Length'  => length($str) );
-    $req->header( 'Content-Type'    => 'text/xml' );
-    $req->content( $str );
-    return $req;
-}
-
 ok( request('/distrib')->is_success, 'Request should succeed' );
 ok( request("/distrib/$distribution")->is_success, 'Request should succeed' );
-ok( request( xmlrpcreq('distrib.list') ), "XMLRPC");
-ok( request( xmlrpcreq('distrib.list', $distribution) ), "XMLRPC");
+ok( xmlrequest_ok( 'distrib.list'), "XMLRPC");
+ok( xmlrequest_ok( 'distrib.list', $distribution), "XMLRPC");
 ok( request("/distrib/$distribution/$release")->is_success, 'Request should succeed' );
 ok( request("/distrib/$distribution/$release/$arch")->is_success, 'Request should succeed' );