Changeset 158 for server/trunk/web/t/controller_Chat-Cmd.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_Chat-Cmd.t (modified) (1 diff)

server/trunk/web/t/controller_Chat-Cmd.t

@@ -2 +2 @@
 use warnings;
 use Test::More;
+use FindBin;
+require "$FindBin::Bin/xml.pl";
 
 BEGIN { use_ok 'Catalyst::Test', 'Sophie' }
 BEGIN { use_ok 'Sophie::Controller::Chat::Cmd' }
 
-#ok( request('/chat/cmd')->is_success, 'Request should succeed' );
+foreach (qw(version v packager p arch a buildfrom)) {
+    ok(
+        xmlrequest_ok("chat.cmd.$_", {}, "rpm"),
+        "XML::RPC chat.cmd.$_"
+    );
+}
+
 done_testing();