A whole bunch of test units from Sascha and Fred. Many thanks, dudes

[simgrid.git] / 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 (file)
index 0000000..871343e
--- /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;
+}
+