value_tests.h

Go to the documentation of this file.

/* -*- C -*-
 * Serene programming language
 * Copyright (C) 2019-2026 Sameer Rahmani <[email protected]>
 *
 * 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/core.h>
#include <serene/rt/core/numbers.h>
 
#include "base.h"
 
#define VALUE_TESTS(X) X("values::basics", test_value_basics),
 
#if defined(V_DEBUG)
#  define V_TEST_LOG(...) DBG("VALUE_TEST", __VA_ARGS__)
#else
#  define V_TEST_LOG(...)
#endif
 
static void test_value_basics() {
  MAKE_ENGINE(mm, engine);
  MAKE_CONTEXT(engine, ctx);
 
  srn_value_t *x1 = srn_make_i64(ctx, &absurd_metadata, 5);
  srn_value_t *x2 = srn_make_i64(ctx, &absurd_metadata, -15);
 
  TEST_CHECK(x1->type == VI64);
  TEST_CHECK(x1->as.i64 == 5);
  TEST_CHECK(x2->as.i64 == -15);
 
  RELEASE_CONTEXT(ctx);
  SHUTDOWN_ENGINE(mm, engine);
}