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

xo-gc: utest w/ DInteger

Browse source
This commit is contained in:
Roland Conybeare 2026-04-25 19:30:17 -04:00
commit 6de2e4e519
3 changed files with 96 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

55
utest/MutationLogStore.test.cpp
View file

@ -7,6 +7,7 @@
#include "MlsTestutil.hpp"
#include <xo/object2/List.hpp>
#include <xo/object2/Boolean.hpp>
#include <xo/object2/Integer.hpp>
#include <xo/gc/GCObjectStore.hpp>
#include <xo/gc/GCObjectStoreVisitor.hpp>
#include <xo/gc/MutationLogStore.hpp>
@ -20,6 +21,7 @@
namespace ut {
using xo::scm::DList;
using xo::scm::DBoolean;
using xo::scm::DInteger;
using xo::mm::MutationLogStore;
using xo::mm::MutationLogConfig;
using xo::mm::GCObjectStore;
@ -257,6 +259,49 @@ namespace ut {
// ----------------------------------------------------------------
static Step step_5[] = {
// ----- phase 0 -----
{Cmd::make_int, 99, 0}, // [0]: 99
{Cmd::make_nil, 0, 0}, // [1]: #nil
{Cmd::make_cons, 0, 1}, // [2]: cons([0],[1]) -> cons(99,#nil)
// 1st gc
// ----- phase 1 -----
{Cmd::make_int, 15, 0}, // [3]: 15
{Cmd::assign_head, 2, 3}, // set-car([2],[3]) -> set-car([2],15)
// 2nd gc. [1]..[2] promote to g1
// [3] in g0 so [2]->[3] requires mlog entry
// ----- phase 2 -----
{Cmd::make_int, 24, 0}, // [4]: 33
{Cmd::assign_head, 2, 4}, // set-car([2],[4]) -> set-car([2],33)
// ----- phase 3 -----
// ----- phase 4 -----
// ----- end -----
{Cmd::sentinel, 0, 0},
};
static Phase phase_5[] = {
//
// lo hi mlog_new_z_[]
// v v v
{ 0, 3, {0} }, // phase 0 gc
{ 3, 5, {1} }, // phase 1 gc. set-car makes 1x xage ptr
{ 5, 7, {2} }, // phase 2 gc. now src in g1, dest [3] in g0
{ 7, 7, {1} }, // phase 3 gc. new dest [4] in g0
{ 7, 7, {0} }, // phase 4 gc. now dest in g1
{ -1, -1, {0} },
};
static TestSequence seq_5 { step_5, phase_5 };
// ----------------------------------------------------------------
# define seq_nil TestSequence{}
# define nil nullptr
# define T true
@ -286,6 +331,7 @@ namespace ut {
Testcase(2, 1, 16 * 1024, 8 * 128, T, seq_2, 128, T, c_fixed, 3, 0, 0, 0, 0, F),
Testcase(2, 2, 16 * 1024, 8 * 128, T, seq_3, 128, T, c_fixed, 4, 0, 0, 0, 0, F),
Testcase(2, 2, 16 * 1024, 8 * 128, T, seq_4, 128, T, c_fixed, 4, 0, 0, 0, 0, F),
Testcase(2, 2, 16 * 1024, 8 * 128, T, seq_5, 128, T, c_fixed, 4, 0, 0, 0, 0, F),
};
# undef T
@ -403,12 +449,19 @@ namespace ut {
{
REQUIRE(gcos.is_type_installed(typeseq::id<DList>()) == false);
REQUIRE(gcos.is_type_installed(typeseq::id<DBoolean>()) == false);
REQUIRE(gcos.is_type_installed(typeseq::id<DInteger>()) == false);
GcosTestutil::gcos_install_test_types(tc.do_type_registration_, &gcos);
if (tc.do_type_registration_) {
REQUIRE(gcos.is_type_installed(typeseq::id<DList>()) == true);
REQUIRE(gcos.is_type_installed(typeseq::id<DBoolean>()) == true);
REQUIRE(gcos.is_type_installed(typeseq::id<DInteger>()) == true);
}
GcosTestutil::gcos_verify_arena_partitioning(tc.n_gen_, tc.gc_size_, gcos);
GcosTestutil::gcos_verify_vacant(tc.n_gen_, tc.gc_size_, gcos);
}
}
/** mutator/collector loop **/