model-checker : new example bugged1 for stateful dpor

[simgrid.git] / examples / msg / mc / bugged1_stateful.c

diff --git a/examples/msg/mc/bugged1_stateful.c b/examples/msg/mc/bugged1_stateful.c
new file mode 100644 (file)
index 0000000..d76edba
--- /dev/null
+++ b/examples/msg/mc/bugged1_stateful.c
@@ -0,0 +1,65 @@
+/******************** Non-deterministic message ordering  *********************/
+/* Server assumes a fixed order in the reception of messages from its clients */
+/* which is incorrect because the message ordering is non-deterministic       */
+/******************************************************************************/
+
+#include <msg/msg.h>
+#include <mc/modelchecker.h>
+#define N 3
+
+XBT_LOG_NEW_DEFAULT_CATEGORY(example, "this example");
+
+int server(int argc, char *argv[]);
+int client(int argc, char *argv[]);
+
+int server(int argc, char *argv[])
+{
+  m_task_t task = NULL;
+  int count = 0;
+  while (count < N) {
+    if (task) {
+      MSG_task_destroy(task);
+      task = NULL;
+    }
+    MSG_task_receive(&task, "mymailbox");
+    count++;
+  }
+  MC_assert_stateful(atoi(MSG_task_get_name(task)) == 3);
+
+  XBT_INFO("OK");
+  return 0;
+}
+
+int client(int argc, char *argv[])
+{
+
+  m_task_t task =
+      MSG_task_create(argv[1], 0 /*comp cost */ , 10000 /*comm size */ ,
+                      NULL /*arbitrary data */ );
+
+  MSG_task_send(task, "mymailbox");
+
+  XBT_INFO("Sent!");
+  return 0;
+}
+
+int main(int argc, char *argv[])
+{
+
+  MSG_global_init(&argc, argv);
+
+  MSG_create_environment("platform.xml");
+
+  MSG_function_register("server", server);
+
+  MSG_function_register("client", client);
+
+  MSG_launch_application("deploy_bugged1.xml");
+
+  MSG_main_stateful();
+
+  MSG_clean();
+
+  return 0;
+
+}