1 /* Test mpq_get_str.
2
3 Copyright 2001 Free Software Foundation, Inc.
4
5 This file is part of the GNU MP Library test suite.
6
7 The GNU MP Library test suite is free software; you can redistribute it
8 and/or modify it under the terms of the GNU General Public License as
9 published by the Free Software Foundation; either version 3 of the License,
10 or (at your option) any later version.
11
12 The GNU MP Library test suite is distributed in the hope that it will be
13 useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
15 Public License for more details.
16
17 You should have received a copy of the GNU General Public License along with
18 the 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
27 void
28 check_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
83 void
84 check_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
96 void
97 check_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
133 int
134 main (void)
135 {
136 tests_start ();
137
138 check_data ();
139
140 tests_end ();
141 exit (0);
142 }