flint-sys 0.9.0

/*
    Copyright (C) 2018 Daniel Schultz

    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 3 of the License, or
    (at your option) any later version.  See <https://www.gnu.org/licenses/>.
*/

#include "test_helpers.h"
#include "mpoly.h"
#include "fmpq_mpoly.h"

TEST_FUNCTION_START(fmpq_mpoly_cmp, state)
{
    int result;
    slong i, j1, j2;

    /* check polynomial terms are in order */
    for (i = 0; i < 10 * flint_test_multiplier(); i++)
    {
        fmpq_mpoly_ctx_t ctx;
        fmpq_mpoly_t f, g, mf, mg;
        slong len;
        flint_bitcnt_t coeff_bits, exp_bits;

        fmpq_mpoly_ctx_init_rand(ctx, state, 20);

        fmpq_mpoly_init(f, ctx);
        fmpq_mpoly_init(g, ctx);
        fmpq_mpoly_init(mf, ctx);
        fmpq_mpoly_init(mg, ctx);

        len = n_randint(state, 100) + 1;
        exp_bits = n_randint(state, 200) + 2;
        exp_bits = n_randint(state, exp_bits) + 2;
        coeff_bits = n_randint(state, 100) + 1;

        fmpq_mpoly_randtest_bits(f, state, len, coeff_bits, exp_bits, ctx);
        fmpq_mpoly_repack_bits(g, f,
                           f->zpoly->bits + n_randint(state, FLINT_BITS), ctx);
        fmpq_mpoly_assert_canonical(f, ctx);
        fmpq_mpoly_assert_canonical(g, ctx);

        for (j1 = 0; j1 < f->zpoly->length; j1++)
        for (j2 = 0; j2 < g->zpoly->length; j2++)
        {
            fmpq_mpoly_get_term_monomial(mf, f, j1, ctx);
            fmpq_mpoly_get_term_monomial(mg, g, j2, ctx);
            result = fmpq_mpoly_cmp(mf, mg, ctx);
            result =   (result == 0 && j1 == j2)
                    || (result == +1 && j1 < j2)
                    || (result == -1 && j1 > j2);
            if (!result)
            {
                flint_printf("FAIL\n"
                             "check polynomial terms are in order\n"
                             "i = %wd, j1 = %wd, j2 = %wd\n", i, j1, j2);
                fflush(stdout);
                flint_abort();
            }
        }

        fmpq_mpoly_clear(f, ctx);
        fmpq_mpoly_clear(g, ctx);
        fmpq_mpoly_clear(mf, ctx);
        fmpq_mpoly_clear(mg, ctx);
        fmpq_mpoly_ctx_clear(ctx);
    }

    for (i = 0; i < 100 * flint_test_multiplier(); i++)
    {
        fmpq_mpoly_ctx_t ctx;
        fmpq_mpoly_t a, b, c, aa, bb, cc;
        int a_a, a_b, a_c, a_aa, a_bb, a_cc;
        int b_a, b_b, b_c, b_aa, b_bb, b_cc;
        int c_a, c_b, c_c, c_aa, c_bb, c_cc;
        flint_bitcnt_t newbits;

        fmpq_mpoly_ctx_init_rand(ctx, state, 20);

        fmpq_mpoly_init(a, ctx);
        fmpq_mpoly_init(b, ctx);
        fmpq_mpoly_init(c, ctx);
        fmpq_mpoly_init(aa, ctx);
        fmpq_mpoly_init(bb, ctx);
        fmpq_mpoly_init(cc, ctx);

        fmpq_mpoly_randtest_bits(a, state, n_randint(state, 100) + 1,
                                           n_randint(state, 100) + 1,
                                           n_randint(state, 200) + 2, ctx);

        fmpq_mpoly_randtest_bits(b, state, n_randint(state, 100) + 1,
                                           n_randint(state, 100) + 1,
                                           n_randint(state, 200) + 2, ctx);

        fmpq_mpoly_randtest_bits(c, state, n_randint(state, 100) + 1,
                                           n_randint(state, 100) + 1,
                                           n_randint(state, 200) + 2, ctx);

        newbits = a->zpoly->bits + n_randint(state, 2*FLINT_BITS);
        newbits = mpoly_fix_bits(newbits, ctx->zctx->minfo);
        fmpq_mpoly_repack_bits(aa, a, newbits, ctx);

        newbits = b->zpoly->bits + n_randint(state, 2*FLINT_BITS);
        newbits = mpoly_fix_bits(newbits, ctx->zctx->minfo);
        fmpq_mpoly_repack_bits(bb, b, newbits, ctx);

        newbits = c->zpoly->bits + n_randint(state, 2*FLINT_BITS);
        newbits = mpoly_fix_bits(newbits, ctx->zctx->minfo);
        fmpq_mpoly_repack_bits(cc, c, newbits, ctx);

        a_a = fmpq_mpoly_cmp(a, a, ctx);
        a_b = fmpq_mpoly_cmp(a, b, ctx);
        a_c = fmpq_mpoly_cmp(a, c, ctx);
        a_aa = fmpq_mpoly_cmp(a, aa, ctx);
        a_bb = fmpq_mpoly_cmp(a, bb, ctx);
        a_cc = fmpq_mpoly_cmp(a, cc, ctx);

        b_a = fmpq_mpoly_cmp(b, a, ctx);
        b_b = fmpq_mpoly_cmp(b, b, ctx);
        b_c = fmpq_mpoly_cmp(b, c, ctx);
        b_aa = fmpq_mpoly_cmp(b, aa, ctx);
        b_bb = fmpq_mpoly_cmp(b, bb, ctx);
        b_cc = fmpq_mpoly_cmp(b, cc, ctx);

        c_a = fmpq_mpoly_cmp(c, a, ctx);
        c_b = fmpq_mpoly_cmp(c, b, ctx);
        c_c = fmpq_mpoly_cmp(c, c, ctx);
        c_aa = fmpq_mpoly_cmp(c, aa, ctx);
        c_bb = fmpq_mpoly_cmp(c, bb, ctx);
        c_cc = fmpq_mpoly_cmp(c, cc, ctx);

        if (a_a != 0 || a_aa != 0 ||
            b_b != 0 || b_bb != 0 ||
            c_c != 0 || c_cc != 0)
        {
            flint_printf("FAIL\n"
                         "check polynomial compares equal to itself\n"
                         "i = %wd\n", i);
            fflush(stdout);
            flint_abort();
        }

        if (a_b != a_bb || a_c != a_cc ||
            b_a != b_aa || b_c != b_cc ||
            c_a != c_aa || c_b != c_bb)
        {
            flint_printf("FAIL\n"
                         "check polynomial comparison with differing bits\n"
                         "i = %wd\n", i);
            fflush(stdout);
            flint_abort();
        }

        if ((a_b*b_c == 0 && a_c != a_b + b_c) || (a_b*b_c > 0 && a_c != a_b))
        {
            flint_printf("FAIL\n"
                         "check transitivity\n"
                         "i = %wd\n", i);
            fflush(stdout);
            flint_abort();
        }

        fmpq_mpoly_clear(a, ctx);
        fmpq_mpoly_clear(b, ctx);
        fmpq_mpoly_clear(c, ctx);
        fmpq_mpoly_clear(aa, ctx);
        fmpq_mpoly_clear(bb, ctx);
        fmpq_mpoly_clear(cc, ctx);

        fmpq_mpoly_ctx_clear(ctx);
    }

    TEST_FUNCTION_END(state);
}