/* Copyright (C) 2011 Fredrik Johansson Copyright (C) 2014 Abhinav Baid This file is part of FLINT. FLINT is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License (LGPL) as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. See . */ #include #include #include #include "flint.h" #include "d_mat.h" #include "ulong_extras.h" int main(void) { int i; FLINT_TEST_INIT(state); flint_printf("is_empty...."); fflush(stdout); /* check if a non-zero value is returned for non-empty matrices */ for (i = 0; i < 1000 * flint_test_multiplier(); i++) { d_mat_t A; slong rows = n_randint(state, 10); slong cols = n_randint(state, 10); d_mat_init(A, rows, cols); if (d_mat_is_empty(A) != (rows == 0 || cols == 0)) { flint_printf("FAIL!\n"); abort(); } d_mat_clear(A); } FLINT_TEST_CLEANUP(state); flint_printf("PASS\n"); return 0; }