reorg examples/simdag for better user experience

[simgrid.git] / examples / simdag / fail / sd_fail.c

diff --git a/examples/simdag/fail/sd_fail.c b/examples/simdag/fail/sd_fail.c
new file mode 100644 (file)
index 0000000..0bec7da
--- /dev/null
+++ b/examples/simdag/fail/sd_fail.c
@@ -0,0 +1,91 @@
+/* Copyright (c) 2006-2010, 2012-2016. 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"
+
+XBT_LOG_NEW_DEFAULT_CATEGORY(sd_fail, "Logging specific to this SimDag example");
+
+int main(int argc, char **argv)
+{
+  double computation_amount[1];
+  double communication_amount[2] = { 0 };
+  sg_host_t hosts[1];
+
+  /* initialization of SD */
+  SD_init(&argc, argv);
+
+  /* creation of the environment */
+  SD_create_environment(argv[1]);
+
+  /* creation of a single task that will poorly fail when the workstation will stop */
+  XBT_INFO("First test: COMP_SEQ task");
+  SD_task_t task = SD_task_create_comp_seq("Poor task", NULL, 2e10);
+  SD_task_watch(task, SD_FAILED);
+  SD_task_watch(task, SD_DONE);
+
+  XBT_INFO("Schedule task '%s' on 'Faulty Host'", SD_task_get_name(task));
+
+  SD_task_schedulel(task, 1, sg_host_by_name("Faulty Host"));
+
+  SD_simulate(-1.0);
+
+  SD_task_dump(task);
+
+  XBT_INFO("Task '%s' has failed. %.f flops remain to be done", SD_task_get_name(task),
+           SD_task_get_remaining_amount(task));
+
+  XBT_INFO("let's unschedule task '%s' and reschedule it on the 'Safe Host'", SD_task_get_name(task));
+  SD_task_unschedule(task);
+  SD_task_schedulel(task, 1, sg_host_by_name("Safe Host"));
+
+  XBT_INFO("Run the simulation again");
+  SD_simulate(-1.0);
+
+  SD_task_dump(task);
+  XBT_INFO("Task '%s' start time: %f, finish time: %f", SD_task_get_name(task), SD_task_get_start_time(task),
+           SD_task_get_finish_time(task));
+
+  SD_task_destroy(task);
+  task=NULL;
+
+  XBT_INFO("Second test: NON TYPED task");
+
+  task = SD_task_create("Poor parallel task", NULL, 2e10);
+  SD_task_watch(task, SD_FAILED);
+  SD_task_watch(task, SD_DONE);
+
+  computation_amount[0] = 2e10;
+
+  XBT_INFO("Schedule task '%s' on 'Faulty Host'", SD_task_get_name(task));
+
+  hosts[0] = sg_host_by_name("Faulty Host");
+  SD_task_schedule(task, 1, hosts, computation_amount, communication_amount,-1);
+
+  SD_simulate(-1.0);
+
+  SD_task_dump(task);
+
+  XBT_INFO("Task '%s' has failed. %.f flops remain to be done", SD_task_get_name(task),
+            SD_task_get_remaining_amount(task));
+
+  XBT_INFO("let's unschedule task '%s' and reschedule it on the 'Safe Host'", SD_task_get_name(task));
+  SD_task_unschedule(task);
+
+  hosts[0] = sg_host_by_name("Safe Host");
+
+  SD_task_schedule(task, 1, hosts, computation_amount, communication_amount,-1);
+
+  XBT_INFO("Run the simulation again");
+  SD_simulate(-1.0);
+
+  SD_task_dump(task);
+  XBT_INFO("Task '%s' start time: %f, finish time: %f", SD_task_get_name(task), SD_task_get_start_time(task),
+           SD_task_get_finish_time(task));
+
+  SD_task_destroy(task);
+  SD_exit();
+  return 0;
+}