Home | History | Annotate | Line # | Download | only in dist 
      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)(obj);
     36 		if (obj)
     37 			break;
     38 	}
     39 	isl_options_set_on_error(ctx, 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