roland/xo-type
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xo-type: + DArrayType

Browse source
This commit is contained in:
Roland Conybeare 2026-03-07 00:25:55 +11:00
commit 553e7c0151
17 changed files with 511 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

70
utest/DArrayType.test.cpp Normal file
View file

@ -0,0 +1,70 @@
/** @file DArrayType.test.cpp
*
* @author Roland Conybeare, Mar 2026
**/
#include "init_type.hpp"
#include "TypeOps.hpp"
#include "ArrayType.hpp"
#include "ListType.hpp"
#include "AtomicType.hpp"
#include <xo/alloc2/Allocator.hpp>
#include <xo/alloc2/Arena.hpp>
#include <xo/facet/obj.hpp>
#include <catch2/catch.hpp>
namespace xo {
using xo::scm::TypeOps;
using xo::scm::AType;
using xo::scm::Metatype;
using xo::mm::AAllocator;
using xo::mm::DArena;
using xo::mm::ArenaConfig;
namespace ut {
static InitEvidence s_init = (InitSubsys<S_type_tag>::require());
TEST_CASE("DArrayType-make", "[type][DArrayType]")
{
ArenaConfig cfg { .name_ = "testarena",
.size_ = 4*1024 };
DArena arena = DArena::map(cfg);
auto alloc = obj<AAllocator,DArena>(&arena);
auto i64_type = TypeOps::atomic_type(alloc, Metatype::i64());
auto array_i64_type = TypeOps::array_type(alloc, i64_type);
REQUIRE(array_i64_type);
REQUIRE(array_i64_type.is_equal_to(array_i64_type));
auto bool_type = TypeOps::atomic_type(alloc, Metatype::t_bool());
auto array_bool_type = TypeOps::array_type(alloc, bool_type);
REQUIRE(array_bool_type);
REQUIRE(array_bool_type.is_equal_to(array_bool_type));
auto any_type = TypeOps::atomic_type(alloc, Metatype::any());
auto array_any_type = TypeOps::array_type(alloc, any_type);
REQUIRE(array_any_type);
REQUIRE(array_any_type.is_equal_to(array_any_type));
REQUIRE(array_bool_type.is_subtype_of(array_any_type));
REQUIRE(array_i64_type.is_subtype_of(array_any_type));
REQUIRE(!array_i64_type.is_subtype_of(array_bool_type));
REQUIRE(!array_any_type.is_subtype_of(array_bool_type));
REQUIRE(!array_bool_type.is_subtype_of(array_i64_type));
REQUIRE(!array_any_type.is_subtype_of(array_i64_type));
// array and list are unrelated
auto list_i64_type = TypeOps::list_type(alloc, i64_type);
REQUIRE(!array_i64_type.is_equal_to(list_i64_type));
REQUIRE(!array_i64_type.is_subtype_of(list_i64_type));
REQUIRE(!list_i64_type.is_subtype_of(array_i64_type));
}
}
}
/* end DArrayType.test.cpp */