3 Copyright 2001 Free Software Foundation, Inc.
5 This file is part of the GNU MP Library.
7 The GNU MP Library is free software; you can redistribute it and/or modify
8 it under the terms of the GNU Lesser General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
12 The GNU MP Library is distributed in the hope that it will be useful, but
13 WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
15 License for more details.
17 You should have received a copy of the GNU Lesser General Public License
18 along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. */
28 check_one (mpz_srcptr want, int base, const char *str)
32 MPZ_CHECK_FORMAT (want);
33 mp_trace_base = (base == 0 ? 16 : base);
37 if (mpz_set_str (got, str, base) != 0)
39 printf ("mpz_set_str unexpectedly failed\n");
40 printf (" base %d\n", base);
41 printf (" str \"%s\"\n", str);
44 MPZ_CHECK_FORMAT (got);
46 if (mpz_cmp (got, want) != 0)
48 printf ("mpz_set_str wrong\n");
49 printf (" base %d\n", base);
50 printf (" str \"%s\"\n", str);
51 mpz_trace ("got ", got);
52 mpz_trace ("want", want);
67 check_one (z, 0, "0 ");
68 check_one (z, 0, "0 ");
69 check_one (z, 10, "0 ");
70 check_one (z, 10, "0 ");
71 check_one (z, 10, "0000000 ");
74 check_one (z, 0, "123 ");
75 check_one (z, 0, "123 ");
76 check_one (z, 10, "123 ");
77 check_one (z, 10, "123 ");
78 check_one (z, 0, " 123 ");
79 check_one (z, 0, " 123 ");
80 check_one (z, 10, " 0000123 ");
81 check_one (z, 10, " 123 ");