X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c8045ac09a04b52101965907399bf0f6cebfa087..028600ff598195e84323493a1f790c2df5ef3bb2:/teshsuite/simdag/basic6/basic6.c

diff --git a/teshsuite/simdag/basic6/basic6.c b/teshsuite/simdag/basic6/basic6.c
new file mode 100644
index 0000000000..5a2b3d5d74
--- /dev/null
+++ b/teshsuite/simdag/basic6/basic6.c
@@ -0,0 +1,48 @@
+/* Copyright (c) 2007-2012, 2014-2015. The SimGrid Team.
+ * All rights reserved.                                                     */
+
+/* This program is free software; you can redistribute it and/or modify it
+ * under the terms of the license (GNU LGPL) which comes with this package. */
+
+#include "simgrid/simdag.h"
+#include "xbt/asserts.h"
+#include "xbt/log.h"
+
+XBT_LOG_NEW_DEFAULT_SUBCATEGORY(basic6, sd, "SimDag test basic6");
+/* test scheduling 2 tasks at the same time without artificial dependencies */
+
+/* Basic SimDag Test 6
+ * Scenario:
+ *   - Schedule two parallel tasks concurrently on a P2P platform
+ *   - Hosts computes 1B per second
+ * Computing power is shared between tasks.
+ * Simulated time should be:
+ *          1/(1/2) = 2 seconds
+ */
+
+int main(int argc, char **argv)
+{
+  double comm_cost[] = { 0.0, 0.0, 0.0, 0.0 };
+  double comp_cost[] = { 1.0 };
+  xbt_dynar_t ret;
+
+  SD_init(&argc, argv);
+  SD_create_environment(argv[1]);
+
+  SD_task_t taskA = SD_task_create("Task A", NULL, 1.0);
+  SD_task_t taskB = SD_task_create("Task B", NULL, 1.0);
+
+  SD_task_schedule(taskA, 1, sg_host_list(), comp_cost, comm_cost, -1.0);
+  SD_task_schedule(taskB, 1, sg_host_list(), comp_cost, comm_cost, -1.0);
+
+  ret = SD_simulate(-1.0);
+  xbt_assert(xbt_dynar_length(ret) == 2, "I was expecting the completion of 2 tasks, but I got %lu instead",
+             xbt_dynar_length(ret));
+  SD_task_destroy(taskA);
+  SD_task_destroy(taskB);
+
+  XBT_INFO("Simulation time: %f", SD_get_clock());
+
+  SD_exit();
+  return 0;
+}