Changeset 17 for server/trunk/web/t

Timestamp:

11/22/10 12:54:02 (14 years ago)

Author:

nanardon

Message:

• start adding test

File:

• server/trunk/web/t/controller_Distrib.t (modified) (1 diff)

server/trunk/web/t/controller_Distrib.t

@@ -2 +2 @@
 use warnings;
 use Test::More;
+require RPC::XML;
+use HTTP::Request;
+
+# know existing data:
+my $distribution = 'Mandriva';
 
 BEGIN { use_ok 'Catalyst::Test', 'Sophie' }
 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");
 done_testing();