/**
* @file tests/mixed/tests.cpp
* @author The ARTIS Development Team
* See the AUTHORS or Authors.txt file
*/
/*
* ARTIS - the multimodeling and simulation environment
* This file is a part of the ARTIS environment
*
* Copyright (C) 2013-2019 ULCO http://www.univ-littoral.fr
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see .
*/
#include
#include
#include
#define CATCH_CONFIG_MAIN
#include
using namespace artis::tests::mixed;
using namespace artis::common;
TEST_CASE("mixed/hierachical", "run")
{
artis::common::context::Context context(0, 100);
artis::common::RootCoordinator<
DoubleTime,
artis::pdevs::Coordinator<
DoubleTime,
RootGraphManager>
> rc(context, "root");
artis::common::Trace::trace().clear();
rc.run(context);
REQUIRE(artis::common::Trace::trace().elements().
filter_model_name("a1").
filter_function_type(artis::common::FunctionType::START).size() == 1);
REQUIRE(artis::common::Trace::trace().elements().
filter_model_name("b1").
filter_function_type(artis::common::FunctionType::START).size() == 1);
REQUIRE(artis::common::Trace::trace().elements().
filter_model_name("a2").
filter_function_type(artis::common::FunctionType::START).size() == 1);
REQUIRE(artis::common::Trace::trace().elements().
filter_model_name("b2").
filter_function_type(artis::common::FunctionType::START).size() == 1);
REQUIRE(artis::common::Trace::trace().elements().
filter_model_name("a1").
filter_function_type(artis::common::FunctionType::DELTA_EXT).size() == 0);
for (double t = 0; t <= 100; t = t + 3) {
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a1").filter_time(t).
filter_level_type(artis::common::LevelType::USER).
filter_function_type(artis::common::FunctionType::LAMBDA).size() == 1);
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a1").filter_time(t).
filter_function_type(artis::common::FunctionType::DELTA_INT).size() == 1);
if (t == 0) {
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a1").filter_time(t).
filter_function_type(artis::common::FunctionType::TA).size() == 2);
} else {
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a1").filter_time(t).
filter_function_type(artis::common::FunctionType::TA).size() == 1);
}
}
for (double t = 0; t <= 100; t = t + 3) {
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("b1").filter_time(t).
filter_level_type(artis::common::LevelType::USER).
filter_function_type(artis::common::FunctionType::LAMBDA).size() == 1);
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("b1").filter_time(t).
filter_function_type(artis::common::FunctionType::DELTA_INT).size() == 1);
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("b1").filter_time(t).
filter_function_type(artis::common::FunctionType::TA).size() == 2);
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("b1").filter_time(t).
filter_function_type(artis::common::FunctionType::DELTA_EXT).size() == 1);
}
for (unsigned int t = 0; t <= 100; t += 2) {
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a2").filter_time(t).
filter_level_type(artis::common::LevelType::USER).
filter_function_type(artis::common::FunctionType::LAMBDA).size() == 1);
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a2").filter_time(t).
filter_function_type(artis::common::FunctionType::TRANSITION).size() == 1);
}
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a2").filter_time(0).
filter_function_type(artis::common::FunctionType::TRANSITION).at(
0).get_comment()
== "x = { ( 0 , a2 , 0 ) }");
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a2").filter_time(2).
filter_function_type(artis::common::FunctionType::TRANSITION).at(
0).get_comment()
== "x = { }");
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a2").filter_time(4).
filter_function_type(artis::common::FunctionType::TRANSITION).at(
0).get_comment()
== "x = { ( 0 , a2 , 2 ) }");
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a2").filter_time(6).
filter_function_type(artis::common::FunctionType::TRANSITION).at(
0).get_comment()
== "x = { }");
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a2").filter_time(8).
filter_function_type(artis::common::FunctionType::TRANSITION).at(
0).get_comment()
== "x = { ( 0 , a2 , 3 ) }");
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a2").filter_time(10).
filter_function_type(artis::common::FunctionType::TRANSITION).at(
0).get_comment()
== "x = { ( 0 , a2 , 4 ) }");
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("a2").filter_time(12).
filter_function_type(artis::common::FunctionType::TRANSITION).at(
0).get_comment()
== "x = { }");
for (unsigned int t = 0; t <= 100; t += 2) {
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("b2").filter_time(t).
filter_level_type(artis::common::LevelType::USER).
filter_function_type(artis::common::FunctionType::LAMBDA).size() == 1);
REQUIRE(artis::common::Trace<
DoubleTime > ::trace().elements().
filter_model_name("b2").filter_time(t).
filter_function_type(artis::common::FunctionType::TRANSITION).size() == 1);
}
}