XBT_INFO("Actual result: 1 small and 1 large concurrent communications take %.4f seconds.",
end_time - start_time);
XBT_INFO("\n");
+
+ sg4::this_actor::sleep_for(5);
+
+ XBT_INFO("TEST: Concurrent communication and computation.");
+ XBT_INFO("------------------------------------------------------------");
+ XBT_INFO("A host sends 1B to another while the latter compute 2 flop.");
+ XBT_INFO("Should be done in 2 seconds: 1.5s to transfer and 2 seconds to compute.");
+ XBT_INFO("The two activities should overlap smoothly as they use different resources.");
+ XBT_INFO("The completion time is thus the maximum of the time to complete the two activities.");
+
+ start_time = sg4::Engine::get_clock();
+ c1 = sg4::Comm::sendto_async(hosts[0], hosts[4], 1.0);
+ e1 = sg4::Exec::init()->set_flops_amount(2.0)->set_host(hosts[4])->start();
+ e1->wait();
+ c1->wait();
+ end_time = sg4::Engine::get_clock();
+ XBT_INFO("Actual result: Sending 1B while computing 2 flops takes %.4f seconds.", end_time - start_time);
+ XBT_INFO("\n");
}
int main(int argc, char** argv)
> The small communication has a negligible impact on the large one.
> This corresponds to paying latency once and having the full bandwidth for the large communication.
> Actual result: 1 small and 1 large concurrent communications take 0.8001 seconds.
+>
+>
+> TEST: Concurrent communication and computation.
+> ------------------------------------------------------------
+> A host sends 1B to another while the latter compute 2 flop.
+> Should be done in 2 seconds: 1.5s to transfer and 2 seconds to compute.
+> The two activities should overlap smoothly as they use different resources.
+> The completion time is thus the maximum of the time to complete the two activities.
+> Actual result: Sending 1B while computing 2 flops takes 2.0000 seconds.
-foreach(x availability basic1 basic3 basic4 basic5 incomplete)
+foreach(x availability basic1 basic3 basic4 incomplete)
add_executable (${x} EXCLUDE_FROM_ALL ${x}/${x}.c)
target_link_libraries(${x} simgrid)
set_target_properties(${x} PROPERTIES RUNTIME_OUTPUT_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}/${x})
${CMAKE_CURRENT_SOURCE_DIR}/platforms/link.fail
${CMAKE_CURRENT_SOURCE_DIR}/platforms/link.lat PARENT_SCOPE)
-foreach(x availability basic1 basic3 basic4 basic5 flatifier incomplete)
+foreach(x availability basic1 basic3 basic4 flatifier incomplete)
ADD_TESH(tesh-simdag-${x} --setenv bindir=${CMAKE_BINARY_DIR}/teshsuite/simdag/${x} --setenv srcdir=${CMAKE_HOME_DIRECTORY} --cd ${CMAKE_HOME_DIRECTORY}/teshsuite/simdag/${x} ${x}.tesh)
endforeach()
+++ /dev/null
-/* Copyright (c) 2007-2021. 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/log.h"
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(basic5, sd, "SimDag test basic5");
-
-/* Basic SimDag Test 5
- * Scenario:
- * - Create a no-op Init task
- * - Create two tasks: send 100kB and compute 10Mflops
- * - Schedule them concurrently
- * The two tasks should overlap smoothly as they use different resources.
- * Simulated time should be:
- * MAX(1e5/(1.25e8), 1e7/4e9) = MAX(.0009, .0025) = 0.0025 seconds
- */
-int main(int argc, char **argv)
-{
- /* scheduling parameters */
- double no_cost[] = { 0., 0., 0., 0. };
- double amount[] = { 0., 100000., 0., 0. };
- double comput[] = { 10000000. };
-
- /* initialization of SD */
- SD_init(&argc, argv);
-
- /* creation of the environment */
- SD_create_environment(argv[1]);
-
- /* creation of the tasks and their dependencies */
- SD_task_t taskInit = SD_task_create("Task Init", NULL, 1.0);
- 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_dependency_add(taskInit, taskA);
- SD_task_dependency_add(taskInit, taskB);
-
- sg_host_t *hosts = sg_host_list();
- SD_task_schedule(taskInit, 1, hosts, no_cost, no_cost, -1.0);
- SD_task_schedule(taskA, 2, hosts, no_cost, amount, -1.0);
- SD_task_schedule(taskB, 1, hosts, comput, no_cost, -1.0);
- xbt_free(hosts);
-
- /* let's launch the simulation! */
- SD_simulate(-1.0);
- SD_task_destroy(taskInit);
- SD_task_destroy(taskA);
- SD_task_destroy(taskB);
-
- XBT_INFO("Simulation time: %f", SD_get_clock());
-
- return 0;
-}
