base.h

Go to the documentation of this file.

/* -*- C -*-
 * Serene programming language
 * Copyright (C) 2019-2026 Sameer Rahmani <lxsameer@lxsameer.com>
 *
 * 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 3 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, see <https://www.gnu.org/licenses/>.
 */
 
#pragma once
 
#include <serene/rt/context.h>
#include <serene/rt/engine.h>
#include <serene/rt/mm/interface.h>
#include <serene/utils.h>
 
#include "acutest.h"
 
#define ENTRY(name, test) {name, test}
 
#define ASSERT_NOT_NULL(x) TEST_ASSERT(x != nullptr)
#define ASSERT_NULL(x)     TEST_ASSERT(x == nullptr)
#define TEST_NO_ERROR(x)   TEST_CHECK((x).maybe_error == nullptr)
 
#define MAKE_ENGINE(mm, engine)                        \
  srn_mm_t *mm = srn_mm_init(nullptr);                 \
  TEST_ASSERT(mm != nullptr);                          \
  srn_engine_t *engine = srn_engine_make(mm, nullptr); \
  TEST_ASSERT(engine != nullptr)
 
#define SHUTDOWN_ENGINE(mm, engine) \
  srn_engine_shutdown(engine);      \
  srn_mm_shutdown(mm)
 
#define MAKE_CONTEXT(engine, x)                \
  srn_context_t *x = srn_context_make(engine); \
  TEST_ASSERT(x != nullptr)
 
#define RELEASE_CONTEXT(x) srn_context_release(x);
 
#define TEST_IN_FIBER_WITH(name, arg_expr, body)                                 \
  static srn_fiber_result_t test_##name##_fiber(srn_context_t *ctx, void *arg) { \
    {                                                                            \
      body                                                                       \
    }                                                                            \
    return nullptr;                                                              \
  }                                                                              \
  static void test_##name() {                                                    \
    MAKE_ENGINE(mm, engine);                                                     \
    MAKE_CONTEXT(engine, ctx);                                                   \
    srn_scheduler_t *sched = engine->scheduler;                                  \
    srn_fiber_spawn(ctx, test_##name##_fiber, (arg_expr));                       \
    srn_sched_run(sched, 1);                                                     \
    RELEASE_CONTEXT(ctx);                                                        \
    SHUTDOWN_ENGINE(mm, engine);                                                 \
  }
 
#define TEST_IN_FIBER(name, body)                                                \
  static srn_fiber_result_t test_##name##_fiber(srn_context_t *ctx, void *arg) { \
    UNUSED(arg);                                                                 \
    {                                                                            \
      body                                                                       \
    }                                                                            \
    return nullptr;                                                              \
  }                                                                              \
  static void test_##name() {                                                    \
    MAKE_ENGINE(mm, engine);                                                     \
    MAKE_CONTEXT(engine, ctx);                                                   \
    srn_scheduler_t *sched = engine->scheduler;                                  \
    srn_fiber_spawn(ctx, test_##name##_fiber, nullptr);                          \
    srn_sched_run(sched, 1);                                                     \
    RELEASE_CONTEXT(ctx);                                                        \
    SHUTDOWN_ENGINE(mm, engine);                                                 \
  }