X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/8400efb989370b37b801ed83f85384040a457278..2a9afac801b6f592772dfee3a181e27d517a18ef:/teshsuite/simdag/network/mxn/test_intra_scatter.c

diff --git a/teshsuite/simdag/network/mxn/test_intra_scatter.c b/teshsuite/simdag/network/mxn/test_intra_scatter.c
new file mode 100644
index 0000000000..871343e581
--- /dev/null
+++ b/teshsuite/simdag/network/mxn/test_intra_scatter.c
@@ -0,0 +1,61 @@
+
+/*
+ * SimDag
+ * Latency tests
+ * Copyright (C) 2007 
+ * Sascha Hunold, Frederic Suter
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "simdag/simdag.h"
+
+/*
+ * intra communication test 1
+ * scatter
+ * 
+ * start: 1 2 3 (each having 1/3 of the bandwidth)
+ * after 3 sec: 0 1 2 (having 1/2 of the bandwidth)
+ * after another 2 sec: 0 0 1 (having all the bandwidth)
+ * -> finished after 1 sec
+ * time to send: 6 + latency at the beginning: 0.5 + 1 + 0.5
+ */
+
+int main(int argc, char **argv) {
+  double time;
+  SD_task_t task;
+  
+  double communication_amount[] = 
+  	{     0.0, 1.0, 2.0, 3.0,
+		  0.0, 0.0, 0.0, 0.0,
+		  0.0, 0.0, 0.0, 0.0,
+		  0.0, 0.0, 0.0, 0.0,
+  	};
+  
+  double no_cost[] = { 0.0, 0.0, 0.0, 0.0 };
+
+  
+  /***************************************/
+
+  SD_init(&argc, argv);
+  SD_create_environment(argv[1]);
+
+  task = SD_task_create("Scatter task", NULL, 1.0);
+
+  SD_task_schedule(task, 4, SD_workstation_get_list(), no_cost, communication_amount, -1.0);
+  
+  SD_simulate(-1.0);
+  
+  time = SD_get_clock();
+
+  printf("%g\n", time);
+  fflush(stdout);
+  
+  SD_task_destroy(task);
+  
+  SD_exit();
+  
+  return 0;
+}
+