Rewrite to allow omitting initialization of global variables.
[kopensolaris-gnu/glibc.git] / misc / tst-efgcvt.c
1 /* Copyright (C) 1998 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3
4    The GNU C Library is free software; you can redistribute it and/or
5    modify it under the terms of the GNU Library General Public License as
6    published by the Free Software Foundation; either version 2 of the
7    License, or (at your option) any later version.
8
9    The GNU C Library is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12    Library General Public License for more details.
13
14    You should have received a copy of the GNU Library General Public
15    License along with the GNU C Library; see the file COPYING.LIB.  If not,
16    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17    Boston, MA 02111-1307, USA.  */
18
19 #ifndef _GNU_SOURCE
20 # define _GNU_SOURCE    1
21 #endif
22
23 #include <math.h>
24 #include <stdio.h>
25 #include <stdlib.h>
26
27 int error_count;
28
29 typedef struct
30 {
31   double value;
32   int ndigit;
33   int decpt;
34   char result[30];
35 } testcase;
36
37 typedef char * ((*efcvt_func) (double, int, int *, int *));
38
39
40 static testcase ecvt_tests[] =
41 {
42   { 0.0, 0, 1, "" },
43   { 10.0, 0, 2, "" },
44   { 10.0, 1, 2, "1" },
45   { 10.0, 5, 2, "10000" },
46   { -12.0, 5, 2, "12000" },
47   { 0.2, 4, 0, "2000" },
48   { 0.02, 4, -1, "2000" },
49   { 5.5, 1, 1, "6" },
50   { 1.0, -1, 1, "" },
51   { 0.01, 2, -1, "10" },
52   { 100.0, -2, 3, "" },
53   { 100.0, -5, 3, "" },
54   { 100.0, -4, 3, "" },
55   { 100.01, -4, 3, "" },
56   { 123.01, -4, 3, "" },
57   { 126.71, -4, 3, "" },
58   { 0.0, 4, 1, "0000" },
59   /* -1.0 is end marker.  */
60   { -1.0, 0, 0, "" }
61 };
62
63 static testcase fcvt_tests[] =
64 {
65   { 0.0, 0, 1, "0" },
66   { 10.0, 0, 2, "10" },
67   { 10.0, 1, 2, "100" },
68   { 10.0, 4, 2, "100000" },
69   { -12.0, 5, 2, "1200000" },
70   { 0.2, 4, 0, "2000" },
71   { 0.02, 4, -1, "200" },
72   { 5.5, 1, 1, "55" },
73   { 5.5, 0, 1, "6" },
74   { 0.01, 2, -1, "1" },
75   { 100.0, -2, 3, "100" },
76   { 100.0, -5, 3, "100" },
77   { 100.0, -4, 3, "100" },
78   { 100.01, -4, 3, "100" },
79   { 123.01, -4, 3, "100" },
80   { 126.71, -4, 3, "100" },
81   /* -1.0 is end marker.  */
82   { -1.0, 0, 0, "" }
83 };
84
85 void
86 output_error (const char *name, double value, int ndigit,
87               const char *exp_p, int exp_decpt, int exp_sign,
88               char *res_p, int res_decpt, int res_sign)
89 {
90   printf ("%s returned wrong result for value: %f, ndigits: %d\n",
91           name, value, ndigit);
92   printf ("Result was p: \"%s\", decpt: %d, sign: %d\n",
93           res_p, res_decpt, res_sign);
94   printf ("Should be  p: \"%s\", decpt: %d, sign: %d\n",
95           exp_p, exp_decpt, exp_sign);
96   ++error_count;
97 }
98
99 void
100 test (testcase tests[], efcvt_func efcvt, const char *name)
101 {
102   int no = 0;
103   int decpt, sign;
104   char *p;
105
106   while (tests[no].value != -1.0)
107     {
108       p = efcvt (tests[no].value, tests[no].ndigit, &decpt, &sign);
109       if (decpt != tests[no].decpt
110           || sign != (tests[no].value < 0)
111           || strcmp (p, tests[no].result) != 0)
112         output_error (name, tests[no].value, tests[no].ndigit,
113                       tests[no].result, tests[no].decpt,
114                       (tests[no].value < 0),
115                       p, decpt, sign);
116       ++no;
117     }
118 }
119
120 void
121 special (void)
122 {
123   int decpt, sign;
124   char *p;
125
126   p = ecvt (NAN, 10, &decpt, &sign);
127   if (sign != 0 || strcmp (p, "nan") != 0)
128     output_error ("ecvt", NAN, 10, "nan", 0, 0, p, decpt, sign);
129
130   p = ecvt (INFINITY, 10, &decpt, &sign);
131   if (sign != 0 || strcmp (p, "inf") != 0)
132     output_error ("ecvt", NAN, 10, "inf", 0, 0, p, decpt, sign);
133
134 }
135
136
137 int
138 main (void)
139 {
140   test (ecvt_tests, ecvt, "ecvt");
141   test (fcvt_tests, fcvt, "fcvt");
142   special ();
143
144   return error_count;
145 }