From 11da511c784eca003deb90c23570f0873954e0de Mon Sep 17 00:00:00 2001 From: Duncan Wilkie Date: Sat, 18 Nov 2023 06:11:09 -0600 Subject: Initial commit. --- gmp-6.3.0/mini-gmp/tests/t-sub.c | 71 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 71 insertions(+) create mode 100644 gmp-6.3.0/mini-gmp/tests/t-sub.c (limited to 'gmp-6.3.0/mini-gmp/tests/t-sub.c') diff --git a/gmp-6.3.0/mini-gmp/tests/t-sub.c b/gmp-6.3.0/mini-gmp/tests/t-sub.c new file mode 100644 index 0000000..e230fda --- /dev/null +++ b/gmp-6.3.0/mini-gmp/tests/t-sub.c @@ -0,0 +1,71 @@ +/* + +Copyright 2012, 2013 Free Software Foundation, Inc. + +This file is part of the GNU MP Library test suite. + +The GNU MP Library test suite is free software; you can redistribute it +and/or modify it under the terms of the GNU General Public License as +published by the Free Software Foundation; either version 3 of the License, +or (at your option) any later version. + +The GNU MP Library test suite is distributed in the hope that it will be +useful, but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General +Public License for more details. + +You should have received a copy of the GNU General Public License along with +the GNU MP Library test suite. If not, see https://www.gnu.org/licenses/. */ + +#include +#include + +#include "testutils.h" + +#define MAXBITS 400 +#define COUNT 10000 + +void +testmain (int argc, char **argv) +{ + unsigned i; + mpz_t a, b, res, res_ui, ref; + + mpz_init (a); + mpz_init (b); + mpz_init (res); + mpz_init (res_ui); + mpz_init (ref); + + for (i = 0; i < COUNT; i++) + { + mini_random_op3 (OP_SUB, MAXBITS, a, b, ref); + mpz_sub (res, a, b); + if (mpz_cmp (res, ref)) + { + fprintf (stderr, "mpz_sub failed:\n"); + dump ("a", a); + dump ("b", b); + dump ("r", res); + dump ("ref", ref); + abort (); + } + if (mpz_fits_ulong_p (a)) { + mpz_ui_sub (res_ui, mpz_get_ui (a), b); + if (mpz_cmp (res_ui, ref)) + { + fprintf (stderr, "mpz_ui_sub failed:\n"); + dump ("a", a); + dump ("b", b); + dump ("r", res_ui); + dump ("ref", ref); + abort (); + } + } + } + mpz_clear (a); + mpz_clear (b); + mpz_clear (res); + mpz_clear (res_ui); + mpz_clear (ref); +} -- cgit v1.2.3