misc/tst-efgcvt-template.c

   1 /* Copyright (C) 1998-2024 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 Lesser General Public
   6    License as published by the Free Software Foundation; either
   7    version 2.1 of the 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    Lesser General Public License for more details.
  13
  14    You should have received a copy of the GNU Lesser General Public
  15    License along with the GNU C Library; if not, see
  16    <https://www.gnu.org/licenses/>.  */
  17
  18 /* This template provides testing for the *cvt family of functions,
  19    which deal with double or long double types.  In order to use the
  20    template, the following macros must be defined before inclusion of
  21    this template:
  22
  23      FLOAT: The floating-point type, i.e. double or long double.
  24
  25      ECVT: Appropriate *ecvt function for FLOAT, i.e. ecvt or qecvt.
  26      FCVT: Likewise for *fcvt, i.e. fcvt or qfcvt.
  27      ECVT_R: Likewise for *ecvt_r, i.e. ecvt_r or qecvt_r.
  28      FCVT_R: Likewise for *fcvt_r, i.e. fcvt_r or qfcvt_r.
  29
  30      PRINTF_CONVERSION: The appropriate printf conversion specifier with
  31      length modifier for FLOAT, i.e. "%f" or "%Lf".
  32
  33      EXTRA_ECVT_TESTS: Additional tests for the ecvt or qecvt function
  34      that are only relevant to a particular floating-point type and
  35      cannot be represented generically.  */
  36
  37 #ifndef _GNU_SOURCE
  38 # define _GNU_SOURCE    1
  39 #endif
  40
  41 #include <math.h>
  42 #include <stdio.h>
  43 #include <stdlib.h>
  44 #include <string.h>
  45
  46 #include <support/check.h>
  47
  48 #define NAME(x) NAMEX(x)
  49 #define NAMEX(x) #x
  50
  51 typedef struct
  52 {
  53   FLOAT value;
  54   int ndigit;
  55   int decpt;
  56   char result[30];
  57 } testcase;
  58
  59 typedef char * ((*efcvt_func) (FLOAT, int, int *, int *));
  60
  61 typedef int ((*efcvt_r_func) (FLOAT, int, int *, int *, char *, size_t));
  62
  63
  64 static testcase ecvt_tests[] =
  65 {
  66   { 0.0, 0, 1, "" },
  67   { 10.0, 0, 2, "" },
  68   { 10.0, 1, 2, "1" },
  69   { 10.0, 5, 2, "10000" },
  70   { -12.0, 5, 2, "12000" },
  71   { 0.2, 4, 0, "2000" },
  72   { 0.02, 4, -1, "2000" },
  73   { 5.5, 1, 1, "6" },
  74   { 1.0, -1, 1, "" },
  75   { 0.01, 2, -1, "10" },
  76   { 100.0, -2, 3, "" },
  77   { 100.0, -5, 3, "" },
  78   { 100.0, -4, 3, "" },
  79   { 100.01, -4, 3, "" },
  80   { 123.01, -4, 3, "" },
  81   { 126.71, -4, 3, "" },
  82   { 0.0, 4, 1, "0000" },
  83   EXTRA_ECVT_TESTS
  84   /* -1.0 is end marker.  */
  85   { -1.0, 0, 0, "" }
  86 };
  87
  88 static testcase fcvt_tests[] =
  89 {
  90   { 0.0, 0, 1, "0" },
  91   { 10.0, 0, 2, "10" },
  92   { 10.0, 1, 2, "100" },
  93   { 10.0, 4, 2, "100000" },
  94   { -12.0, 5, 2, "1200000" },
  95   { 0.2, 4, 0, "2000" },
  96   { 0.02, 4, -1, "200" },
  97   { 5.5, 1, 1, "55" },
  98   { 5.5, 0, 1, "6" },
  99   { 0.01, 2, -1, "1" },
 100   { 100.0, -2, 3, "100" },
 101   { 100.0, -5, 3, "100" },
 102   { 100.0, -4, 3, "100" },
 103   { 100.01, -4, 3, "100" },
 104   { 123.01, -4, 3, "100" },
 105   { 126.71, -4, 3, "100" },
 106   { 322.5, 16, 3, "3225000000000000000" },
 107   /* -1.0 is end marker.  */
 108   { -1.0, 0, 0, "" }
 109 };
 110
 111 static void
 112 output_error (const char *name, FLOAT value, int ndigit,
 113               const char *exp_p, int exp_decpt, int exp_sign,
 114               char *res_p, int res_decpt, int res_sign)
 115 {
 116   printf ("%s returned wrong result for value: " PRINTF_CONVERSION
 117           ", ndigits: %d\n",
 118           name, value, ndigit);
 119   printf ("Result was p: \"%s\", decpt: %d, sign: %d\n",
 120           res_p, res_decpt, res_sign);
 121   printf ("Should be  p: \"%s\", decpt: %d, sign: %d\n",
 122           exp_p, exp_decpt, exp_sign);
 123   support_record_failure ();
 124 }
 125
 126
 127 static void
 128 output_r_error (const char *name, FLOAT value, int ndigit,
 129                 const char *exp_p, int exp_decpt, int exp_sign, int exp_return,
 130                 char *res_p, int res_decpt, int res_sign, int res_return)
 131 {
 132   printf ("%s returned wrong result for value: " PRINTF_CONVERSION
 133           ", ndigits: %d\n",
 134           name, value, ndigit);
 135   printf ("Result was buf: \"%s\", decpt: %d, sign: %d return value: %d\n",
 136           res_p, res_decpt, res_sign, res_return);
 137   printf ("Should be  buf: \"%s\", decpt: %d, sign: %d\n",
 138           exp_p, exp_decpt, exp_sign);
 139   support_record_failure ();
 140 }
 141
 142 static void
 143 test (testcase tests[], efcvt_func efcvt, const char *name)
 144 {
 145   int no = 0;
 146   int decpt, sign;
 147   char *p;
 148
 149   while (tests[no].value != -1.0)
 150     {
 151       p = efcvt (tests[no].value, tests[no].ndigit, &decpt, &sign);
 152       if (decpt != tests[no].decpt
 153           || sign != (tests[no].value < 0)
 154           || strcmp (p, tests[no].result) != 0)
 155         output_error (name, tests[no].value, tests[no].ndigit,
 156                       tests[no].result, tests[no].decpt,
 157                       (tests[no].value < 0),
 158                       p, decpt, sign);
 159       ++no;
 160     }
 161 }
 162
 163 static void
 164 test_r (testcase tests[], efcvt_r_func efcvt_r, const char *name)
 165 {
 166   int no = 0;
 167   int decpt, sign, res;
 168   char buf [1024];
 169
 170
 171   while (tests[no].value != -1.0)
 172     {
 173       res = efcvt_r (tests[no].value, tests[no].ndigit, &decpt, &sign,
 174                      buf, sizeof (buf));
 175       if (res != 0
 176           || decpt != tests[no].decpt
 177           || sign != (tests[no].value < 0)
 178           || strcmp (buf, tests[no].result) != 0)
 179         output_r_error (name, tests[no].value, tests[no].ndigit,
 180                         tests[no].result, tests[no].decpt, 0,
 181                         (tests[no].value < 0),
 182                         buf, decpt, sign, res);
 183       ++no;
 184     }
 185 }
 186
 187 static void
 188 special (void)
 189 {
 190   int decpt, sign, res;
 191   char *p;
 192   char buf [1024];
 193
 194   p = ECVT (NAN, 10, &decpt, &sign);
 195   if (sign != 0 || strcmp (p, "nan") != 0)
 196     output_error (NAME (ECVT), NAN, 10, "nan", 0, 0, p, decpt, sign);
 197
 198   p = ECVT (INFINITY, 10, &decpt, &sign);
 199   if (sign != 0 || strcmp (p, "inf") != 0)
 200     output_error (NAME (ECVT), INFINITY, 10, "inf", 0, 0, p, decpt, sign);
 201
 202   /* Simply make sure these calls with large NDIGITs don't crash.  */
 203   p = ECVT (123.456, 10000, &decpt, &sign);
 204   p = FCVT (123.456, 10000, &decpt, &sign);
 205
 206   /* Some tests for the reentrant functions.  */
 207   /* Use a too small buffer.  */
 208   res = ECVT_R (123.456, 10, &decpt, &sign, buf, 1);
 209   if (res == 0)
 210     {
 211       printf (NAME (ECVT_R) " with a too small buffer was successful.\n");
 212       support_record_failure ();
 213     }
 214   res = FCVT_R (123.456, 10, &decpt, &sign, buf, 1);
 215   if (res == 0)
 216     {
 217       printf (NAME (FCVT_R) " with a too small buffer was successful.\n");
 218       support_record_failure ();
 219     }
 220 }
 221
 222
 223 static int
 224 do_test (void)
 225 {
 226   test (ecvt_tests, ECVT, NAME (ECVT));
 227   test (fcvt_tests, FCVT, NAME (FCVT));
 228   test_r (ecvt_tests, ECVT_R, NAME (ECVT_R));
 229   test_r (fcvt_tests, FCVT_R, NAME (FCVT_R));
 230   special ();
 231
 232   return 0;
 233 }
 234
 235 #include <support/test-driver.c>