1/* Test mpq_get_str.
2
3Copyright 2001 Free Software Foundation, Inc.
4
5This file is part of the GNU MP Library test suite.
6
7The GNU MP Library test suite is free software; you can redistribute it
8and/or modify it under the terms of the GNU General Public License as
9published by the Free Software Foundation; either version 3 of the License,
10or (at your option) any later version.
11
12The GNU MP Library test suite is distributed in the hope that it will be
13useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
15Public License for more details.
16
17You should have received a copy of the GNU General Public License along with
18the GNU MP Library test suite.  If not, see https://www.gnu.org/licenses/.  */
19
20#include <stdio.h>
21#include <stdlib.h>
22#include <string.h>
23#include "gmp-impl.h"
24#include "tests.h"
25
26
27void
28check_one (mpq_srcptr q, int base, const char *want)
29{
30  char    *str, *ret;
31  size_t  str_alloc;
32
33  MPQ_CHECK_FORMAT (q);
34  mp_trace_base = base;
35
36  str_alloc =
37    mpz_sizeinbase (mpq_numref(q), ABS(base)) +
38    mpz_sizeinbase (mpq_denref(q), ABS(base)) + 3;
39
40  str = mpq_get_str (NULL, base, q);
41  if (strlen(str)+1 > str_alloc)
42    {
43      printf ("mpq_get_str size bigger than should be (passing NULL)\n");
44      printf ("  base %d\n", base);
45      printf ("  got  size %lu \"%s\"\n", (unsigned long)  strlen(str)+1, str);
46      printf ("  want size %lu\n", (unsigned long) str_alloc);
47      abort ();
48    }
49  if (strcmp (str, want) != 0)
50    {
51      printf ("mpq_get_str wrong (passing NULL)\n");
52      printf ("  base %d\n", base);
53      printf ("  got  \"%s\"\n", str);
54      printf ("  want \"%s\"\n", want);
55      mpq_trace ("  q", q);
56      abort ();
57    }
58  (*__gmp_free_func) (str, strlen (str) + 1);
59
60  str = (char *) (*__gmp_allocate_func) (str_alloc);
61
62  ret = mpq_get_str (str, base, q);
63  if (str != ret)
64    {
65      printf ("mpq_get_str wrong return value (passing non-NULL)\n");
66      printf ("  base %d\n", base);
67      printf ("  got  %p\n", (void *) ret);
68      printf ("  want %p\n", (void *) str);
69      abort ();
70    }
71  if (strcmp (str, want) != 0)
72    {
73      printf ("mpq_get_str wrong (passing non-NULL)\n");
74      printf ("  base %d\n", base);
75      printf ("  got  \"%s\"\n", str);
76      printf ("  want \"%s\"\n", want);
77      abort ();
78    }
79  (*__gmp_free_func) (str, str_alloc);
80}
81
82
83void
84check_all (mpq_srcptr q, int base, const char *want)
85{
86  char  *s;
87
88  check_one (q, base, want);
89
90  s = __gmp_allocate_strdup (want);
91  strtoupper (s);
92  check_one (q, -base, s);
93  (*__gmp_free_func) (s, strlen(s)+1);
94}
95
96void
97check_data (void)
98{
99  static const struct {
100    int         base;
101    const char  *num;
102    const char  *den;
103    const char  *want;
104  } data[] = {
105    { 10, "0", "1", "0" },
106    { 10, "1", "1", "1" },
107
108    { 16, "ffffffff", "1", "ffffffff" },
109    { 16, "ffffffffffffffff", "1", "ffffffffffffffff" },
110
111    { 16, "1", "ffffffff", "1/ffffffff" },
112    { 16, "1", "ffffffffffffffff", "1/ffffffffffffffff" },
113    { 16, "1", "10000000000000003", "1/10000000000000003" },
114
115    { 10, "12345678901234567890", "9876543210987654323",
116      "12345678901234567890/9876543210987654323" },
117  };
118
119  mpq_t  q;
120  int    i;
121
122  mpq_init (q);
123  for (i = 0; i < numberof (data); i++)
124    {
125      mpz_set_str_or_abort (mpq_numref(q), data[i].num, data[i].base);
126      mpz_set_str_or_abort (mpq_denref(q), data[i].den, data[i].base);
127      check_all (q, data[i].base, data[i].want);
128    }
129  mpq_clear (q);
130}
131
132
133int
134main (void)
135{
136  tests_start ();
137
138  check_data ();
139
140  tests_end ();
141  exit (0);
142}
143