rainynite-core/tests/link_storage.cpp

/*  link_storage.cpp - test link storage
 *  Copyright (C) 2017 caryoscelus
 *
 *  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 <http://www.gnu.org/licenses/>.
 */

#include <catch.hpp>

#include <core/node/named_link_storage.h>
#include <core/node/make.h>
#include "zero_context.h"

using namespace rainynite;
using namespace rainynite::core;

class RealOnly :
    public LinkStorage<
        RealOnly,
        types::Only<double>,
        types::Only<double>
    >
{
    DEFAULT_VALUES(0.0, 1.0)
};

TEST_CASE("Link storage: only", "[node]") {
    auto real = make_unique<RealOnly>();
    CHECK(real->get_link_as<double>(0)->value(zero_context()) == 0);
    CHECK(real->get_link_as<double>(1)->value(zero_context()) == 1);
    real->set_link(0, make_value<double>(1));
    real->set_link(1, make_value<double>(2));
    CHECK(real->get_link_as<double>(0)->value(zero_context()) == 1);
    CHECK(real->get_link_as<double>(1)->value(zero_context()) == 2);
    CHECK_THROWS_AS((real->set_link(0, make_value<string>())), NodeAccessError);
}

class RealOrString :
    public LinkStorage<
        RealOrString,
        types::AnyOf<double, string>
    >
{
    DEFAULT_VALUES(0.0)
};

TEST_CASE("Link storage: any of", "[node]") {
    auto links = make_unique<RealOrString>();
    CHECK(links->get_link_as<double>(0)->value(zero_context()) == 0);
    links->set_link(0, make_value<double>(1.5));
    CHECK(links->get_link_as<double>(0)->value(zero_context()) == 1.5);
    links->set_link(0, make_value<string>("hello"));
    CHECK(links->get_link_as<string>(0)->value(zero_context()) == "hello");
    CHECK_THROWS_AS((links->set_link(0, make_value<int>())), NodeAccessError);
}

class AnyLink :
    public LinkStorage<
        AnyLink,
        types::Any
    >
{
    DEFAULT_VALUES(0.0)
};

TEST_CASE("Link storage: any type", "[node]") {
    auto links = make_unique<RealOrString>();
    auto zero = make_value<double>(0);
    auto hello = make_value<string>("hello");
    links->set_link(0, zero);
    CHECK(links->get_link_as<double>(0)->value(zero_context()) == 0);
    links->set_link(0, hello);
    CHECK(links->get_link_as<string>(0)->value(zero_context()) == "hello");
}

class Named :
    public NamedLinkStorage<
        Named,
        types::Only<double>,
        types::Any
    >
{
    NODE_PROPERTIES("real", "any")
    DEFAULT_VALUES(0.0, Nothing{})
    PROPERTY(real)
    PROPERTY(any)
};

TEST_CASE("Named link storage", "[node]") {
    auto links = make_unique<Named>();
    CHECK_THROWS_AS(links->get_property("invalid"), NodeAccessError);
    CHECK(links->real_value<double>(zero_context()) == 0);
    CHECK(links->get_property_value<Nothing>("any", zero_context()));
    links->set_property("real", make_value<double>(1));
    CHECK(links->get_link_as<double>(0)->value(zero_context()) == 1);
    CHECK(links->get_property_as<double>("real")->value(zero_context()) == 1);
    links->set_property("any", make_value<double>(2));
    CHECK(links->get_link_as<double>(1)->value(zero_context()) == 2);
    CHECK(links->get_property_as<double>("any")->value(zero_context()) == 2);
    links->set_property("any", make_value<string>("hello"));
    CHECK(links->get_property_as<string>("any")->value(zero_context()) == "hello");
}