LUMIERA.clone/tests/library/meta/tuple-record-init-test.cpp
Ichthyostega fc193da1ac unit-test for tuple initialisation from GenNode
- leave out the type conversion part
- instead verify error handling on some typical corner cases
2016-01-28 22:39:38 +01:00

140 lines
4.5 KiB
C++

/*
TupleRecordInit(Test) - to build a tuple from a GenNode sequence
Copyright (C) Lumiera.org
2016, Hermann Vosseler <Ichthyostega@web.de>
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 2 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, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
* *****************************************************/
///@file
#include "lib/test/run.hpp"
#include "lib/test/test-helper.hpp"
#include "lib/time/timevalue.hpp"
#include "lib/meta/tuple-record-init.hpp"
#include "lib/format-cout.hpp"
#include "lib/format-util.hpp"
#include <boost/noncopyable.hpp>
#include <string>
using lib::Literal;
using lib::Variant;
using lib::idi::EntryID;
using lib::diff::Rec;
using lib::diff::MakeRec;
using lib::diff::GenNode;
using lib::meta::Types;
using lib::meta::Tuple;
using lib::meta::buildTuple;
using lib::time::TimeVar;
using lib::time::Time;
using lumiera::error::LUMIERA_ERROR_INDEX_BOUNDS;
using lumiera::error::LUMIERA_ERROR_WRONG_TYPE;
using std::string;
using std::tuple;
using std::get;
namespace lib {
namespace meta {
namespace test {
/*************************************************************************//**
* @test Metaprogramming: how to unload the contents of a runtime typed
* variant sequence into ctor arguments of a (compile time typed) tuple.
*
* This involves two problems
* - how to combine iteration, compile-time indexing and run-time access.
* - how to overcome the runtime-to-compile-time barrier, using a
* pre-generated double-dispatch (visitor).
*
* The concrete problem leading to the development of such a generic
* converter was the necessity to receive a command invocation
* parameter tuple from a Record<GenNode> sent via the UI-Bus.
* @see ElementExtractor
* @see GenNodeAccessor
* @see BusTerm_test::commandInvocation
* @see gui::test::Nexus::prepareDiagnosticCommandHandler
* @see ui-bus.hpp UI-Bus
*/
class TupleRecordInit_test : public Test
{
virtual void
run (Arg)
{
show_simpleUsage();
verify_errorHandling();
}
void
show_simpleUsage()
{
using NiceTypes = Types<string, int>;
using UgglyTypes = Types<EntryID<long>, string, int, int64_t, double, TimeVar>;
Rec args = MakeRec().scope("lalü", 42);
Rec urgs = MakeRec().scope("lalü", "lala", 12, 34, 5.6, Time(7,8,9));
cout << args <<endl;
cout << urgs <<endl;
cout << buildTuple<NiceTypes> (args) <<endl;
cout << buildTuple<UgglyTypes> (urgs) <<endl;
}
void
verify_errorHandling()
{
Rec args = MakeRec().scope("surprise", 42);
using TooMany = Types<string, int, long>;
VERIFY_ERROR (INDEX_BOUNDS, buildTuple<TooMany> (args)); // number of types in tuple exceeds capacity of the supplied argument record
using Unsigned = Types<string, uint>;
using Floating = Types<string, float>;
using Narrowing = Types<string, short>;
VERIFY_ERROR (WRONG_TYPE, buildTuple<Unsigned> (args)); // dangerous conversion from signed to unsigned int is prohibited
VERIFY_ERROR (WRONG_TYPE, buildTuple<Floating> (args)); // conversion from integral to floating point element is prohibited
VERIFY_ERROR (WRONG_TYPE, buildTuple<Narrowing> (args)); // narrowing conversion from int to short is prohibited
// yet other (non-numeric) conversions are still possible
Rec arg1 = MakeRec().scope(Time(1,2,3,4));
using TupStr = Types<string>;
Tuple<TupStr> tup = buildTuple<TupStr> (arg1);
CHECK (std::get<string> (tup) == "4:03:02.001");
CHECK (string(Time(1,2,3,4)) == "4:03:02.001");
}
};
/** Register this test class... */
LAUNCHER (TupleRecordInit_test, "unit meta");
}}} // namespace lib::meta::test