cpp-rotor/tests/021-ping_pong-external.cpp

//
// Copyright (c) 2019-2020 Ivan Baidakou (basiliscos) (the dot dmol at gmail dot com)
//
// Distributed under the MIT Software License
//

#include "rotor.hpp"
#include "supervisor_test.h"
#include "access.h"
#include <iostream>

namespace r = rotor;
namespace rt = r::test;

struct ping_t {};
struct pong_t {};

struct pinger_t : public r::actor_base_t {
    std::uint32_t ping_sent = 0;
    std::uint32_t pong_received = 0;

    using r::actor_base_t::actor_base_t;

    void set_ponger_addr(const r::address_ptr_t &addr) { ponger_addr = addr; }

    void configure(r::plugin::plugin_base_t &plugin) noexcept override {
        plugin.with_casted<r::plugin::starter_plugin_t>([](auto &p) { p.subscribe_actor(&pinger_t::on_pong); });
    }

    void on_pong(r::message_t<pong_t> &) noexcept { ++pong_received; }

    void do_send_ping() {
        ++ping_sent;
        send<ping_t>(ponger_addr);
    }

    r::address_ptr_t ponger_addr;
};

struct pinger_autostart_t : public pinger_t {
    using pinger_t::pinger_t;

    void configure(r::plugin::plugin_base_t &plugin) noexcept override {
        pinger_t::configure(plugin);
        plugin.with_casted<r::plugin::starter_plugin_t>(
            [this](auto &p) { p.subscribe_actor(&pinger_autostart_t::on_ponger_start, ponger_addr); });
    }

    void on_ponger_start(r::message_t<r::payload::start_actor_t> &) noexcept { do_send_ping(); }
};

struct ponger_t : public r::actor_base_t {
    std::uint32_t ping_received = 0;
    std::uint32_t pong_sent = 0;

    using r::actor_base_t::actor_base_t;

    void set_pinger_addr(const r::address_ptr_t &addr) { pinger_addr = addr; }

    void configure(r::plugin::plugin_base_t &plugin) noexcept override {
        plugin.with_casted<r::plugin::starter_plugin_t>([](auto &p) { p.subscribe_actor(&ponger_t::on_ping); });
    }

    void on_ping(r::message_t<ping_t> &) noexcept {
        ++ping_received;
        send<pong_t>(pinger_addr);
        ++pong_sent;
    }

  private:
    r::address_ptr_t pinger_addr;
};

TEST_CASE("pinger & ponger on different supervisors, manually controlled", "[supervisor]") {
    r::system_context_t system_context;

    const char locality1[] = "l1";
    const char locality2[] = "l2";
    auto sup1 = system_context.create_supervisor<rt::supervisor_test_t>()
                    .locality(locality1)
                    .timeout(rt::default_timeout)
                    .finish();
    auto sup2 = sup1->create_actor<rt::supervisor_test_t>().locality(locality2).timeout(rt::default_timeout).finish();

    auto pinger = sup1->create_actor<pinger_t>().timeout(rt::default_timeout).finish();
    auto ponger = sup2->create_actor<ponger_t>().timeout(rt::default_timeout).finish();

    pinger->set_ponger_addr(ponger->get_address());
    ponger->set_pinger_addr(pinger->get_address());

    sup1->do_process();
    sup2->do_process();
    REQUIRE(pinger->ping_sent == 0);
    REQUIRE(pinger->pong_received == 0);
    REQUIRE(ponger->ping_received == 0);
    REQUIRE(ponger->pong_sent == 0);

    pinger->do_send_ping();
    sup1->do_process();
    REQUIRE(pinger->ping_sent == 1);
    REQUIRE(pinger->pong_received == 0);
    REQUIRE(ponger->ping_received == 0);
    REQUIRE(ponger->pong_sent == 0);

    sup2->do_process();
    REQUIRE(pinger->ping_sent == 1);
    REQUIRE(pinger->pong_received == 0);
    REQUIRE(ponger->ping_received == 1);
    REQUIRE(ponger->pong_sent == 1);

    sup1->do_process();
    REQUIRE(pinger->ping_sent == 1);
    REQUIRE(pinger->pong_received == 1);
    REQUIRE(ponger->ping_received == 1);
    REQUIRE(ponger->pong_sent == 1);

    sup1->do_shutdown();
    while (!sup1->get_leader_queue().empty() || !sup2->get_leader_queue().empty()) {
        sup1->do_process();
        sup2->do_process();
    }
    REQUIRE(sup2->get_state() == r::state_t::SHUT_DOWN);
    REQUIRE(sup2->get_leader_queue().size() == 0);
    REQUIRE(sup2->get_points().size() == 0);
    REQUIRE(rt::empty(sup2->get_subscription()));

    REQUIRE(sup1->get_state() == r::state_t::SHUT_DOWN);
    REQUIRE(sup1->get_leader_queue().size() == 0);
    REQUIRE(sup1->get_points().size() == 0);
    REQUIRE(rt::empty(sup1->get_subscription()));
}

TEST_CASE("pinger & ponger on different supervisors, self controlled", "[supervisor]") {
    r::system_context_t system_context;

    const char locality1[] = "l1";
    const char locality2[] = "l2";
    auto sup1 = system_context.create_supervisor<rt::supervisor_test_t>()
                    .locality(locality1)
                    .timeout(rt::default_timeout)
                    .finish();
    auto sup2 = sup1->create_actor<rt::supervisor_test_t>().locality(locality2).timeout(rt::default_timeout).finish();

    auto pinger = sup1->create_actor<pinger_autostart_t>().timeout(rt::default_timeout).finish();
    auto ponger = sup2->create_actor<ponger_t>().timeout(rt::default_timeout).finish();

    pinger->set_ponger_addr(ponger->get_address());
    ponger->set_pinger_addr(pinger->get_address());

    sup1->do_process();
    sup2->do_process();
    REQUIRE(pinger->ping_sent == 0);
    REQUIRE(pinger->pong_received == 0);
    REQUIRE(ponger->ping_received == 0);
    REQUIRE(ponger->pong_sent == 0);

    sup1->do_process();
    REQUIRE(pinger->ping_sent == 1);
    REQUIRE(pinger->pong_received == 0);
    REQUIRE(ponger->ping_received == 0);
    REQUIRE(ponger->pong_sent == 0);

    sup2->do_process();
    REQUIRE(pinger->ping_sent == 1);
    REQUIRE(pinger->pong_received == 0);
    REQUIRE(ponger->ping_received == 1);
    REQUIRE(ponger->pong_sent == 1);

    sup1->do_process();
    REQUIRE(pinger->ping_sent == 1);
    REQUIRE(pinger->pong_received == 1);
    REQUIRE(ponger->ping_received == 1);
    REQUIRE(ponger->pong_sent == 1);

    sup1->do_shutdown();
    while (!sup1->get_leader_queue().empty() || !sup2->get_leader_queue().empty()) {
        sup1->do_process();
        sup2->do_process();
    }
    CHECK(sup2->get_state() == r::state_t::SHUT_DOWN);
    CHECK(sup2->get_leader_queue().size() == 0);
    CHECK(sup2->get_points().size() == 0);
    REQUIRE(rt::empty(sup2->get_subscription()));

    CHECK(sup1->get_state() == r::state_t::SHUT_DOWN);
    CHECK(sup1->get_leader_queue().size() == 0);
    CHECK(sup1->get_points().size() == 0);
    REQUIRE(rt::empty(sup1->get_subscription()));
}