332 lines
6.3 KiB
C
332 lines
6.3 KiB
C
/*
|
|
* Copyright (c) 2017-2025, Patrick Pelissier
|
|
* All rights reserved.
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions are met:
|
|
* + Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* + Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND ANY
|
|
* EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
|
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
* DISCLAIMED. IN NO EVENT SHALL THE REGENTS AND CONTRIBUTORS BE LIABLE FOR ANY
|
|
* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
|
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
|
* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
/* The goal of this test file is to check that invalid constructs
|
|
are properly rejected, and that it generates a helpfull error
|
|
message in this case. */
|
|
#include "m-core.h"
|
|
|
|
#if !defined(TEST)
|
|
# warning Please define TEST variable to select the test to run
|
|
|
|
#elif TEST == 1
|
|
|
|
/* Test of the call to no default function */
|
|
#define OP (INIT(init))
|
|
|
|
void f(int x, int y) {
|
|
M_CALL_SWAP(OP, x, y);
|
|
}
|
|
|
|
#elif TEST == 2
|
|
|
|
#define OP (SWAP(0))
|
|
|
|
void f(int x, int y) {
|
|
M_CALL_SWAP(OP, x, y);
|
|
}
|
|
|
|
#elif TEST == 3
|
|
|
|
#include "m-array.h"
|
|
ARRAY_DEF(array, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 4
|
|
|
|
#include "m-list.h"
|
|
LIST_DEF(list, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 5
|
|
|
|
#include "m-list.h"
|
|
LIST_DUAL_PUSH_DEF(list, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 6
|
|
|
|
#include "m-deque.h"
|
|
DEQUE_DEF(deque, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 7
|
|
|
|
#include "m-i-list.h"
|
|
typedef struct tmp_str_s {
|
|
ILIST_INTERFACE(tmpstr, struct tmp_str_s);
|
|
int n;
|
|
} tmp_str_t;
|
|
ILIST_DEF(tmpstr, tmp_str_t, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 8
|
|
|
|
#include "m-string.h"
|
|
void f(void)
|
|
{
|
|
M_LET(x, M_M_STRING_OPLIST) {
|
|
}
|
|
}
|
|
|
|
#elif TEST == 9
|
|
|
|
#include "m-string.h"
|
|
typedef string_t my_type;
|
|
#define M_OPL_my_type() MSTRING_OPLIST
|
|
void f(void)
|
|
{
|
|
M_LET(x, my_type) {
|
|
}
|
|
}
|
|
|
|
#elif TEST == 10
|
|
|
|
void f(void)
|
|
{
|
|
M_LET(x, () ) {
|
|
}
|
|
}
|
|
|
|
#elif TEST == 11
|
|
|
|
#include "m-algo.h"
|
|
#include "m-array.h"
|
|
|
|
ARRAY_DEF(array, int)
|
|
ALGO_DEF(array, M_M_ARRAY_OPLIST(array))
|
|
|
|
#elif TEST == 12
|
|
|
|
#include "m-algo.h"
|
|
#include "m-array.h"
|
|
|
|
ARRAY_DEF(array, int)
|
|
ALGO_DEF(array, (OPLIST(array)))
|
|
|
|
#elif TEST == 13
|
|
|
|
#include "m-bptree.h"
|
|
|
|
BPTREE_DEF2(tree, 4, int, M_BASIC_OPLIST, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 14
|
|
|
|
#include "m-bptree.h"
|
|
|
|
BPTREE_DEF2(tree, 4, int, DEFAULT_OPLIST, int, M_BASIC_OPLIST)
|
|
|
|
#elif TEST == 15
|
|
|
|
#include "m-bptree.h"
|
|
|
|
BPTREE_DEF(tree, 4, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 16
|
|
|
|
#include "m-bptree.h"
|
|
|
|
BPTREE_MULTI_DEF2(tree, 4, int, DEFAULT_OPLIST, int, M_BASIC_OPLIST)
|
|
|
|
#elif TEST == 17
|
|
|
|
#include "m-bptree.h"
|
|
|
|
BPTREE_MULTI_DEF(tree, 4, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 18
|
|
|
|
#include "m-buffer.h"
|
|
|
|
BUFFER_DEF(buffer, int, 0, BUFFER_QUEUE, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 19
|
|
|
|
#include "m-buffer.h"
|
|
|
|
QUEUE_MPMC_DEF(buffer, int, BUFFER_QUEUE, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 20
|
|
|
|
#include "m-buffer.h"
|
|
|
|
QUEUE_SPSC_DEF(buffer, int, BUFFER_QUEUE, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 21
|
|
|
|
#include "m-array.h"
|
|
#include "m-concurrent.h"
|
|
|
|
ARRAY_DEF(array, int)
|
|
CONCURRENT_DEF(lock_array, array_t, M_M_ARRAY_OPLIST(array))
|
|
|
|
#elif TEST == 22
|
|
|
|
#include "m-array.h"
|
|
#include "m-concurrent.h"
|
|
|
|
ARRAY_DEF(array, int)
|
|
CONCURRENT_RP_DEF(lock_array, array_t, MARRAY_OPLIST(array))
|
|
|
|
#elif TEST == 23
|
|
|
|
#include "m-dict.h"
|
|
|
|
DICT_DEF2(array, int, M_BASIC_OPLIST, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 24
|
|
|
|
#include "m-dict.h"
|
|
|
|
DICT_DEF2(array, int, DEFAULT_OPLIST, int, M_BASIC_OPLIST)
|
|
|
|
#elif TEST == 25
|
|
|
|
#include "m-dict.h"
|
|
|
|
DICT_STOREHASH_DEF2(array, int, DEFAULT_OPLIST, int, M_BASIC_OPLIST)
|
|
|
|
#elif TEST == 26
|
|
|
|
#include "m-dict.h"
|
|
|
|
DICT_STOREHASH_DEF2(array, int, M_BASIC_OPLIST, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 27
|
|
|
|
#include "m-dict.h"
|
|
|
|
DICT_OA_DEF2(array, int, DEFAULT_OPLIST, int, M_BASIC_OPLIST)
|
|
|
|
#elif TEST == 28
|
|
|
|
#include "m-dict.h"
|
|
|
|
DICT_OA_DEF2(array, int, M_BASIC_OPLIST, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 29
|
|
|
|
#include "m-dict.h"
|
|
|
|
DICT_SET_DEF(array, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 30
|
|
|
|
#include "m-dict.h"
|
|
|
|
DICT_OASET_DEF(array, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 31
|
|
|
|
#include "m-i-shared.h"
|
|
|
|
typedef struct tmp_s {
|
|
ISHARED_PTR_INTERFACE(tmpi, struct_tmp_s);
|
|
const char *s;
|
|
} tmp_t;
|
|
|
|
ISHARED_PTR_DEF(tmpi, tmp_t, NOT_AN_OPLIST)
|
|
|
|
#elif TEST == 32
|
|
|
|
#include "m-prioqueue.h"
|
|
|
|
PRIOQUEUE_DEF(prio, int, DEFAULT_OPLIST)
|
|
|
|
#elif TEST == 33
|
|
|
|
#include "m-rbtree.h"
|
|
|
|
RBTREE_DEF(tree, int, M_BASIC_OPLIST() )
|
|
|
|
#elif TEST == 34
|
|
|
|
#include "m-shared.h"
|
|
|
|
SHARED_PTR_DEF(shared, int, M_BASIC_OPLIST2 )
|
|
|
|
#elif TEST == 35
|
|
|
|
#include "m-shared.h"
|
|
|
|
SHARED_RESOURCE_DEF(shared, int, M_BASIC_OPLIST3 )
|
|
|
|
#elif TEST == 36
|
|
|
|
#include "m-snapshot.h"
|
|
|
|
SNAPSHOT_SPSC_DEF(snap, int, M_BASIC_OPLIST2 )
|
|
|
|
#elif TEST == 37
|
|
|
|
#include "m-snapshot.h"
|
|
|
|
SNAPSHOT_SPMC_DEF(snap, int, M_BASIC_OPLIST2 )
|
|
|
|
#elif TEST == 38
|
|
|
|
#include "m-snapshot.h"
|
|
|
|
SNAPSHOT_MPMC_DEF(snap, int, M_BASIC_OPLIST8 )
|
|
|
|
#elif TEST == 39
|
|
|
|
#include "m-tuple.h"
|
|
|
|
TUPLE_DEF2(agregate, (x, int, M_BASIC_OPLIST), (y, float, DEFAULT_OPLIST) )
|
|
|
|
#elif TEST == 40
|
|
|
|
#include "m-tuple.h"
|
|
|
|
TUPLE_DEF2(agregate, (x, int, DEFAULT_OPLIST), (y, float) )
|
|
|
|
#elif TEST == 41
|
|
|
|
#include "m-variant.h"
|
|
|
|
VARIANT_DEF2(agregate, (x, int, M_BASIC_OPLIST), (y, float, DEFAULT_OPLIST) )
|
|
|
|
#elif TEST == 42
|
|
|
|
#include "m-variant.h"
|
|
|
|
VARIANT_DEF2(agregate, (x, int, DEFAULT_OPLIST), (y, float) )
|
|
|
|
#elif TEST == 43
|
|
|
|
#include "m-funcobj.h"
|
|
|
|
FUNC_OBJ_ITF_DEF(itf, int, int)
|
|
|
|
FUNC_OBJ_INS_DEF(ins, itf, (x), { return x * self->a + self->b; }, (a, int, DEFAULT_OPLIST), (b, int, M_BASIC_OPLIST))
|
|
|
|
#elif TEST == 44
|
|
|
|
#include "m-funcobj.h"
|
|
|
|
FUNC_OBJ_ITF_DEF(itf, int, int)
|
|
|
|
FUNC_OBJ_INS_DEF(ins, itf, (x), { return x * self->a + self->b; }, (a, int), (b, int, M_BASIC_OPLIST() ))
|
|
|
|
|
|
#else
|
|
# warning TEST variable is out of range.
|
|
#endif
|
|
|