fabtests: New fabtest fi_flood to test over subscription of resources

	  1.  MR cache based registrations
	  tests regsiter and send  in batch and sequential modes while
	  flooding the cache beyond the maximum size.
	  2. Test receipt of unexpected messages by overwhelming the receiver

Signed-off-by: nikhil nanal <nikhil.nanal@intel.com>

fabtests/Makefile.am

@@ -41,6 +41,7 @@ bin_PROGRAMS = \
 	functional/fi_rdm_stress \
 	functional/fi_multi_recv \
 	functional/fi_bw \
+	functional/fi_flood \
 	functional/fi_rdm_multi_client \
 	functional/fi_loopback \
 	benchmarks/fi_msg_pingpong \
@@ -362,6 +363,10 @@ functional_fi_bw_SOURCES = \
 	functional/bw.c
 functional_fi_bw_LDADD = libfabtests.la
 
+functional_fi_flood_SOURCES = \
+	 functional/flood.c
+functional_fi_flood_LDADD = libfabtests.la
+
 functional_fi_rdm_multi_client_SOURCES = \
 	functional/rdm_multi_client.c
 functional_fi_rdm_multi_client_LDADD = libfabtests.la
@@ -652,6 +657,7 @@ dummy_man_pages = \
 	man/man1/fi_getinfo_test.1 \
 	man/man1/fi_mr_test.1 \
 	man/man1/fi_bw.1 \
+	man/man1/fi_flood.1 \
 	man/man1/fi_rdm_multi_client.1 \
 	man/man1/fi_ubertest.1 \
 	man/man1/fi_efa_ep_rnr_retry.1

fabtests/common/shared.c

@@ -3270,6 +3270,7 @@ void show_perf(char *name, size_t tsize, int iters, struct timespec *start,
 	printf("%8.2fs%10.2f%11.2f%11.2f\n",
 		elapsed / 1000000.0, bytes / (1.0 * elapsed),
 		usec_per_xfer, 1.0/usec_per_xfer);
+	printf("-----------------------------------------\n");
 }
 
 void show_perf_mr(size_t tsize, int iters, struct timespec *start,
@@ -3302,6 +3303,7 @@ void show_perf_mr(size_t tsize, int iters, struct timespec *start,
 	printf("usec/xfer: %f, ", usec_per_xfer);
 	printf("Mxfers/sec: %f", 1.0/usec_per_xfer);
 	printf(" }\n");
+	printf("-----------------------------------------\n");
 }
 
 void ft_addr_usage()

fabtests/functional/flood.c

@@ -0,0 +1,319 @@
+/*
+ * Copyright (c) 2019 Intel Corporation.  All rights reserved.
+ *
+ * This software is available to you under the BSD license
+ * below:
+ *
+ *     Redistribution and use in source and binary forms, with or
+ *     without modification, are permitted provided that the following
+ *     conditions are met:
+ *
+ *      - Redistributions of source code must retain the above
+ *        copyright notice, this list of conditions and the following
+ *        disclaimer.
+ *
+ *      - Redistributions in binary form must reproduce the above
+ *        copyright notice, this list of conditions and the following
+ *        disclaimer in the documentation and/or other materials
+ *        provided with the distribution.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
+ * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
+ * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+ * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <getopt.h>
+#include <unistd.h>
+
+#include <shared.h>
+
+int sleep_time = 0;
+
+static ssize_t post_one_tx(struct ft_context *msg)
+{
+	ssize_t ret;
+
+	if (ft_check_opts(FT_OPT_VERIFY_DATA | FT_OPT_ACTIVE)) {
+		ret = ft_fill_buf(msg->buf + ft_tx_prefix_size(),
+				  opts.transfer_size);
+		if (ret)
+			return ret;
+	}
+
+	return ft_post_tx_buf(ep, remote_fi_addr, opts.transfer_size,
+			      NO_CQ_DATA, &msg->context, msg->buf,
+			      msg->desc, 0);
+}
+
+static ssize_t wait_check_rx_bufs(void)
+{
+	ssize_t ret;
+	int i;
+
+	ret = ft_get_rx_comp(rx_seq);
+	if (ret)
+		return ret;
+
+	if (!ft_check_opts(FT_OPT_VERIFY_DATA | FT_OPT_ACTIVE))
+		return 0;
+
+	for (i = 0; i < opts.window_size; i++) {
+		ret = ft_check_buf((char *) rx_ctx_arr[i].buf +
+				   ft_rx_prefix_size(), opts.transfer_size);
+		if (ret)
+			return ret;
+	}
+
+	return 0;
+}
+
+static int post_rx_sync(void)
+{
+	int ret;
+
+	ret = ft_post_rx(ep, rx_size, &rx_ctx);
+	if (ret)
+		return ret;
+
+	if (opts.dst_addr) {
+		ret = ft_tx(ep, remote_fi_addr, 1, &tx_ctx);
+		if (ret)
+			return ret;
+
+		ret = ft_get_rx_comp(rx_seq);
+	} else {
+		ret = ft_get_rx_comp(rx_seq);
+		if (ret)
+			return ret;
+
+		ret = ft_tx(ep, remote_fi_addr, 1, &tx_ctx);
+	}
+
+	return ret;
+}
+static void mr_close(struct ft_context *ctx_arr, int window_size)
+{
+	for (int i = 0; i < window_size; i++)
+	{
+		FT_CLOSE_FID(ctx_arr[i].mr);
+	}
+}
+static int run_seq_mr_send(void) {
+
+	int ret;
+
+	mr_close(tx_ctx_arr, opts.window_size);
+	mr_close(rx_ctx_arr, opts.window_size);
+
+	printf("sequential memory registration:\n");
+	ft_start();
+	if (opts.dst_addr) {
+		for (int i = 0; i < opts.window_size; i++) {
+			ret = ft_reg_mr(fi, tx_ctx_arr[i].buf, tx_mr_size,
+					ft_info_to_mr_access(fi),
+					FT_TX_MR_KEY + i, opts.iface, opts.device,
+					&(tx_ctx_arr[i].mr), &(tx_ctx_arr[i].desc));
+			if (ret)
+				return ret;
+
+			ft_post_tx_buf(ep, remote_fi_addr,  opts.transfer_size,
+				       NO_CQ_DATA,  &(tx_ctx_arr[i].context),
+				       tx_ctx_arr[i].buf, tx_ctx_arr[i].desc,
+				       ft_tag);
+			ret = ft_get_tx_comp(tx_seq);
+			if (ret)
+				return ret;
+			FT_CLOSE_FID(tx_ctx_arr[i].mr);
+		}
+	}
+	else {
+		for (int i = 0; i < opts.window_size; i++) {
+			ret = ft_reg_mr(fi, rx_ctx_arr[i].buf, rx_mr_size,
+					ft_info_to_mr_access(fi), FT_RX_MR_KEY + i,
+					opts.iface, opts.device, &(rx_ctx_arr[i].mr),
+					&(rx_ctx_arr[i].desc));
+			if (ret)
+				return ret;
+
+			ft_post_rx_buf(ep, opts.transfer_size,
+				       &(rx_ctx_arr[i].context), rx_ctx_arr[i].buf,
+				       rx_ctx_arr[i].desc, ft_tag);
+			ret = wait_check_rx_bufs();
+			if (ret)
+				return ret;
+		}
+	}
+	ft_stop();
+	if (opts.options & FT_OPT_OOB_SYNC)
+		ret = ft_sync();
+	else
+		ret = post_rx_sync();
+	if (ret)
+		return ret;
+
+	if (opts.machr)
+		show_perf_mr(opts.transfer_size, opts.window_size, &start, &end, 1,
+				opts.argc, opts.argv);
+	else
+		show_perf(NULL, opts.transfer_size, opts.window_size, &start, &end, 1);
+
+	return ret;
+}
+static int run_batch_mr_send(void)
+{
+	int ret, i;
+
+	/* Receive side delay is used in order to let the sender
+	   get ahead of the receiver and post multiple sends
+	   before the receiver begins processing them. */
+	if (!opts.dst_addr)
+		sleep(sleep_time);
+
+	ft_start();
+	printf("Batch memory registration:\n");
+	if (opts.dst_addr) {
+		for (i = 0; i < opts.window_size; i++) {
+			ret = post_one_tx(&tx_ctx_arr[i]);
+			if (ret)
+				return ret;
+		}
+
+		ret = ft_get_tx_comp(tx_seq);
+		if (ret)
+			return ret;
+	} else {
+		for (i = 0; i < opts.window_size; i++) {
+			ret = ft_post_rx_buf(ep, opts.transfer_size,
+					     &rx_ctx_arr[i].context,
+					     rx_ctx_arr[i].buf,
+					     rx_ctx_arr[i].desc, 0);
+			if (ret)
+				return ret;
+		}
+
+		ret = wait_check_rx_bufs();
+		if (ret)
+			return ret;
+	}
+	ft_stop();
+
+	if (opts.options & FT_OPT_OOB_SYNC)
+		ret = ft_sync();
+	else
+		ret = post_rx_sync();
+	if (ret)
+		return ret;
+
+	if (opts.machr)
+		show_perf_mr(opts.transfer_size, opts.window_size, &start, &end, 1,
+				opts.argc, opts.argv);
+	else
+		show_perf(NULL, opts.transfer_size, opts.window_size, &start, &end, 1);
+
+	return ret;
+}
+
+static int run(void)
+{
+	int ret;
+
+	ret = hints->ep_attr->type == FI_EP_MSG ?
+		ft_init_fabric_cm() : ft_init_fabric();
+	if (ret)
+		return ret;
+
+	ret = ft_tx(ep, remote_fi_addr, 1, &tx_ctx);
+	if (ret)
+		return ret;
+	ret = ft_get_rx_comp(rx_seq);
+	if (ret)
+		return ret;
+
+	ret = run_batch_mr_send();
+	if (ret)
+		goto out;
+
+	ret = run_seq_mr_send();
+	if (ret)
+		goto out;
+
+out:
+	return ret;
+}
+
+int main(int argc, char **argv)
+{
+	int op, ret;
+
+	opts = INIT_OPTS;
+
+	hints = fi_allocinfo();
+	if (!hints)
+		return EXIT_FAILURE;
+
+	hints->ep_attr->type = FI_EP_RDM;
+
+	while ((op = getopt(argc, argv, "UW:vT:h" CS_OPTS ADDR_OPTS INFO_OPTS)) != -1) {
+		switch (op) {
+		default:
+			ft_parse_addr_opts(op, optarg, &opts);
+			ft_parseinfo(op, optarg, hints, &opts);
+			ft_parsecsopts(op, optarg, &opts);
+			break;
+		case 'W':
+			opts.window_size = atoi(optarg);
+			break;
+		case 'U':
+			hints->tx_attr->op_flags |= FI_DELIVERY_COMPLETE;
+			break;
+		case 'v':
+			opts.options |= FT_OPT_VERIFY_DATA;
+			break;
+		case 'T':
+			sleep_time = atoi(optarg);
+			break;
+		case '?':
+		case 'h':
+			ft_usage(argv[0], "test to oversubscribe mr cache and receiver with unexpected msgs.");
+			FT_PRINT_OPTS_USAGE("-T sleep_time",
+				"Receive side delay before starting");
+			FT_PRINT_OPTS_USAGE("-v", "Enable data verification");
+			FT_PRINT_OPTS_USAGE("-W window_size",
+				"Set transmit window size before waiting for completion");
+			return EXIT_FAILURE;
+		}
+	}
+
+	if (optind < argc)
+		opts.dst_addr = argv[optind];
+
+	hints->caps = FI_MSG;
+	hints->mode = FI_CONTEXT;
+	hints->domain_attr->mr_mode = opts.mr_mode;
+	hints->addr_format = opts.address_format;
+
+	opts.options |= FT_OPT_ALLOC_MULT_MR;
+
+	if (hints->ep_attr->type == FI_EP_DGRAM) {
+		fprintf(stderr, "This test does not support DGRAM endpoints\n");
+		return -FI_EINVAL;
+	}
+
+	if (opts.options & FT_OPT_VERIFY_DATA) {
+		hints->tx_attr->msg_order |= FI_ORDER_SAS;
+		hints->rx_attr->msg_order |= FI_ORDER_SAS;
+	}
+
+	ret = run();
+
+	ft_free_res();
+
+	return ft_exit_code(ret);
+}

fabtests/functional/rdm_atomic.c

@@ -504,9 +504,10 @@ int main(int argc, char **argv)
 	hints->caps = FI_MSG | FI_ATOMICS;
 	hints->mode = FI_CONTEXT;
 	hints->domain_attr->mr_mode = opts.mr_mode;
+	printf("HINTS:\n%s\n---------------------------------------\n",
+		fi_tostr(hints, FI_TYPE_INFO));
 
 	ret = run();
-
 	free_res();
 	ft_free_res();
 	return ft_exit_code(ret);

fabtests/include/shared.h

@@ -257,7 +257,6 @@ extern struct fi_cq_attr cq_attr;
 extern struct fi_cntr_attr cntr_attr;
 
 extern struct fi_rma_iov remote;
-
 extern char test_name[50];
 extern struct timespec start, end;
 extern struct ft_opts opts;

fabtests/man/man1/fi_flood.1

@@ -0,0 +1 @@
+.so man7/fabtests.7