forked from OSchip/llvm-project
100 lines
2.3 KiB
C++
100 lines
2.3 KiB
C++
/*
|
|
* Copyright 2018 Sven Verdoolaege
|
|
*
|
|
* Use of this software is governed by the MIT license
|
|
*
|
|
* Written by Sven Verdoolaege.
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <isl/ctx.h>
|
|
#include <isl/options.h>
|
|
#include <isl/cpp-checked-conversion.h>
|
|
|
|
/* Check that converting a NULL object from the checked C++ bindings
|
|
* (where the user is expected to check for NULL return values)
|
|
* to the default C++ bindings (where exceptions are raised
|
|
* instead of returning a NULL object) raises an exception.
|
|
*/
|
|
static void check_conversion_null(isl_ctx *ctx)
|
|
{
|
|
isl::checked::set checked_set;
|
|
isl::set set;
|
|
|
|
bool caught = false;
|
|
try {
|
|
set = isl::uncheck(checked_set);
|
|
isl_die(ctx, isl_error_unknown, "no exception raised", return);
|
|
} catch (const isl::exception &e) {
|
|
caught = true;
|
|
}
|
|
if (!caught)
|
|
isl_die(ctx, isl_error_unknown, "no exception raised", return);
|
|
}
|
|
|
|
/* Dummy function on a set in the checked C++ bindings.
|
|
*/
|
|
static void f_checked(isl::checked::set set)
|
|
{
|
|
}
|
|
|
|
/* Dummy function on a set in the default C++ bindings.
|
|
*/
|
|
static void f_unchecked(isl::set set)
|
|
{
|
|
}
|
|
|
|
/* Check the conversion between C++ bindings in function calls.
|
|
* An incorrect call will result in a compiler error.
|
|
*/
|
|
static void check_conversion_call(isl_ctx *ctx)
|
|
{
|
|
isl::set set(ctx, "{ S[i] : 0 <= i < 10 }");
|
|
isl::checked::set checked_set(ctx, "{ S[i] : 0 <= i < 10 }");
|
|
|
|
f_unchecked(set);
|
|
f_checked(isl::check(set));
|
|
f_unchecked(isl::uncheck(checked_set));
|
|
f_checked(checked_set);
|
|
}
|
|
|
|
/* Check that a double conversion results in the original set,
|
|
* or at least something that is equal to the original set.
|
|
*/
|
|
static void check_conversion_equal(isl_ctx *ctx)
|
|
{
|
|
isl::set set(ctx, "{ S[i] : 0 <= i < 10 }");
|
|
isl::set set2;
|
|
isl::checked::set checked_set;
|
|
|
|
checked_set = isl::check(set);
|
|
set2 = isl::uncheck(checked_set);
|
|
|
|
if (!set.is_equal(set2))
|
|
isl_die(ctx, isl_error_unknown, "bad conversion", return);
|
|
}
|
|
|
|
/* Perform some tests on the conversion between the default C++ bindings and
|
|
* the checked C++ bindings.
|
|
*/
|
|
static void check_conversion(isl_ctx *ctx)
|
|
{
|
|
check_conversion_null(ctx);
|
|
check_conversion_call(ctx);
|
|
check_conversion_equal(ctx);
|
|
}
|
|
|
|
int main()
|
|
{
|
|
isl_ctx *ctx = isl_ctx_alloc();
|
|
|
|
isl_options_set_on_error(ctx, ISL_ON_ERROR_ABORT);
|
|
|
|
check_conversion(ctx);
|
|
|
|
isl_ctx_free(ctx);
|
|
|
|
return EXIT_SUCCESS;
|
|
}
|