/* ListAlloc.test.cpp
 *
 * author: Roland Conybeare, Aug 2025
 */

#include "xo/alloc/ListAlloc.hpp"
#include <catch2/catch.hpp>

namespace xo {
    using xo::gc::ListAlloc;

    namespace ut {
        TEST_CASE("ListAlloc", "[alloc][gc]")
        {
            /** teeny weeny allocator.
             *  but underlying ArenaAlloc works in multiples of VM page size
             *  (most likely 4k)
             **/
            up<ListAlloc> alloc = ListAlloc::make("test", 16, 32, false);

            REQUIRE(alloc->name() == "test");
            REQUIRE(alloc->size() == 16);
            REQUIRE(alloc->before_checkpoint() == 0);
            REQUIRE(alloc->after_checkpoint() == 0);

            /* will expand */
            std::byte * mem1 = alloc->alloc(20);

            REQUIRE(mem1);
            REQUIRE(alloc->size() == alloc->page_size());
            /* round up to multiple of 8 */
            REQUIRE(alloc->before_checkpoint() == 24);
            REQUIRE(alloc->after_checkpoint() == 0);

            alloc->checkpoint();

            std::byte * mem2 = alloc->alloc(30);

            REQUIRE(mem2);
            REQUIRE(alloc->size() == alloc->page_size());
            REQUIRE(alloc->before_checkpoint() == 24);
            /* round up to multiple of 8 */
            REQUIRE(alloc->after_checkpoint() == 32);

            std::byte * mem3 = alloc->alloc(40);

            REQUIRE(mem3);
            REQUIRE(alloc->size() == alloc->page_size());
            REQUIRE(alloc->before_checkpoint() == 24);
            /* already multiple of 8 */
            REQUIRE(alloc->after_checkpoint() == 32 + 40);

            REQUIRE(alloc->is_before_checkpoint(mem1) == true);
            REQUIRE(alloc->is_before_checkpoint(mem2) == false);
            REQUIRE(alloc->is_before_checkpoint(mem3) == false);
        }

    } /*namespace ut*/
} /*namespace xo*/

/* ListAlloc.test.cpp */