1 /* Copyright (c) 2017. The SimGrid Team. All rights reserved. */
3 /* This program is free software; you can redistribute it and/or modify it
4 * under the terms of the license (GNU LGPL) which comes with this package. */
6 /* Bug report: https://github.com/simgrid/simgrid/issues/40
8 * Task.listen used to be on async mailboxes as it always returned false.
9 * This occures in Java and C, but is only tested here in C.
12 #include "simgrid/s4u.hpp"
14 XBT_LOG_NEW_DEFAULT_CATEGORY(s4u_test, "Messages specific for this s4u example");
18 simgrid::s4u::MailboxPtr mailbox = simgrid::s4u::Mailbox::byName("mailbox");
20 simgrid::s4u::CommPtr sendComm = simgrid::s4u::this_actor::isend(mailbox, xbt_strdup("Some data"), 0);
22 xbt_assert(mailbox->listen()); // True (1)
23 XBT_INFO("Task listen works on regular mailboxes");
24 char* res = static_cast<char*>(simgrid::s4u::this_actor::recv(mailbox));
26 xbt_assert(not strcmp("Some data", res), "Data received: %s", res);
27 XBT_INFO("Data successfully received from regular mailbox");
31 simgrid::s4u::MailboxPtr mailbox2 = simgrid::s4u::Mailbox::byName("mailbox2");
32 mailbox2->setReceiver(simgrid::s4u::Actor::self());
34 simgrid::s4u::this_actor::dsend(mailbox2, xbt_strdup("More data"), 0);
36 xbt_assert(mailbox2->listen()); // used to break.
37 XBT_INFO("Task listen works on asynchronous mailboxes");
39 res = static_cast<char*>(simgrid::s4u::this_actor::recv(mailbox2));
40 xbt_assert(not strcmp("More data", res));
43 XBT_INFO("Data successfully received from asynchronous mailbox");
44 XBT_DEBUG("comm:%p", sendComm.get());
47 int main(int argc, char* argv[])
49 simgrid::s4u::Engine* e = new simgrid::s4u::Engine(&argc, argv);
50 e->loadPlatform(argv[1]);
52 simgrid::s4u::Actor::createActor("test", simgrid::s4u::Host::by_name("Tremblay"), server);