325 lines
11 KiB
C++
325 lines
11 KiB
C++
/*
|
|
AllocationCluster(Test) - verify bulk (de)allocating a family of objects
|
|
|
|
Copyright (C) Lumiera.org
|
|
2008, 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 allocation-cluster-test.cpp
|
|
** unit test \ref AllocationCluster_test
|
|
*/
|
|
|
|
|
|
|
|
#include "lib/test/run.hpp"
|
|
#include "lib/test/test-helper.hpp"
|
|
#include "lib/allocation-cluster.hpp"
|
|
#include "lib/test/diagnostic-output.hpp"/////////////////TODO
|
|
#include "lib/iter-explorer.hpp"
|
|
#include "lib/util.hpp"
|
|
|
|
#include <array>
|
|
#include <vector>
|
|
#include <limits>
|
|
#include <functional>
|
|
//#include <boost/lexical_cast.hpp>
|
|
|
|
//using boost::lexical_cast;
|
|
using lib::explore;
|
|
using lib::test::showSizeof;
|
|
using util::getAddr;
|
|
using util::isnil;
|
|
using ::Test;
|
|
|
|
using std::numeric_limits;
|
|
using std::function;
|
|
using std::vector;
|
|
using std::array;
|
|
using std::byte;
|
|
|
|
|
|
|
|
namespace lib {
|
|
namespace test {
|
|
|
|
namespace { // a family of test dummy classes
|
|
|
|
const uint NUM_CLUSTERS = 5;
|
|
const uint NUM_TYPES = 20;
|
|
const uint NUM_OBJECTS = 500;
|
|
|
|
const size_t BLOCKSIZ = 256; ///< @warning actually defined in allocation-cluster.cpp
|
|
|
|
long checksum = 0; // validate proper pairing of ctor/dtor calls
|
|
|
|
template<uint i>
|
|
class Dummy
|
|
{
|
|
static_assert (0 < i);
|
|
array<uchar,i> content_;
|
|
|
|
public:
|
|
Dummy (uchar id=1)
|
|
{
|
|
content_.fill(id);
|
|
checksum += explore(content_).resultSum();
|
|
}
|
|
|
|
~Dummy()
|
|
{
|
|
checksum -= explore(content_).resultSum();
|
|
}
|
|
|
|
char getID() { return content_[0]; }
|
|
};
|
|
|
|
|
|
template<uint i>
|
|
void
|
|
place_object (AllocationCluster& clu, uchar id)
|
|
{
|
|
clu.create<Dummy<i>> (id);
|
|
}
|
|
|
|
|
|
inline array<function<void(AllocationCluster&, uchar)>, NUM_TYPES>
|
|
buildTrampoline()
|
|
{
|
|
return { place_object<1>
|
|
, place_object<2>
|
|
, place_object<3>
|
|
, place_object<5>
|
|
, place_object<10>
|
|
, place_object<13>
|
|
, place_object<14>
|
|
, place_object<15>
|
|
, place_object<16>
|
|
, place_object<17>
|
|
, place_object<18>
|
|
, place_object<19>
|
|
, place_object<20>
|
|
, place_object<25>
|
|
, place_object<30>
|
|
, place_object<35>
|
|
, place_object<40>
|
|
, place_object<50>
|
|
, place_object<100>
|
|
, place_object<200>
|
|
};
|
|
}
|
|
|
|
void
|
|
fill (AllocationCluster& clu)
|
|
{
|
|
auto invoker = buildTrampoline();
|
|
for (uint i=0; i<NUM_OBJECTS; ++i)
|
|
invoker[rand() % NUM_TYPES] (clu, uchar(i));
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/*********************************************************************//**
|
|
* @test verify the proper workings of our custom allocation scheme
|
|
* managing families of interconnected objects for the segments
|
|
* of the low-level model.
|
|
*/
|
|
class AllocationCluster_test : public Test
|
|
{
|
|
virtual void
|
|
run (Arg)
|
|
{
|
|
// simpleUsage();
|
|
// checkLifecycle();
|
|
verifyInternals();
|
|
use_as_Allocator();
|
|
}
|
|
|
|
|
|
void
|
|
simpleUsage()
|
|
{
|
|
AllocationCluster clu;
|
|
|
|
char c1(123), c2(45);
|
|
Dummy<66>& ref1 = clu.create<Dummy<66>> ();
|
|
Dummy<77>& ref2 = clu.create<Dummy<77>> (c1);
|
|
Dummy<77>& ref3 = clu.create<Dummy<77>> (c2);
|
|
|
|
// TRACE (test, "%s", showSizeof(rX).c_str());///////////////////////OOO
|
|
|
|
//returned references actually point at the objects we created
|
|
CHECK (1 ==ref1.getID());
|
|
CHECK (123==ref2.getID());
|
|
CHECK (45 ==ref3.getID());
|
|
|
|
CHECK (1 == clu.numExtents());
|
|
|
|
// now use objects and just let them go;
|
|
}
|
|
|
|
|
|
void
|
|
checkLifecycle()
|
|
{
|
|
CHECK (0==checksum);
|
|
{
|
|
vector<AllocationCluster> clusters (NUM_CLUSTERS);
|
|
for (auto& clu : clusters)
|
|
fill(clu);
|
|
CHECK (0!=checksum);
|
|
}
|
|
CHECK (0==checksum);
|
|
}
|
|
|
|
|
|
/** @test cover some tricky aspects of the low-level allocator
|
|
* @remark due to the expected leverage of AllocationCluster,
|
|
* an optimised low-level approach was taken on various aspects of storage management;
|
|
* the additional metadata overhead is a power of two, exploiting contextual knowledge
|
|
* about layout; moreover, a special usage-mode allows to skip invocation of destructors.
|
|
* To document these machinations, change to internal data is explicitly verified here.
|
|
* @todo WIP 5/24 🔁 define ⟶ 🔁 implement
|
|
*/
|
|
void
|
|
verifyInternals()
|
|
{
|
|
CHECK (0==checksum);
|
|
{
|
|
AllocationCluster clu;
|
|
// no allocation happened yet
|
|
CHECK (0 == clu.numExtents());
|
|
CHECK (0 == clu.numBytes());
|
|
CHECK (nullptr == clu.storage_.pos);
|
|
CHECK ( 0 == clu.storage_.rest);
|
|
|
|
// build a simple object
|
|
auto& i1 = clu.create<uint16_t> (1 + uint16_t(rand()));
|
|
CHECK (i1 > 0);
|
|
CHECK (1 == clu.numExtents());
|
|
CHECK (2 == clu.numBytes());
|
|
CHECK (clu.storage_.pos != nullptr);
|
|
CHECK (clu.storage_.pos == (& i1) + 1 ); // points directly behind the allocated integer
|
|
CHECK (clu.storage_.rest == BLOCKSIZ - (2*sizeof(void*) + sizeof(uint16_t)));
|
|
|
|
// Demonstration: how to reconstruct the start of the current extent
|
|
byte* blk = static_cast<std::byte*>(clu.storage_.pos);
|
|
blk += clu.storage_.rest - BLOCKSIZ;
|
|
CHECK(size_t(blk) < size_t(clu.storage_.pos));
|
|
|
|
// some abbreviations for navigating the raw storage blocks...
|
|
auto currBlock = [&]{
|
|
byte* blk = static_cast<std::byte*>(clu.storage_.pos);
|
|
blk += clu.storage_.rest - BLOCKSIZ;
|
|
return blk;
|
|
};
|
|
auto posOffset = [&]{
|
|
return size_t(clu.storage_.pos) - size_t(currBlock());
|
|
};
|
|
auto slot = [&](size_t i)
|
|
{
|
|
size_t* slot = reinterpret_cast<size_t*> (currBlock());
|
|
return slot[i];
|
|
};
|
|
|
|
CHECK (blk == currBlock());
|
|
// current storage pos: 2 »slots« of admin overhead plus the first allocated element
|
|
CHECK (posOffset() == 2 * sizeof(void*) + sizeof(uint16_t));
|
|
CHECK (slot(0) == 0); // only one extent, thus next-* is NULL
|
|
|
|
// allocate another one
|
|
uint16_t i1pre = i1;
|
|
auto& i2 = clu.create<uint16_t> (55555);
|
|
CHECK (posOffset() == 2 * sizeof(void*) + 2 * sizeof(uint16_t));
|
|
CHECK (clu.storage_.rest == BLOCKSIZ - posOffset());
|
|
// existing storage unaffected
|
|
CHECK (i1 == i1pre);
|
|
CHECK (i2 == 55555);
|
|
CHECK (slot(0) == 0);
|
|
|
|
// alignment is handled properly
|
|
char& c1 = clu.create<char> ('X');
|
|
CHECK (posOffset() == 2 * sizeof(void*) + 2 * sizeof(uint16_t) + sizeof(char));
|
|
auto& i3 = clu.create<int32_t> (42);
|
|
CHECK (posOffset() == 2 * sizeof(void*) + 2 * sizeof(uint16_t) + sizeof(char) + 3*sizeof(byte) + sizeof(int32_t));
|
|
CHECK (i1 == i1pre); // ^^^^Alignment
|
|
CHECK (i2 == 55555);
|
|
CHECK (c1 == 'X');
|
|
CHECK (i3 == 42);
|
|
CHECK (slot(0) == 0);
|
|
|
|
// deliberately fill up the first extent completely
|
|
SHOW_EXPR(size_t(currBlock()))
|
|
SHOW_EXPR(size_t(clu.storage_.pos))
|
|
SHOW_EXPR(clu.storage_.rest)
|
|
SHOW_EXPR(posOffset())
|
|
for (uint i=clu.storage_.rest; i>0; --i)
|
|
clu.create<uchar> (i);
|
|
SHOW_EXPR(size_t(currBlock()))
|
|
SHOW_EXPR(size_t(clu.storage_.pos))
|
|
SHOW_EXPR(clu.storage_.rest)
|
|
SHOW_EXPR(posOffset())
|
|
SHOW_EXPR(slot(0))
|
|
CHECK (clu.storage_.rest == 0);
|
|
CHECK (posOffset() == BLOCKSIZ);
|
|
SHOW_EXPR(clu.numBytes())
|
|
CHECK (clu.numBytes() == BLOCKSIZ - 2*sizeof(void*));
|
|
CHECK (clu.numExtents() == 1);
|
|
CHECK (slot(0) == 0);
|
|
CHECK (blk == currBlock()); // but still in the initial extent
|
|
|
|
// trigger overflow and allocation of second extent
|
|
char& c2 = clu.create<char> ('U');
|
|
SHOW_EXPR(size_t(currBlock()))
|
|
SHOW_EXPR(size_t(clu.storage_.pos))
|
|
SHOW_EXPR(clu.storage_.rest)
|
|
SHOW_EXPR(posOffset())
|
|
SHOW_EXPR(slot(0))
|
|
SHOW_EXPR(clu.numBytes())
|
|
SHOW_EXPR(clu.numExtents())
|
|
CHECK (blk != currBlock()); // allocation moved to a new extent
|
|
CHECK (getAddr(c2) == currBlock() + 2*sizeof(void*)); // c2 resides immediately after the two administrative »slots«
|
|
CHECK (clu.storage_.rest == BLOCKSIZ - posOffset());
|
|
CHECK (clu.numBytes() == BLOCKSIZ - 2*sizeof(void*) + 1); // accounted allocation for the full first block + one byte
|
|
CHECK (clu.numExtents() == 2); // we have two extents now
|
|
CHECK (slot(0) == size_t(blk)); // first »slot« of the current block points back to previous block
|
|
CHECK (i1 == i1pre);
|
|
CHECK (i2 == 55555);
|
|
CHECK (c1 == 'X');
|
|
CHECK (c2 == 'U');
|
|
CHECK (i3 == 42);
|
|
}
|
|
CHECK (0==checksum);
|
|
}
|
|
|
|
|
|
/** @test TODO demonstrate use as Standard-Allocator
|
|
* @todo WIP 5/24 🔁 define ⟶ implement
|
|
*/
|
|
void
|
|
use_as_Allocator()
|
|
{
|
|
UNIMPLEMENTED ("Clusterfuck");
|
|
}
|
|
};
|
|
|
|
LAUNCHER (AllocationCluster_test, "unit common");
|
|
|
|
|
|
}} // namespace lib::test
|