main.c

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/>.
 */
 
// Uncomment only if you want to run a debugger on the tests binary
#define TEST_NO_FORK
 
#if !defined(_WIN32)
#  ifndef _POSIX_C_SOURCE
#    define _POSIX_C_SOURCE 200809L
#  endif
#endif
 
#include "base.h"
#include "fiber_tests.h"
#include "hashmap_tests.h"
#include "mm_tests.h"
#include "pqmh_tests.h"
#include "reactor_io_tests.h"
#include "reactor_tests.h"
#include "seq_tests.h"
#include "spsc_ring_tests.h"
 
// The value model and its dependents are only built with the Serene layer, so
// their tests are too.
#ifdef SRN_WITH_SERENE
#  include "context_tests.h"
#  include "ns_tests.h"
#  include "symbol_tests.h"
#  include "value_tests.h"
#endif
 
#if defined(SERENE_TESTS)
hmap_hash_t hmap_hash(const srn_context_t *ctx, const void *k, size_t len) {
  (void)ctx;
  if (k == nullptr || len == 0) {
    return 1;
  }
 
  const uint8_t *p = (const uint8_t *)k;
  // Very high collision rate. Only 256 possible hashes
  return (uint32_t)p[0];
}
#endif
 
TEST_LIST = {
  MM_TESTS(ENTRY),
  FIBER_TESTS(ENTRY),
  SEQ_TESTS(ENTRY),
  HMAP_TESTS(ENTRY),
  SPSC_RING_TESTS(ENTRY),
  PQMH_TESTS(ENTRY),
  REACTOR_TESTS(ENTRY),
#ifdef __linux__
  REACTOR_IO_TESTS(ENTRY),
#endif
 
#ifdef SRN_WITH_SERENE
  CTX_TESTS(ENTRY),
  NS_TESTS(ENTRY),
  SYMBOL_TESTS(ENTRY),
  VALUE_TESTS(ENTRY)
#endif
    {NULL, NULL},
};