lnet/selftest/brw_test.c

   1 /*
   2  * GPL HEADER START
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License version 2 only,
   8  * as published by the Free Software Foundation.
   9  *
  10  * This program is distributed in the hope that it will be useful, but
  11  * WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * General Public License version 2 for more details (a copy is included
  14  * in the LICENSE file that accompanied this code).
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * version 2 along with this program; If not, see
  18  * http://www.sun.com/software/products/lustre/docs/GPLv2.pdf
  19  *
  20  * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
  21  * CA 95054 USA or visit www.sun.com if you need additional information or
  22  * have any questions.
  23  *
  24  * GPL HEADER END
  25  */
  26 /*
  27  * Copyright (c) 2007, 2010, Oracle and/or its affiliates. All rights reserved.
  28  * Use is subject to license terms.
  29  *
  30  * Copyright (c) 2011, 2012, Intel Corporation.
  31  */
  32 /*
  33  * This file is part of Lustre, http://www.lustre.org/
  34  * Lustre is a trademark of Sun Microsystems, Inc.
  35  *
  36  * lnet/selftest/brw_test.c
  37  *
  38  * Author: Isaac Huang <isaac@clusterfs.com>
  39  */
  40
  41 #include "selftest.h"
  42
  43 static int brw_srv_workitems = SFW_TEST_WI_MAX;
  44 CFS_MODULE_PARM(brw_srv_workitems, "i", int, 0644, "# BRW server workitems");
  45
  46 static int brw_inject_errors;
  47 CFS_MODULE_PARM(brw_inject_errors, "i", int, 0644,
  48                 "# data errors to inject randomly, zero by default");
  49
  50 static void
  51 brw_client_fini (sfw_test_instance_t *tsi)
  52 {
  53         srpc_bulk_t     *bulk;
  54         sfw_test_unit_t *tsu;
  55
  56         LASSERT (tsi->tsi_is_client);
  57
  58         cfs_list_for_each_entry_typed (tsu, &tsi->tsi_units,
  59                                        sfw_test_unit_t, tsu_list) {
  60                 bulk = tsu->tsu_private;
  61                 if (bulk == NULL) continue;
  62
  63                 srpc_free_bulk(bulk);
  64                 tsu->tsu_private = NULL;
  65         }
  66 }
  67
  68 int
  69 brw_client_init (sfw_test_instance_t *tsi)
  70 {
  71         sfw_session_t    *sn = tsi->tsi_batch->bat_session;
  72         int               flags;
  73         int               npg;
  74         int               len;
  75         int               opc;
  76         srpc_bulk_t      *bulk;
  77         sfw_test_unit_t  *tsu;
  78
  79         LASSERT(sn != NULL);
  80         LASSERT(tsi->tsi_is_client);
  81
  82         if ((sn->sn_features & LST_FEAT_BULK_LEN) == 0) {
  83                 test_bulk_req_t  *breq = &tsi->tsi_u.bulk_v0;
  84
  85                 opc   = breq->blk_opc;
  86                 flags = breq->blk_flags;
  87                 npg   = breq->blk_npg;
  88                 /* NB: this is not going to work for variable page size,
  89                  * but we have to keep it for compatibility */
  90                 len   = npg * CFS_PAGE_SIZE;
  91
  92         } else {
  93                 test_bulk_req_v1_t  *breq = &tsi->tsi_u.bulk_v1;
  94
  95                 /* I should never get this step if it's unknown feature
  96                  * because make_session will reject unknown feature */
  97                 LASSERT((sn->sn_features & ~LST_FEATS_MASK) == 0);
  98
  99                 opc   = breq->blk_opc;
 100                 flags = breq->blk_flags;
 101                 len   = breq->blk_len;
 102                 npg   = (len + CFS_PAGE_SIZE - 1) >> CFS_PAGE_SHIFT;
 103         }
 104
 105         if (npg > LNET_MAX_IOV || npg <= 0)
 106                 return -EINVAL;
 107
 108         if (opc != LST_BRW_READ && opc != LST_BRW_WRITE)
 109                 return -EINVAL;
 110
 111         if (flags != LST_BRW_CHECK_NONE &&
 112             flags != LST_BRW_CHECK_FULL && flags != LST_BRW_CHECK_SIMPLE)
 113                 return -EINVAL;
 114
 115         cfs_list_for_each_entry_typed(tsu, &tsi->tsi_units,
 116                                       sfw_test_unit_t, tsu_list) {
 117                 bulk = srpc_alloc_bulk(lnet_cpt_of_nid(tsu->tsu_dest.nid),
 118                                        npg, len, opc == LST_BRW_READ);
 119                 if (bulk == NULL) {
 120                         brw_client_fini(tsi);
 121                         return -ENOMEM;
 122                 }
 123
 124                 tsu->tsu_private = bulk;
 125         }
 126
 127         return 0;
 128 }
 129
 130 #define BRW_POISON      0xbeefbeefbeefbeefULL
 131 #define BRW_MAGIC       0xeeb0eeb1eeb2eeb3ULL
 132 #define BRW_MSIZE       sizeof(__u64)
 133
 134 int
 135 brw_inject_one_error (void)
 136 {
 137         struct timeval tv;
 138
 139         if (brw_inject_errors <= 0) return 0;
 140
 141 #ifndef __KERNEL__
 142         gettimeofday(&tv, NULL);
 143 #else
 144         cfs_gettimeofday(&tv);
 145 #endif
 146
 147         if ((tv.tv_usec & 1) == 0) return 0;
 148
 149         return brw_inject_errors--;
 150 }
 151
 152 void
 153 brw_fill_page (cfs_page_t *pg, int pattern, __u64 magic)
 154 {
 155         char *addr = cfs_page_address(pg);
 156         int   i;
 157
 158         LASSERT (addr != NULL);
 159
 160         if (pattern == LST_BRW_CHECK_NONE) return;
 161
 162         if (magic == BRW_MAGIC)
 163                 magic += brw_inject_one_error();
 164
 165         if (pattern == LST_BRW_CHECK_SIMPLE) {
 166                 memcpy(addr, &magic, BRW_MSIZE);
 167                 addr += CFS_PAGE_SIZE - BRW_MSIZE;
 168                 memcpy(addr, &magic, BRW_MSIZE);
 169                 return;
 170         }
 171
 172         if (pattern == LST_BRW_CHECK_FULL) {
 173                 for (i = 0; i < CFS_PAGE_SIZE / BRW_MSIZE; i++)
 174                         memcpy(addr + i * BRW_MSIZE, &magic, BRW_MSIZE);
 175                 return;
 176         }
 177
 178         LBUG ();
 179         return;
 180 }
 181
 182 int
 183 brw_check_page (cfs_page_t *pg, int pattern, __u64 magic)
 184 {
 185         char  *addr = cfs_page_address(pg);
 186         __u64  data = 0; /* make compiler happy */
 187         int    i;
 188
 189         LASSERT (addr != NULL);
 190
 191         if (pattern == LST_BRW_CHECK_NONE)
 192                 return 0;
 193
 194         if (pattern == LST_BRW_CHECK_SIMPLE) {
 195                 data = *((__u64 *) addr);
 196                 if (data != magic) goto bad_data;
 197
 198                 addr += CFS_PAGE_SIZE - BRW_MSIZE;
 199                 data = *((__u64 *) addr);
 200                 if (data != magic) goto bad_data;
 201
 202                 return 0;
 203         }
 204
 205         if (pattern == LST_BRW_CHECK_FULL) {
 206                 for (i = 0; i < CFS_PAGE_SIZE / BRW_MSIZE; i++) {
 207                         data = *(((__u64 *) addr) + i);
 208                         if (data != magic) goto bad_data;
 209                 }
 210
 211                 return 0;
 212         }
 213
 214         LBUG ();
 215
 216 bad_data:
 217         CERROR ("Bad data in page %p: "LPX64", "LPX64" expected\n",
 218                 pg, data, magic);
 219         return 1;
 220 }
 221
 222 void
 223 brw_fill_bulk (srpc_bulk_t *bk, int pattern, __u64 magic)
 224 {
 225         int         i;
 226         cfs_page_t *pg;
 227
 228         for (i = 0; i < bk->bk_niov; i++) {
 229 #ifdef __KERNEL__
 230                 pg = bk->bk_iovs[i].kiov_page;
 231 #else
 232                 LASSERT (bk->bk_pages != NULL);
 233                 pg = bk->bk_pages[i];
 234 #endif
 235                 brw_fill_page(pg, pattern, magic);
 236         }
 237 }
 238
 239 int
 240 brw_check_bulk (srpc_bulk_t *bk, int pattern, __u64 magic)
 241 {
 242         int         i;
 243         cfs_page_t *pg;
 244
 245         for (i = 0; i < bk->bk_niov; i++) {
 246 #ifdef __KERNEL__
 247                 pg = bk->bk_iovs[i].kiov_page;
 248 #else
 249                 LASSERT (bk->bk_pages != NULL);
 250                 pg = bk->bk_pages[i];
 251 #endif
 252                 if (brw_check_page(pg, pattern, magic) != 0) {
 253                         CERROR ("Bulk page %p (%d/%d) is corrupted!\n",
 254                                 pg, i, bk->bk_niov);
 255                         return 1;
 256                 }
 257         }
 258
 259         return 0;
 260 }
 261
 262 static int
 263 brw_client_prep_rpc (sfw_test_unit_t *tsu,
 264                      lnet_process_id_t dest, srpc_client_rpc_t **rpcpp)
 265 {
 266         srpc_bulk_t         *bulk = tsu->tsu_private;
 267         sfw_test_instance_t *tsi = tsu->tsu_instance;
 268         sfw_session_t       *sn = tsi->tsi_batch->bat_session;
 269         srpc_client_rpc_t   *rpc;
 270         srpc_brw_reqst_t    *req;
 271         int                  flags;
 272         int                  npg;
 273         int                  len;
 274         int                  opc;
 275         int                  rc;
 276
 277         LASSERT(sn != NULL);
 278         LASSERT(bulk != NULL);
 279
 280         if ((sn->sn_features & LST_FEAT_BULK_LEN) == 0) {
 281                 test_bulk_req_t *breq = &tsi->tsi_u.bulk_v0;
 282
 283                 opc   = breq->blk_opc;
 284                 flags = breq->blk_flags;
 285                 npg   = breq->blk_npg;
 286                 len   = npg * CFS_PAGE_SIZE;
 287
 288         } else {
 289                 test_bulk_req_v1_t  *breq = &tsi->tsi_u.bulk_v1;
 290
 291                 /* I should never get this step if it's unknown feature
 292                  * because make_session will reject unknown feature */
 293                 LASSERT((sn->sn_features & ~LST_FEATS_MASK) == 0);
 294
 295                 opc   = breq->blk_opc;
 296                 flags = breq->blk_flags;
 297                 len   = breq->blk_len;
 298                 npg   = (len + CFS_PAGE_SIZE - 1) >> CFS_PAGE_SHIFT;
 299         }
 300
 301         rc = sfw_create_test_rpc(tsu, dest, sn->sn_features, npg, len, &rpc);
 302         if (rc != 0)
 303                 return rc;
 304
 305         memcpy(&rpc->crpc_bulk, bulk, offsetof(srpc_bulk_t, bk_iovs[npg]));
 306         if (opc == LST_BRW_WRITE)
 307                 brw_fill_bulk(&rpc->crpc_bulk, flags, BRW_MAGIC);
 308         else
 309                 brw_fill_bulk(&rpc->crpc_bulk, flags, BRW_POISON);
 310
 311         req = &rpc->crpc_reqstmsg.msg_body.brw_reqst;
 312         req->brw_flags = flags;
 313         req->brw_rw    = opc;
 314         req->brw_len   = len;
 315
 316         *rpcpp = rpc;
 317         return 0;
 318 }
 319
 320 static void
 321 brw_client_done_rpc (sfw_test_unit_t *tsu, srpc_client_rpc_t *rpc)
 322 {
 323         __u64                magic = BRW_MAGIC;
 324         sfw_test_instance_t *tsi = tsu->tsu_instance;
 325         sfw_session_t       *sn = tsi->tsi_batch->bat_session;
 326         srpc_msg_t          *msg = &rpc->crpc_replymsg;
 327         srpc_brw_reply_t    *reply = &msg->msg_body.brw_reply;
 328         srpc_brw_reqst_t    *reqst = &rpc->crpc_reqstmsg.msg_body.brw_reqst;
 329
 330         LASSERT (sn != NULL);
 331
 332         if (rpc->crpc_status != 0) {
 333                 CERROR ("BRW RPC to %s failed with %d\n",
 334                         libcfs_id2str(rpc->crpc_dest), rpc->crpc_status);
 335                 if (!tsi->tsi_stopping) /* rpc could have been aborted */
 336                         cfs_atomic_inc(&sn->sn_brw_errors);
 337                 goto out;
 338         }
 339
 340         if (msg->msg_magic != SRPC_MSG_MAGIC) {
 341                 __swab64s(&magic);
 342                 __swab32s(&reply->brw_status);
 343         }
 344
 345         CDEBUG (reply->brw_status ? D_WARNING : D_NET,
 346                 "BRW RPC to %s finished with brw_status: %d\n",
 347                 libcfs_id2str(rpc->crpc_dest), reply->brw_status);
 348
 349         if (reply->brw_status != 0) {
 350                 cfs_atomic_inc(&sn->sn_brw_errors);
 351                 rpc->crpc_status = -(int)reply->brw_status;
 352                 goto out;
 353         }
 354
 355         if (reqst->brw_rw == LST_BRW_WRITE) goto out;
 356
 357         if (brw_check_bulk(&rpc->crpc_bulk, reqst->brw_flags, magic) != 0) {
 358                 CERROR ("Bulk data from %s is corrupted!\n",
 359                         libcfs_id2str(rpc->crpc_dest));
 360                 cfs_atomic_inc(&sn->sn_brw_errors);
 361                 rpc->crpc_status = -EBADMSG;
 362         }
 363
 364 out:
 365 #ifndef __KERNEL__
 366         rpc->crpc_bulk.bk_pages = NULL;
 367 #endif
 368         return;
 369 }
 370
 371 void
 372 brw_server_rpc_done (srpc_server_rpc_t *rpc)
 373 {
 374         srpc_bulk_t *blk = rpc->srpc_bulk;
 375
 376         if (blk == NULL) return;
 377
 378         if (rpc->srpc_status != 0)
 379                 CERROR ("Bulk transfer %s %s has failed: %d\n",
 380                         blk->bk_sink ? "from" : "to",
 381                         libcfs_id2str(rpc->srpc_peer), rpc->srpc_status);
 382         else
 383                 CDEBUG (D_NET, "Transfered %d pages bulk data %s %s\n",
 384                         blk->bk_niov, blk->bk_sink ? "from" : "to",
 385                         libcfs_id2str(rpc->srpc_peer));
 386
 387         sfw_free_pages(rpc);
 388 }
 389
 390 int
 391 brw_bulk_ready (srpc_server_rpc_t *rpc, int status)
 392 {
 393         __u64             magic = BRW_MAGIC;
 394         srpc_brw_reply_t *reply = &rpc->srpc_replymsg.msg_body.brw_reply;
 395         srpc_brw_reqst_t *reqst;
 396         srpc_msg_t       *reqstmsg;
 397
 398         LASSERT (rpc->srpc_bulk != NULL);
 399         LASSERT (rpc->srpc_reqstbuf != NULL);
 400
 401         reqstmsg = &rpc->srpc_reqstbuf->buf_msg;
 402         reqst = &reqstmsg->msg_body.brw_reqst;
 403
 404         if (status != 0) {
 405                 CERROR ("BRW bulk %s failed for RPC from %s: %d\n",
 406                         reqst->brw_rw == LST_BRW_READ ? "READ" : "WRITE",
 407                         libcfs_id2str(rpc->srpc_peer), status);
 408                 return -EIO;
 409         }
 410
 411         if (reqst->brw_rw == LST_BRW_READ)
 412                 return 0;
 413
 414         if (reqstmsg->msg_magic != SRPC_MSG_MAGIC)
 415                 __swab64s(&magic);
 416
 417         if (brw_check_bulk(rpc->srpc_bulk, reqst->brw_flags, magic) != 0) {
 418                 CERROR ("Bulk data from %s is corrupted!\n",
 419                         libcfs_id2str(rpc->srpc_peer));
 420                 reply->brw_status = EBADMSG;
 421         }
 422
 423         return 0;
 424 }
 425
 426 int
 427 brw_server_handle(struct srpc_server_rpc *rpc)
 428 {
 429         struct srpc_service     *sv = rpc->srpc_scd->scd_svc;
 430         srpc_msg_t       *replymsg = &rpc->srpc_replymsg;
 431         srpc_msg_t       *reqstmsg = &rpc->srpc_reqstbuf->buf_msg;
 432         srpc_brw_reply_t *reply = &replymsg->msg_body.brw_reply;
 433         srpc_brw_reqst_t *reqst = &reqstmsg->msg_body.brw_reqst;
 434         int               npg;
 435         int               rc;
 436
 437         LASSERT (sv->sv_id == SRPC_SERVICE_BRW);
 438
 439         if (reqstmsg->msg_magic != SRPC_MSG_MAGIC) {
 440                 LASSERT (reqstmsg->msg_magic == __swab32(SRPC_MSG_MAGIC));
 441
 442                 __swab32s(&reqst->brw_rw);
 443                 __swab32s(&reqst->brw_len);
 444                 __swab32s(&reqst->brw_flags);
 445                 __swab64s(&reqst->brw_rpyid);
 446                 __swab64s(&reqst->brw_bulkid);
 447         }
 448         LASSERT (reqstmsg->msg_type == (__u32)srpc_service2request(sv->sv_id));
 449
 450         reply->brw_status = 0;
 451         rpc->srpc_done = brw_server_rpc_done;
 452
 453         if ((reqst->brw_rw != LST_BRW_READ && reqst->brw_rw != LST_BRW_WRITE) ||
 454             (reqst->brw_flags != LST_BRW_CHECK_NONE &&
 455              reqst->brw_flags != LST_BRW_CHECK_FULL &&
 456              reqst->brw_flags != LST_BRW_CHECK_SIMPLE)) {
 457                 reply->brw_status = EINVAL;
 458                 return 0;
 459         }
 460
 461         if ((reqstmsg->msg_ses_feats & ~LST_FEATS_MASK) != 0) {
 462                 replymsg->msg_ses_feats = LST_FEATS_MASK;
 463                 reply->brw_status = EPROTO;
 464                 return 0;
 465         }
 466
 467         if ((reqstmsg->msg_ses_feats & LST_FEAT_BULK_LEN) == 0) {
 468                 /* compat with old version */
 469                 if ((reqst->brw_len & ~CFS_PAGE_MASK) != 0) {
 470                         reply->brw_status = EINVAL;
 471                         return 0;
 472                 }
 473                 npg = reqst->brw_len >> CFS_PAGE_SHIFT;
 474
 475         } else {
 476                 npg = (reqst->brw_len + CFS_PAGE_SIZE - 1) >> CFS_PAGE_SHIFT;
 477         }
 478
 479         replymsg->msg_ses_feats = reqstmsg->msg_ses_feats;
 480
 481         if (reqst->brw_len == 0 || npg > LNET_MAX_IOV) {
 482                 reply->brw_status = EINVAL;
 483                 return 0;
 484         }
 485
 486         rc = sfw_alloc_pages(rpc, rpc->srpc_scd->scd_cpt, npg,
 487                              reqst->brw_len,
 488                              reqst->brw_rw == LST_BRW_WRITE);
 489         if (rc != 0)
 490                 return rc;
 491
 492         if (reqst->brw_rw == LST_BRW_READ)
 493                 brw_fill_bulk(rpc->srpc_bulk, reqst->brw_flags, BRW_MAGIC);
 494         else
 495                 brw_fill_bulk(rpc->srpc_bulk, reqst->brw_flags, BRW_POISON);
 496
 497         return 0;
 498 }
 499
 500 sfw_test_client_ops_t brw_test_client;
 501 void brw_init_test_client(void)
 502 {
 503         brw_test_client.tso_init       = brw_client_init;
 504         brw_test_client.tso_fini       = brw_client_fini;
 505         brw_test_client.tso_prep_rpc   = brw_client_prep_rpc;
 506         brw_test_client.tso_done_rpc   = brw_client_done_rpc;
 507 };
 508
 509 srpc_service_t brw_test_service;
 510 void brw_init_test_service(void)
 511 {
 512 #ifndef __KERNEL__
 513         char *s;
 514
 515         s = getenv("BRW_INJECT_ERRORS");
 516         brw_inject_errors = s != NULL ? atoi(s) : brw_inject_errors;
 517 #endif
 518
 519         brw_test_service.sv_id         = SRPC_SERVICE_BRW;
 520         brw_test_service.sv_name       = "brw_test";
 521         brw_test_service.sv_handler    = brw_server_handle;
 522         brw_test_service.sv_bulk_ready = brw_bulk_ready;
 523         brw_test_service.sv_wi_total   = brw_srv_workitems;
 524 }