Changeset 158
- Timestamp:
- 12/21/10 03:30:52 (13 years ago)
- Location:
- server/trunk/web/t
- Files:
-
- 1 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
server/trunk/web/t/controller_Chat-Cmd.t
r45 r158 2 2 use warnings; 3 3 use Test::More; 4 use FindBin; 5 require "$FindBin::Bin/xml.pl"; 4 6 5 7 BEGIN { use_ok 'Catalyst::Test', 'Sophie' } 6 8 BEGIN { use_ok 'Sophie::Controller::Chat::Cmd' } 7 9 8 #ok( request('/chat/cmd')->is_success, 'Request should succeed' ); 10 foreach (qw(version v packager p arch a buildfrom)) { 11 ok( 12 xmlrequest_ok("chat.cmd.$_", {}, "rpm"), 13 "XML::RPC chat.cmd.$_" 14 ); 15 } 16 9 17 done_testing(); -
server/trunk/web/t/controller_Chat.t
r35 r158 2 2 use warnings; 3 3 use Test::More; 4 use FindBin; 5 require "$FindBin::Bin/xml.pl"; 4 6 5 7 BEGIN { use_ok 'Catalyst::Test', 'Sophie' } … … 7 9 8 10 ok( request('/chat')->is_success, 'Request should succeed' ); 11 12 ok( xmlrequest_ok( 'chat.message', [], "help"), "Can request help"); 13 9 14 done_testing(); -
server/trunk/web/t/controller_Distrib.t
r82 r158 2 2 use warnings; 3 3 use Test::More; 4 require RPC::XML; 5 use HTTP::Request; 4 use Test::More; 5 use FindBin; 6 require "$FindBin::Bin/xml.pl"; 6 7 7 8 # know existing data: … … 16 17 BEGIN { use_ok 'Sophie::Controller::Distrib' } 17 18 18 sub xmlrpcreq {19 my (@xmlargs) = @_;20 my $str = RPC::XML::request->new( @xmlargs )->as_string;21 22 my $req = HTTP::Request->new( POST => 'http://localhost/rpc' );23 $req->header( 'Content-Length' => length($str) );24 $req->header( 'Content-Type' => 'text/xml' );25 $req->content( $str );26 return $req;27 }28 29 19 ok( request('/distrib')->is_success, 'Request should succeed' ); 30 20 ok( request("/distrib/$distribution")->is_success, 'Request should succeed' ); 31 ok( request( xmlrpcreq('distrib.list')), "XMLRPC");32 ok( request( xmlrpcreq('distrib.list', $distribution)), "XMLRPC");21 ok( xmlrequest_ok( 'distrib.list'), "XMLRPC"); 22 ok( xmlrequest_ok( 'distrib.list', $distribution), "XMLRPC"); 33 23 ok( request("/distrib/$distribution/$release")->is_success, 'Request should succeed' ); 34 24 ok( request("/distrib/$distribution/$release/$arch")->is_success, 'Request should succeed' ); -
server/trunk/web/t/controller_Search.t
r92 r158 2 2 use warnings; 3 3 use Test::More; 4 use FindBin; 5 require "$FindBin::Bin/xml.pl"; 4 6 5 7 my $pkgid = '45db73adf5f9ceabc8f9ea1dabccffcc'; … … 8 10 BEGIN { use_ok 'Sophie::Controller::Search' } 9 11 10 sub xmlrpcreq {11 my (@xmlargs) = @_;12 my $str = RPC::XML::request->new( @xmlargs )->as_string;13 14 my $req = HTTP::Request->new( POST => 'http://localhost/rpc' );15 $req->header( 'Content-Length' => length($str) );16 $req->header( 'Content-Type' => 'text/xml' );17 $req->content( $str );18 return $req;19 }20 21 12 ok( 22 request( xmlrpcreq('search.rpms.bydate', {}, time - 3600)),13 xmlrequest_ok('search.rpms.bydate', {}, time - 3600), 23 14 "search.rpms.bydate" 24 15 ); 25 16 26 17 ok( 27 request( xmlrpcreq('search.rpm.bypkgid', {}, $pkgid)),18 xmlrequest_ok('search.rpm.bypkgid', {}, $pkgid), 28 19 "search.rpm.bypkgid" 29 20 ); 30 21 31 22 ok( 32 request( xmlrpcreq('search.rpm.byname', {}, 'rpm', '>', '0')),23 xmlrequest_ok('search.rpm.byname', {}, 'rpm', '>', '0'), 33 24 "search.rpm.byname" 34 25 ); 35 26 36 27 ok( 37 request( xmlrpcreq('search.rpm.bytag', {}, 'name', 'rpm')),28 xmlrequest_ok('search.rpm.bytag', {}, 'name', 'rpm'), 38 29 "search.rpm.bytag" 39 30 ); 40 31 41 32 ok( 42 request( xmlrpcreq('search.rpm.bydep', {}, 'P', 'rpm', '>', '0')),33 xmlrequest_ok('search.rpm.bydep', {}, 'P', 'rpm', '>', '0'), 43 34 "search.rpm.bydep" 44 35 ); 45 36 46 37 ok( 47 request( xmlrpcreq('search.rpm.byfile', {}, '/bin/rpm')),38 xmlrequest_ok('search.rpm.byfile', {}, '/bin/rpm'), 48 39 "search.rpm.byfile" 49 40 ); 50 41 51 42 ok( 52 request( xmlrpcreq('search.rpm.fuzzy', {}, 'rpm-build')),43 xmlrequest_ok('search.rpm.fuzzy', {}, 'rpm-build'), 53 44 "search.rpm.fuzzy" 54 45 ); 55 46 ok( 56 request( xmlrpcreq('search.rpm.quick', {}, 'rpm-build')),47 xmlrequest_ok('search.rpm.quick', {}, 'rpm-build'), 57 48 "search.rpm.quick" 58 49 ); … … 60 51 61 52 ok( 62 request( xmlrpcreq('search.rpm.description', {}, qw'rpm build')),53 xmlrequest_ok('search.rpm.description', {}, qw'rpm build'), 63 54 "search.rpm.description" 64 55 );
Note: See TracChangeset
for help on using the changeset viewer.