stdio-common/tst-sscanf.c

   1 /* Copyright (C) 2000, 2002, 2004, 2007 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3    Contributed by Jakub Jelinek <jakub@redhat.com>, 2000.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, see
  17    <http://www.gnu.org/licenses/>.  */
  18
  19 #include <stdlib.h>
  20 #include <stdio.h>
  21 #include <locale.h>
  22
  23 #ifndef CHAR
  24 # define CHAR char
  25 # define L(str) str
  26 # define SSCANF sscanf
  27 #endif
  28
  29 const CHAR *str_double[] =
  30 {
  31   L("-.10000E+020.20000E+020.25000E+010.40000E+010.50000E+010.12500E+01"),
  32   L("0.10000E+020.20000E+020.25000E+010.40000E+010.50000E+010.12500E+01"),
  33   L("-1234567E0198765432E0912345678901987654321091234567890198765432109"),
  34   L("-0.1000E+020.20000E+020.25000E+010.40000E+010.50000E+010.12500E+01")
  35 };
  36
  37 const double val_double[] =
  38 {
  39   -.10000E+02, 0.20000E+02, 0.25000E+01, 0.40000E+01, 0.50000E+01, 0.12500E+01,
  40   0.10000E+02, 0.20000E+02, 0.25000E+01, 0.40000E+01, 0.50000E+01, 0.12500E+01,
  41   -1234567E01, 98765432E09, 12345678901.0, 98765432109.0, 12345678901.0,
  42     98765432109.0,
  43   -0.1000E+02, 0.20000E+02, 0.25000E+01, 0.40000E+01, 0.50000E+01, 0.12500E+01
  44 };
  45
  46 const CHAR *str_long[] =
  47 {
  48   L("-12345678987654321123456789987654321123456789987654321"),
  49   L("-12345678987654321123456789987654321123456789987654321"),
  50   L("-12,345,678987,654,321123,456,789987,654,321123,456,789987,654,321"),
  51   L("-12,345,678987,654,321123,456,789987,654,321123,456,789987,654,321")
  52 };
  53
  54 const CHAR *fmt_long[] =
  55 {
  56   L("%9ld%9ld%9ld%9ld%9ld%9ld"),
  57   L("%I9ld%I9ld%I9ld%I9ld%I9ld%I9ld"),
  58   L("%'11ld%'11ld%'11ld%'11ld%'11ld%'11ld"),
  59   L("%I'11ld%I'11ld%I'11ld%I'11ld%I'11ld%I'11ld")
  60 };
  61
  62 const long int val_long[] =
  63 {
  64   -12345678, 987654321, 123456789, 987654321, 123456789, 987654321
  65 };
  66
  67 struct test
  68 {
  69   const CHAR *str;
  70   const CHAR *fmt;
  71   int retval;
  72 } int_tests[] =
  73 {
  74   { L("foo\n"), L("foo\nbar"), -1 },
  75   { L("foo\n"), L("foo bar"), -1 },
  76   { L("foo\n"), L("foo %d"), -1 },
  77   { L("foo\n"), L("foo\n%d"), -1 },
  78   { L("foon"), L("foonbar"), -1 },
  79   { L("foon"), L("foon%d"), -1 },
  80   { L("foo "), L("foo bar"), -1 },
  81   { L("foo "), L("foo %d"), -1 },
  82   { L("foo\t"), L("foo\tbar"), -1 },
  83   { L("foo\t"), L("foo bar"), -1 },
  84   { L("foo\t"), L("foo %d"), -1 },
  85   { L("foo\t"), L("foo\t%d"), -1 },
  86   { L("foo"), L("foo"), 0 },
  87   { L("foon"), L("foo bar"), 0 },
  88   { L("foon"), L("foo %d"), 0 },
  89   { L("foo "), L("fooxbar"), 0 },
  90   { L("foo "), L("foox%d"), 0 },
  91   { L("foo bar"), L("foon"), 0 },
  92   { L("foo bar"), L("foo bar"), 0 },
  93   { L("foo bar"), L("foo %d"), 0 },
  94   { L("foo bar"), L("foon%d"), 0 },
  95   { L("foo "), L("foo %n"), 0 },
  96   { L("foo%bar1"), L("foo%%bar%d"), 1 },
  97   /* Some OSes skip whitespace here while others don't.  */
  98   { L("foo \t %bar1"), L("foo%%bar%d"), 1 }
  99 };
 100
 101 struct test double_tests[] =
 102 {
 103   { L("-1"), L("%1g"), 0 },
 104   { L("-.1"), L("%2g"), 0 },
 105   { L("-inf"), L("%3g"), 0 },
 106   { L("+0"), L("%1g"),  },
 107   { L("-0x1p0"), L("%2g"), 1 },
 108   { L("-..1"), L("%g"), 0 },
 109   { L("-inf"), L("%g"), 1 }
 110 };
 111
 112 int
 113 main (void)
 114 {
 115   double d[6];
 116   long l[6];
 117   int i, j;
 118   int tst_locale;
 119   int result = 0;
 120
 121   tst_locale = 1;
 122   if (tst_locale)
 123     if (setlocale (LC_ALL, "en_US.ISO-8859-1") == NULL)
 124       {
 125         puts ("Failed to set en_US locale, skipping locale related tests");
 126         tst_locale = 0;
 127       }
 128
 129   for (i = 0; i < 4; ++i)
 130     {
 131       if (SSCANF (str_double[i], L("%11lf%11lf%11lf%11lf%11lf%11lf"),
 132                   &d[0], &d[1], &d[2], &d[3], &d[4], &d[5]) != 6)
 133         {
 134           printf ("Double sscanf test %d wrong number of "
 135                   "assigned inputs\n", i);
 136           result = 1;
 137         }
 138       else
 139         for (j = 0; j < 6; ++j)
 140           if (d[j] != val_double[6 * i + j])
 141             {
 142               printf ("Double sscanf test %d failed (%g instead of %g)\n",
 143                       i, d[j], val_double[6 * i + j]);
 144               result = 1;
 145               break;
 146             }
 147     }
 148
 149   for (i = 0; i < 4; ++i)
 150     {
 151       if (SSCANF (str_long[i], fmt_long[i],
 152                   &l[0], &l[1], &l[2], &l[3], &l[4], &l[5]) != 6)
 153         {
 154           printf ("Integer sscanf test %d wrong number of "
 155                   "assigned inputs\n", i);
 156           result = 1;
 157         }
 158       else
 159         for (j = 0; j < 6; ++j)
 160           if (l[j] != val_long[j])
 161             {
 162               printf ("Integer sscanf test %d failed (%ld instead %ld)\n",
 163                       i, l[j], val_long[j]);
 164               result = 1;
 165               break;
 166             }
 167
 168       if (! tst_locale)
 169         break;
 170     }
 171
 172   for (i = 0; i < sizeof (int_tests) / sizeof (int_tests[0]); ++i)
 173     {
 174       int dummy, ret;
 175
 176       if ((ret = SSCANF (int_tests[i].str, int_tests[i].fmt,
 177                          &dummy)) != int_tests[i].retval)
 178         {
 179           printf ("int_tests[%d] returned %d != %d\n",
 180                   i, ret, int_tests[i].retval);
 181           result = 1;
 182         }
 183     }
 184
 185   for (i = 0; i < sizeof (double_tests) / sizeof (double_tests[0]); ++i)
 186     {
 187       double dummy;
 188       int ret;
 189
 190       if ((ret = SSCANF (double_tests[i].str, double_tests[i].fmt,
 191                          &dummy)) != double_tests[i].retval)
 192         {
 193           printf ("double_tests[%d] returned %d != %d\n",
 194                   i, ret, double_tests[i].retval);
 195           result = 1;
 196         }
 197     }
 198
 199   return result;
 200 }