-#include "simgrid/s4u.hpp"
-
-XBT_LOG_NEW_DEFAULT_CATEGORY(s4u_test, "Messages specific for this s4u tests");
+/* Copyright (c) 2019-2022. The SimGrid Team. All rights reserved. */
-int payload = 1000;
-int nb_message_to_send = 100;
-double sleep_time = 1;
-int nb_sender = 50;
+/* 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. */
-int nb_messages_sent = 0;
+/* This test checks that ns-3 behave correctly when multiple flows finish */
+/* at the exact same time. Given the amount of simultaneous senders, it */
+/* also serves as a (small) crash test for ns-3. */
-simgrid::s4u::Mailbox* box;
+#include "simgrid/s4u.hpp"
-static void test_send(){
+XBT_LOG_NEW_DEFAULT_CATEGORY(s4u_test, "Messages specific for this s4u tests");
- int nb_message = 0;
+const int payload = 1000;
+const int nb_message_to_send = 5;
+const double sleep_time = 5;
+const int nb_sender = 100;
- while(nb_message < nb_message_to_send){
-
+static void test_send(){
+ simgrid::s4u::Mailbox* box = simgrid::s4u::Mailbox::by_name("test");
+ static int nb_messages_sent = 0;
+ for (int nb_message = 0; nb_message < nb_message_to_send; nb_message++) {
nb_messages_sent++;
- nb_message++;
- int id_message = nb_messages_sent;
- XBT_INFO("start sending test #%i", id_message);
- box->put(new int(id_message), payload);
- XBT_INFO("done sending test #%i", id_message);
- simgrid::s4u::this_actor::sleep_for(sleep_time);
+ XBT_VERB("start sending test #%i", nb_messages_sent);
+ box->put(new int(nb_messages_sent), payload);
+ XBT_VERB("done sending test #%i", nb_messages_sent);
+ simgrid::s4u::this_actor::sleep_until(sleep_time * (nb_message + 1));
}
}
static void test_receive(){
-
- int nb_message = 0;
-
- while(nb_message < nb_message_to_send * nb_sender){
- XBT_INFO("waiting for messages");
- int id = *(int*)(box->get());
- nb_message++;
- XBT_INFO("received messages #%i", id);
+ simgrid::s4u::Mailbox* box = simgrid::s4u::Mailbox::by_name("test");
+ for (int nb_message = 0; nb_message < nb_message_to_send * nb_sender; nb_message++) {
+ XBT_VERB("waiting for messages");
+ auto ptr = box->get_unique<int>();
+ int id = *ptr;
+ XBT_VERB("received messages #%i", id);
}
+ XBT_INFO("Done receiving from %d senders, each of them sending %d messages", nb_sender, nb_message_to_send);
}
int main(int argc, char *argv[])
{
simgrid::s4u::Engine e(&argc, argv);
-
+
e.load_platform(argv[1]);
- for(int i=0;i<nb_sender;i++)
- simgrid::s4u::Actor::create("sender_"+std::to_string(i), e.get_all_hosts()[i], test_send);
+ auto hosts = e.get_all_hosts();
- simgrid::s4u::ActorPtr receiver = simgrid::s4u::Actor::create("receiver", e.get_all_hosts()[nb_sender+1], test_receive);
-
- box = simgrid::s4u::Mailbox::by_name("test");
- box->set_receiver(receiver);
+ simgrid::s4u::Actor::create("receiver", hosts[0], test_receive);
+ for (int i = 0; i < nb_sender; i++)
+ simgrid::s4u::Actor::create("sender_" + std::to_string(i), hosts[i % (e.get_host_count() - 1) + 1], test_send);
e.run();