Blame tests/mpf/t-set_si.c

Packit 5c3484
/* Test mpf_set_si and mpf_init_set_si.
Packit 5c3484
Packit 5c3484
Copyright 2000, 2001, 2003 Free Software Foundation, Inc.
Packit 5c3484
Packit 5c3484
This file is part of the GNU MP Library test suite.
Packit 5c3484
Packit 5c3484
The GNU MP Library test suite is free software; you can redistribute it
Packit 5c3484
and/or modify it under the terms of the GNU General Public License as
Packit 5c3484
published by the Free Software Foundation; either version 3 of the License,
Packit 5c3484
or (at your option) any later version.
Packit 5c3484
Packit 5c3484
The GNU MP Library test suite is distributed in the hope that it will be
Packit 5c3484
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit 5c3484
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
Packit 5c3484
Public License for more details.
Packit 5c3484
Packit 5c3484
You should have received a copy of the GNU General Public License along with
Packit 5c3484
the GNU MP Library test suite.  If not, see https://www.gnu.org/licenses/.  */
Packit 5c3484
Packit 5c3484
#include <stdio.h>
Packit 5c3484
#include <stdlib.h>
Packit 5c3484
#include "gmp.h"
Packit 5c3484
#include "gmp-impl.h"
Packit 5c3484
#include "tests.h"
Packit 5c3484
Packit 5c3484
void
Packit 5c3484
check_data (void)
Packit 5c3484
{
Packit 5c3484
  static const struct {
Packit 5c3484
    long       x;
Packit 5c3484
    mp_size_t  want_size;
Packit 5c3484
    mp_limb_t  want_data[2];
Packit 5c3484
  } data[] = {
Packit 5c3484
Packit 5c3484
    {  0L,  0 },
Packit 5c3484
    {  1L,  1, { 1 } },
Packit 5c3484
    { -1L, -1, { 1 } },
Packit 5c3484
Packit 5c3484
#if GMP_NUMB_BITS >= BITS_PER_ULONG
Packit 5c3484
    { LONG_MAX,  1, { LONG_MAX, 0 } },
Packit 5c3484
    { -LONG_MAX,  -1, { LONG_MAX, 0 } },
Packit 5c3484
    { LONG_HIGHBIT,  -1, { ULONG_HIGHBIT, 0 } },
Packit 5c3484
#else
Packit 5c3484
    { LONG_MAX,  2, { LONG_MAX & GMP_NUMB_MASK, LONG_MAX >> GMP_NUMB_BITS } },
Packit 5c3484
    { -LONG_MAX,  -2, { LONG_MAX & GMP_NUMB_MASK, LONG_MAX >> GMP_NUMB_BITS }},
Packit 5c3484
    { LONG_HIGHBIT,  -2, { 0, ULONG_HIGHBIT >> GMP_NUMB_BITS } },
Packit 5c3484
#endif
Packit 5c3484
  };
Packit 5c3484
Packit 5c3484
  mpf_t  x;
Packit 5c3484
  int    i;
Packit 5c3484
Packit 5c3484
  for (i = 0; i < numberof (data); i++)
Packit 5c3484
    {
Packit 5c3484
      mpf_init (x);
Packit 5c3484
      mpf_set_si (x, data[i].x);
Packit 5c3484
      MPF_CHECK_FORMAT (x);
Packit 5c3484
      if (x->_mp_size != data[i].want_size
Packit 5c3484
          || refmpn_cmp_allowzero (x->_mp_d, data[i].want_data,
Packit 5c3484
                                   ABS (data[i].want_size)) != 0
Packit 5c3484
          || x->_mp_exp != ABS (data[i].want_size))
Packit 5c3484
        {
Packit 5c3484
          printf ("mpf_set_si wrong on data[%d]\n", i);
Packit 5c3484
          abort();
Packit 5c3484
        }
Packit 5c3484
      mpf_clear (x);
Packit 5c3484
Packit 5c3484
      mpf_init_set_si (x, data[i].x);
Packit 5c3484
      MPF_CHECK_FORMAT (x);
Packit 5c3484
      if (x->_mp_size != data[i].want_size
Packit 5c3484
          || refmpn_cmp_allowzero (x->_mp_d, data[i].want_data,
Packit 5c3484
                                   ABS (data[i].want_size)) != 0
Packit 5c3484
          || x->_mp_exp != ABS (data[i].want_size))
Packit 5c3484
        {
Packit 5c3484
          printf ("mpf_init_set_si wrong on data[%d]\n", i);
Packit 5c3484
          abort();
Packit 5c3484
        }
Packit 5c3484
      mpf_clear (x);
Packit 5c3484
    }
Packit 5c3484
}
Packit 5c3484
Packit 5c3484
int
Packit 5c3484
main (void)
Packit 5c3484
{
Packit 5c3484
  tests_start ();
Packit 5c3484
Packit 5c3484
  check_data ();
Packit 5c3484
Packit 5c3484
  tests_end ();
Packit 5c3484
  exit (0);
Packit 5c3484
}