| 1 | /* |
|---|
| 2 | * Copyright 2021 Cerebras Systems |
|---|
| 3 | * |
|---|
| 4 | * Use of this software is governed by the MIT license |
|---|
| 5 | * |
|---|
| 6 | * Written by Sven Verdoolaege, |
|---|
| 7 | * Cerebras Systems, 1237 E Arques Ave, Sunnyvale, CA, USA |
|---|
| 8 | */ |
|---|
| 9 | |
|---|
| 10 | #define xCAT(A,B) A ## B |
|---|
| 11 | #define CAT(A,B) xCAT(A,B) |
|---|
| 12 | #undef TYPE |
|---|
| 13 | #define TYPE CAT(isl_,BASE) |
|---|
| 14 | #define xFN(TYPE,NAME) TYPE ## _ ## NAME |
|---|
| 15 | #define FN(TYPE,NAME) xFN(TYPE,NAME) |
|---|
| 16 | |
|---|
| 17 | #undef TESTS |
|---|
| 18 | #define TESTS CAT(parse_,CAT(BASE,_fail_tests)) |
|---|
| 19 | |
|---|
| 20 | /* Test parsing of objects of type TYPE |
|---|
| 21 | * that are expected to fail. |
|---|
| 22 | */ |
|---|
| 23 | static isl_stat FN(check,TESTS)(isl_ctx *ctx) |
|---|
| 24 | { |
|---|
| 25 | int i, n; |
|---|
| 26 | int on_error; |
|---|
| 27 | |
|---|
| 28 | on_error = isl_options_get_on_error(ctx); |
|---|
| 29 | isl_options_set_on_error(ctx, ISL_ON_ERROR_CONTINUE); |
|---|
| 30 | n = ARRAY_SIZE(TESTS); |
|---|
| 31 | for (i = 0; i < n; ++i) { |
|---|
| 32 | TYPE *obj; |
|---|
| 33 | |
|---|
| 34 | obj = FN(TYPE,read_from_str)(ctx, TESTS[i]); |
|---|
| 35 | FN(TYPE,free)(multi: obj); |
|---|
| 36 | if (obj) |
|---|
| 37 | break; |
|---|
| 38 | } |
|---|
| 39 | isl_options_set_on_error(ctx, val: on_error); |
|---|
| 40 | if (i < n) |
|---|
| 41 | isl_die(ctx, isl_error_unknown, |
|---|
| 42 | "parsing not expected to succeed" , |
|---|
| 43 | return isl_stat_error); |
|---|
| 44 | |
|---|
| 45 | return isl_stat_ok; |
|---|
| 46 | } |
|---|
| 47 | |
|---|
