source4/torture/local/irpc.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3
   4    local test for irpc code
   5
   6    Copyright (C) Andrew Tridgell 2004
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20 */
  21
  22 #include "includes.h"
  23 #include "lib/events/events.h"
  24 #include "lib/messaging/irpc.h"
  25 #include "librpc/gen_ndr/ndr_echo.h"
  26 #include "torture/torture.h"
  27 #include "cluster/cluster.h"
  28
  29 const uint32_t MSG_ID1 = 1, MSG_ID2 = 2;
  30
  31 static BOOL test_debug;
  32
  33 struct irpc_test_data
  34 {
  35         struct messaging_context *msg_ctx1, *msg_ctx2;
  36         struct event_context *ev;
  37 };
  38
  39 /*
  40   serve up AddOne over the irpc system
  41 */
  42 static NTSTATUS irpc_AddOne(struct irpc_message *irpc, struct echo_AddOne *r)
  43 {
  44         *r->out.out_data = r->in.in_data + 1;
  45         if (test_debug) {
  46                 printf("irpc_AddOne: in=%u in+1=%u out=%u\n",
  47                         r->in.in_data, r->in.in_data+1, *r->out.out_data);
  48         }
  49         return NT_STATUS_OK;
  50 }
  51
  52 /*
  53   a deferred reply to echodata
  54 */
  55 static void deferred_echodata(struct event_context *ev, struct timed_event *te,
  56                               struct timeval t, void *private)
  57 {
  58         struct irpc_message *irpc = talloc_get_type(private, struct irpc_message);
  59         struct echo_EchoData *r = irpc->data;
  60         r->out.out_data = talloc_memdup(r, r->in.in_data, r->in.len);
  61         if (r->out.out_data == NULL) {
  62                 irpc_send_reply(irpc, NT_STATUS_NO_MEMORY);
  63         }
  64         printf("sending deferred reply\n");
  65         irpc_send_reply(irpc, NT_STATUS_OK);
  66 }
  67
  68
  69 /*
  70   serve up EchoData over the irpc system
  71 */
  72 static NTSTATUS irpc_EchoData(struct irpc_message *irpc, struct echo_EchoData *r)
  73 {
  74         irpc->defer_reply = True;
  75         event_add_timed(irpc->ev, irpc, timeval_zero(), deferred_echodata, irpc);
  76         return NT_STATUS_OK;
  77 }
  78
  79
  80 /*
  81   test a addone call over the internal messaging system
  82 */
  83 static bool test_addone(struct torture_context *test, const void *_data,
  84                         const void *_value)
  85 {
  86         struct echo_AddOne r;
  87         NTSTATUS status;
  88         const struct irpc_test_data *data = _data;
  89         uint32_t value = (uint32_t)_value;
  90
  91         /* make the call */
  92         r.in.in_data = value;
  93
  94         test_debug = True;
  95         status = IRPC_CALL(data->msg_ctx1, cluster_id(MSG_ID2),
  96                            rpcecho, ECHO_ADDONE, &r, test);
  97         test_debug = False;
  98         torture_assert_ntstatus_ok(test, status, "AddOne failed");
  99
 100         /* check the answer */
 101         torture_assert(test, *r.out.out_data == r.in.in_data + 1,
 102                                    "AddOne wrong answer");
 103
 104         torture_comment(test, "%u + 1 = %u\n", r.in.in_data, *r.out.out_data);
 105         return true;
 106 }
 107
 108 /*
 109   test a echodata call over the internal messaging system
 110 */
 111 static bool test_echodata(struct torture_context *tctx,
 112                                                   const void *tcase_data,
 113                                                   const void *test_data)
 114 {
 115         struct echo_EchoData r;
 116         NTSTATUS status;
 117         const struct irpc_test_data *data = tcase_data;
 118         TALLOC_CTX *mem_ctx = tctx;
 119
 120         /* make the call */
 121         r.in.in_data = (unsigned char *)talloc_strdup(mem_ctx, "0123456789");
 122         r.in.len = strlen((char *)r.in.in_data);
 123
 124         status = IRPC_CALL(data->msg_ctx1, cluster_id(MSG_ID2),
 125                            rpcecho, ECHO_ECHODATA, &r,
 126                            mem_ctx);
 127         torture_assert_ntstatus_ok(tctx, status, "EchoData failed");
 128
 129         /* check the answer */
 130         if (memcmp(r.out.out_data, r.in.in_data, r.in.len) != 0) {
 131                 NDR_PRINT_OUT_DEBUG(echo_EchoData, &r);
 132                 torture_fail(tctx, "EchoData wrong answer");
 133         }
 134
 135         torture_comment(tctx, "Echo '%*.*s' -> '%*.*s'\n",
 136                r.in.len, r.in.len,
 137                r.in.in_data,
 138                r.in.len, r.in.len,
 139                r.out.out_data);
 140         return true;
 141 }
 142
 143
 144 static void irpc_callback(struct irpc_request *irpc)
 145 {
 146         struct echo_AddOne *r = irpc->r;
 147         int *pong_count = (int *)irpc->async.private;
 148         NTSTATUS status = irpc_call_recv(irpc);
 149         if (!NT_STATUS_IS_OK(status)) {
 150                 printf("irpc call failed - %s\n", nt_errstr(status));
 151         }
 152         if (*r->out.out_data != r->in.in_data + 1) {
 153                 printf("AddOne wrong answer - %u + 1 = %u should be %u\n",
 154                        r->in.in_data, *r->out.out_data, r->in.in_data+1);
 155         }
 156         (*pong_count)++;
 157 }
 158
 159 /*
 160   test echo speed
 161 */
 162 static bool test_speed(struct torture_context *tctx,
 163                                            const void *tcase_data,
 164                                            const void *test_data)
 165 {
 166         int ping_count = 0;
 167         int pong_count = 0;
 168         const struct irpc_test_data *data = tcase_data;
 169         struct timeval tv;
 170         struct echo_AddOne r;
 171         TALLOC_CTX *mem_ctx = tctx;
 172         int timelimit = torture_setting_int(tctx, "timelimit", 10);
 173
 174         tv = timeval_current();
 175
 176         r.in.in_data = 0;
 177
 178         torture_comment(tctx, "Sending echo for %d seconds\n", timelimit);
 179         while (timeval_elapsed(&tv) < timelimit) {
 180                 struct irpc_request *irpc;
 181
 182                 irpc = IRPC_CALL_SEND(data->msg_ctx1, cluster_id(MSG_ID2),
 183                                       rpcecho, ECHO_ADDONE,
 184                                       &r, mem_ctx);
 185                 torture_assert(tctx, irpc != NULL, "AddOne send failed");
 186
 187                 irpc->async.fn = irpc_callback;
 188                 irpc->async.private = &pong_count;
 189
 190                 ping_count++;
 191
 192                 while (ping_count > pong_count + 20) {
 193                         event_loop_once(data->ev);
 194                 }
 195         }
 196
 197         torture_comment(tctx, "waiting for %d remaining replies (done %d)\n",
 198                ping_count - pong_count, pong_count);
 199         while (timeval_elapsed(&tv) < 30 && pong_count < ping_count) {
 200                 event_loop_once(data->ev);
 201         }
 202
 203         torture_assert_int_equal(tctx, ping_count, pong_count, "ping test failed");
 204
 205         torture_comment(tctx, "echo rate of %.0f messages/sec\n",
 206                (ping_count+pong_count)/timeval_elapsed(&tv));
 207         return true;
 208 }
 209
 210
 211 static BOOL irpc_setup(struct torture_context *tctx, void **_data)
 212 {
 213         struct irpc_test_data *data;
 214
 215         *_data = data = talloc(tctx, struct irpc_test_data);
 216
 217         lp_set_cmdline("lock dir", "lockdir.tmp");
 218
 219         data->ev = tctx->ev;
 220         torture_assert(tctx, data->msg_ctx1 =
 221                        messaging_init(tctx,
 222                                       cluster_id(MSG_ID1), data->ev),
 223                        "Failed to init first messaging context");
 224
 225         torture_assert(tctx, data->msg_ctx2 =
 226                        messaging_init(tctx,
 227                                       cluster_id(MSG_ID2), data->ev),
 228                        "Failed to init second messaging context");
 229
 230         /* register the server side function */
 231         IRPC_REGISTER(data->msg_ctx1, rpcecho, ECHO_ADDONE, irpc_AddOne, NULL);
 232         IRPC_REGISTER(data->msg_ctx2, rpcecho, ECHO_ADDONE, irpc_AddOne, NULL);
 233
 234         IRPC_REGISTER(data->msg_ctx1, rpcecho, ECHO_ECHODATA, irpc_EchoData, NULL);
 235         IRPC_REGISTER(data->msg_ctx2, rpcecho, ECHO_ECHODATA, irpc_EchoData, NULL);
 236
 237         return True;
 238 }
 239
 240 struct torture_suite *torture_local_irpc(TALLOC_CTX *mem_ctx)
 241 {
 242         struct torture_suite *suite = torture_suite_create(mem_ctx, "IRPC");
 243         struct torture_tcase *tcase = torture_suite_add_tcase(suite, "irpc");
 244         int i;
 245         uint32_t *values = talloc_array(tcase, uint32_t, 5);
 246
 247         values[0] = 0;
 248         values[1] = 0x7FFFFFFE;
 249         values[2] = 0xFFFFFFFE;
 250         values[3] = 0xFFFFFFFF;
 251         values[4] = random() & 0xFFFFFFFF;
 252
 253         tcase->setup = irpc_setup;
 254
 255         for (i = 0; i < 5; i++) {
 256                 torture_tcase_add_test(tcase, "addone", test_addone, (void *)values[i]);
 257         }
 258
 259         torture_tcase_add_test(tcase, "echodata", test_echodata, NULL);
 260         torture_tcase_add_test(tcase, "speed", test_speed, NULL);
 261
 262         return suite;
 263 }