text: /*
   * A test of simple quoted processing of sequence of messages for
   * prio_one_thread::quoted_round_robin dispatcher.
   */
  
  #include <so_5/all.hpp>
  
  #include <test/3rd_party/various_helpers/time_limited_execution.hpp>
  
  struct msg_receiver_started : public so_5::signal_t {};
  struct msg_send_messages : public so_5::signal_t {};
  
  struct msg_request : public so_5::signal_t {};
  struct msg_reply : public so_5::message_t
  	{
  		so_5::priority_t m_priority;
  
  		msg_reply( so_5::priority_t priority ) : m_priority( priority )
  			{}
  	};
  
  
  void
  define_receiver_agent(
  	so_5::coop_t & coop,
  	so_5::disp::prio_one_thread::quoted_round_robin::dispatcher_handle_t & disp,
  	so_5::priority_t priority,
  	const so_5::mbox_t & common_mbox )
  	{
  		class actor_t final : public so_5::agent_t
  			{
  				const so_5::mbox_t m_common_mbox;
  
  			public :
  				actor_t(
  					context_t ctx,
  					so_5::priority_t priority,
  					so_5::mbox_t common_mbox )
  					:	so_5::agent_t{ ctx + priority }
  					,	m_common_mbox{ std::move(common_mbox) }
  					{
  						so_subscribe( m_common_mbox ).event(
  							[this, priority](mhood_t<msg_request>) {
  								so_5::send< msg_reply >( m_common_mbox, priority );
  							} );
  					}
  
  				void so_evt_start() override
  					{
  						so_5::send< msg_receiver_started >( m_common_mbox );
  					}
  			};
  
  		coop.make_agent_with_binder< actor_t >( disp.binder(),
  				priority, common_mbox );
  	}
  
  void
  define_message_sender(
  	so_5::coop_t & coop,
  	so_5::disp::prio_one_thread::quoted_round_robin::dispatcher_handle_t & disp,
  	const so_5::mbox_t & common_mbox )
  	{
  		class actor_t final : public so_5::agent_t
  			{
  			public :
  				actor_t( context_t ctx, const so_5::mbox_t & common_mbox )
  					:	so_5::agent_t{ ctx + so_5::prio::p0 }
  					{
  						so_subscribe( common_mbox ).event(
  							[common_mbox](mhood_t<msg_send_messages>) {
  								for( int i = 0; i != 20; ++i )
  									so_5::send< msg_request >( common_mbox );
  							} );
  					}
  			};
  
  		coop.make_agent_with_binder< actor_t >( disp.binder(),
  				std::cref(common_mbox) );
  	}
  
  void
  define_supervison_agent(
  	so_5::coop_t & coop,
  	const so_5::mbox_t & common_mbox )
  	{
  		class a_supervisor_t final : public so_5::agent_t
  			{
  				const so_5::mbox_t m_common_mbox;
  				const std::string m_expected_value;
  				std::string m_accumulator;
  				const std::size_t m_expected_receivers;
  				std::size_t m_started_receivers = 0;
  				const std::size_t m_expected_replies;
  				std::size_t m_replies = 0;
  
  			public:
  				a_supervisor_t(
  					context_t ctx,
  					so_5::mbox_t common_mbox,
  					std::string expected_value,
  					std::size_t expected_receivers,
  					std::size_t expected_replies )
  					:	so_5::agent_t{ std::move(ctx) }
  					,	m_common_mbox{ std::move(common_mbox) }
  					,	m_expected_value{ std::move( expected_value ) }
  					,	m_expected_receivers{ expected_receivers }
  					,	m_expected_replies{ expected_replies }
  					{
  						so_subscribe( m_common_mbox )
  							.event( &a_supervisor_t::on_receiver_started )
  							.event( &a_supervisor_t::on_reply );
  					}
  
  			private:
  				void on_receiver_started( mhood_t<msg_receiver_started> )
  					{
  						m_started_receivers += 1;
  						if( m_started_receivers == m_expected_receivers )
  							so_5::send< msg_send_messages >( m_common_mbox );
  					}
  
  				void on_reply( mhood_t<msg_reply> cmd )
  					{
  						m_replies += 1;
  						m_accumulator += std::to_string(
  								so_5::to_size_t( cmd->m_priority ) );
  
  						if( m_replies >= m_expected_replies )
  						{
  							if( m_expected_value != m_accumulator )
  								throw std::runtime_error( "values mismatch: "
  										"expected: " + m_expected_value +
  										", actual: " + m_accumulator );
  							else
  								so_environment().stop();
  						}
  					}
  			};
  
  		coop.make_agent< a_supervisor_t >(
  				common_mbox,
  				"777775555333"
  				"777775555333"
  				"777775555333"
  				"777775555333"
  				"5555333"
  				"333"
  				"33",
  				3u,
  				3u * 20u );
  	}
  
  void
  fill_coop(
  	so_5::coop_t & coop )
  	{
  		using namespace so_5::disp::prio_one_thread::quoted_round_robin;
  		using namespace so_5::prio;
  
  		auto common_mbox = coop.environment().create_mbox();
  		auto rr_disp = make_dispatcher( coop.environment(),
  				quotes_t{2}
  					.set( p7, 5 )
  					.set( p5, 4 )
  					.set( p3, 3 ) );
  
  		define_supervison_agent( coop, common_mbox );
  		define_message_sender( coop, rr_disp, common_mbox );
  		define_receiver_agent( coop, rr_disp, p7, common_mbox );
  		define_receiver_agent( coop, rr_disp, p5, common_mbox );
  		define_receiver_agent( coop, rr_disp, p3, common_mbox );
  	}
  
  int
  main()
  {
  	try
  	{
  		// Do several iterations to increase probability of errors detection.
  		std::cout << "runing iterations" << std::flush;
  		for( int i = 0; i != 100; ++i )
  		{
  			run_with_time_limit(
  				[]()
  				{
  					so_5::launch(
  						[]( so_5::environment_t & env )
  						{
  							env.introduce_coop( fill_coop );
  						} );
  				},
  				20,
  				"simple sequence prio_one_thread::quoted_round_robin dispatcher test" );
  			std::cout << "." << std::flush;
  		}
  		std::cout << "done" << std::endl;
  	}
  	catch( const std::exception & ex )
  	{
  		std::cerr << "Error: " << ex.what() << std::endl;
  		return 1;
  	}
  
  	return 0;
  }
  
  