projects / cgds.git / blame
| Commit | Line | Data |
|---|---|---|
| a7868768 BA |
1 | #define lu_assert_msg(expr, ...) \ |
| 2 | if (!(expr)) { \ | |
| 3 | fprintf(stdout, "Failure in file %s at line %i\n", __FILE__, __LINE__); \ | |
| 4 | fprintf(stdout, ## __VA_ARGS__); \ | |
| 5 | return; \ | |
| 6 | } | |
| 7 | ||
| 8 | #define lu_assert(expr) \ | |
| 9 | lu_assert_msg(expr, ""); | |
| 10 | ||
| 0261c3b6 | 11 | /* OP may be any comparison operator. */ |
| a7868768 BA |
12 | |
| 13 | #define _lu_assert_int(X, OP, Y) do { \ | |
| 14 | int _lu_x = (X); \ | |
| 15 | int _lu_y = (Y); \ | |
| 16 | lu_assert_msg(_lu_x OP _lu_y, "Assertion '"#X#OP#Y"' failed: "#X"==%i, "#Y"==%i\n", _lu_x, _lu_y); \ | |
| 17 | } while (0) | |
| 18 | #define lu_assert_int_eq(X, Y) _lu_assert_int(X, ==, Y) | |
| 19 | #define lu_assert_int_ne(X, Y) _lu_assert_int(X, !=, Y) | |
| 20 | #define lu_assert_int_lt(X, Y) _lu_assert_int(X, <, Y) | |
| 21 | #define lu_assert_int_le(X, Y) _lu_assert_int(X, <=, Y) | |
| 22 | #define lu_assert_int_gt(X, Y) _lu_assert_int(X, >, Y) | |
| 23 | #define lu_assert_int_ge(X, Y) _lu_assert_int(X, >=, Y) | |
| 24 | ||
| 25 | #define _lu_assert_dbl(X, OP, Y) do { \ | |
| 26 | double _lu_x = (X); \ | |
| 27 | double _lu_y = (Y); \ | |
| 28 | lu_assert_msg(_lu_x OP _lu_y, "Assertion '"#X#OP#Y"' failed: "#X"==%g, "#Y"==%g", _lu_x, _lu_y); \ | |
| 29 | } while (0) | |
| 30 | #define lu_assert_dbl_eq(X, Y) _lu_assert_dbl(X, ==, Y) | |
| 31 | #define lu_assert_dbl_ne(X, Y) _lu_assert_dbl(X, !=, Y) | |
| 32 | #define lu_assert_dbl_lt(X, Y) _lu_assert_dbl(X, <, Y) | |
| 33 | #define lu_assert_dbl_le(X, Y) _lu_assert_dbl(X, <=, Y) | |
| 34 | #define lu_assert_dbl_gt(X, Y) _lu_assert_dbl(X, >, Y) | |
| 35 | #define lu_assert_dbl_ge(X, Y) _lu_assert_dbl(X, >=, Y) |