stdio-common/tstdiomisc.c

   1 #include <float.h>
   2 #include <math.h>
   3 #include <stdio.h>
   4 #include <string.h>
   5 #include <wchar.h>
   6
   7 static int
   8 t1 (void)
   9 {
  10   int n = -1;
  11   sscanf ("abc  ", "abc %n", &n);
  12   printf ("t1: count=%d\n", n);
  13
  14   return n != 5;
  15 }
  16
  17 static int
  18 t2 (void)
  19 {
  20   int result = 0;
  21   int n;
  22   long N;
  23   int retval;
  24 #define SCAN(INPUT, FORMAT, VAR, EXP_RES, EXP_VAL) \
  25   VAR = -1; \
  26   retval = sscanf (INPUT, FORMAT, &VAR); \
  27   printf ("sscanf (\"%s\", \"%s\", &x) => %d, x = %ld\n", \
  28           INPUT, FORMAT, retval, (long int) VAR); \
  29   result |= retval != EXP_RES || VAR != EXP_VAL
  30
  31   SCAN ("12345", "%ld", N, 1, 12345);
  32   SCAN ("12345", "%llllld", N, 0, -1);
  33   SCAN ("12345", "%LLLLLd", N, 0, -1);
  34   SCAN ("test ", "%*s%n",  n, 0, 4);
  35   SCAN ("test ", "%2*s%n",  n, 0, -1);
  36   SCAN ("12 ",   "%l2d",  n, 0, -1);
  37   SCAN ("12 ",   "%2ld",  N, 1, 12);
  38
  39   n = -1;
  40   N = -1;
  41   retval = sscanf ("1 1", "%d %Z", &n, &N);
  42   printf ("sscanf (\"1 1\", \"%%d %%Z\", &n, &N) => %d, n = %d, N = %ld\n", \
  43           retval, n, N); \
  44   result |= retval != 1 || n != 1 || N != -1;
  45
  46   return result;
  47 }
  48
  49 volatile double qnanval;
  50 volatile double infval;
  51 volatile long double lqnanval;
  52 volatile long double linfval;
  53
  54
  55 static int
  56 F (void)
  57 {
  58   char buf[80];
  59   wchar_t wbuf[40];
  60   int result;
  61
  62   qnanval = NAN;
  63
  64   snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
  65             qnanval, qnanval, qnanval, qnanval,
  66             qnanval, qnanval, qnanval, qnanval);
  67   result = strcmp (buf, "nan NAN nan NAN nan NAN nan NAN") != 0;
  68   printf ("expected \"nan NAN nan NAN nan NAN nan NAN\", got \"%s\"\n", buf);
  69
  70   snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
  71             -qnanval, -qnanval, -qnanval, -qnanval,
  72             -qnanval, -qnanval, -qnanval, -qnanval);
  73   result = strcmp (buf, "-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
  74   printf ("expected \"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got \"%s\"\n",
  75           buf);
  76
  77   infval = DBL_MAX * DBL_MAX;
  78
  79   snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
  80             infval, infval, infval, infval, infval, infval, infval, infval);
  81   result |= strcmp (buf, "inf INF inf INF inf INF inf INF") != 0;
  82   printf ("expected \"inf INF inf INF inf INF inf INF\", got \"%s\"\n", buf);
  83
  84   snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
  85             -infval, -infval, -infval, -infval,
  86             -infval, -infval, -infval, -infval);
  87   result |= strcmp (buf, "-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
  88   printf ("expected \"-inf -INF -inf -INF -inf -INF -inf -INF\", got \"%s\"\n",
  89           buf);
  90
  91   swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
  92             qnanval, qnanval, qnanval, qnanval,
  93             qnanval, qnanval, qnanval, qnanval);
  94   result |= wcscmp (wbuf, L"nan NAN nan NAN nan NAN nan NAN") != 0;
  95   printf ("expected L\"nan NAN nan NAN nan NAN nan NAN\", got L\"%S\"\n", wbuf);
  96
  97   swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
  98             -qnanval, -qnanval, -qnanval, -qnanval,
  99             -qnanval, -qnanval, -qnanval, -qnanval);
 100   result |= wcscmp (wbuf, L"-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
 101   printf ("expected L\"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got L\"%S\"\n",
 102           wbuf);
 103
 104   swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
 105             infval, infval, infval, infval, infval, infval, infval, infval);
 106   result |= wcscmp (wbuf, L"inf INF inf INF inf INF inf INF") != 0;
 107   printf ("expected L\"inf INF inf INF inf INF inf INF\", got L\"%S\"\n", wbuf);
 108
 109   swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
 110             -infval, -infval, -infval, -infval,
 111             -infval, -infval, -infval, -infval);
 112   result |= wcscmp (wbuf, L"-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
 113   printf ("expected L\"-inf -INF -inf -INF -inf -INF -inf -INF\", got L\"%S\"\n",
 114           wbuf);
 115
 116   lqnanval = NAN;
 117
 118   snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
 119             lqnanval, lqnanval, lqnanval, lqnanval,
 120             lqnanval, lqnanval, lqnanval, lqnanval);
 121   result = strcmp (buf, "nan NAN nan NAN nan NAN nan NAN") != 0;
 122   printf ("expected \"nan NAN nan NAN nan NAN nan NAN\", got \"%s\"\n", buf);
 123
 124   snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
 125             -lqnanval, -lqnanval, -lqnanval, -lqnanval,
 126             -lqnanval, -lqnanval, -lqnanval, -lqnanval);
 127   result = strcmp (buf, "-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
 128   printf ("expected \"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got \"%s\"\n",
 129           buf);
 130
 131   linfval = LDBL_MAX * LDBL_MAX;
 132
 133   snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
 134             linfval, linfval, linfval, linfval,
 135             linfval, linfval, linfval, linfval);
 136   result |= strcmp (buf, "inf INF inf INF inf INF inf INF") != 0;
 137   printf ("expected \"inf INF inf INF inf INF inf INF\", got \"%s\"\n", buf);
 138
 139   snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
 140             -linfval, -linfval, -linfval, -linfval,
 141             -linfval, -linfval, -linfval, -linfval);
 142   result |= strcmp (buf, "-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
 143   printf ("expected \"-inf -INF -inf -INF -inf -INF -inf -INF\", got \"%s\"\n",
 144           buf);
 145
 146   swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
 147             L"%La %LA %Le %LE %Lf %LF %Lg %LG",
 148             lqnanval, lqnanval, lqnanval, lqnanval,
 149             lqnanval, lqnanval, lqnanval, lqnanval);
 150   result |= wcscmp (wbuf, L"nan NAN nan NAN nan NAN nan NAN") != 0;
 151   printf ("expected L\"nan NAN nan NAN nan NAN nan NAN\", got L\"%S\"\n", wbuf);
 152
 153   swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
 154             L"%La %LA %Le %LE %Lf %LF %Lg %LG",
 155             -lqnanval, -lqnanval, -lqnanval, -lqnanval,
 156             -lqnanval, -lqnanval, -lqnanval, -lqnanval);
 157   result |= wcscmp (wbuf, L"-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
 158   printf ("expected L\"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got L\"%S\"\n",
 159           wbuf);
 160
 161   swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
 162             L"%La %LA %Le %LE %Lf %LF %Lg %LG",
 163             linfval, linfval, linfval, linfval,
 164             linfval, linfval, linfval, linfval);
 165   result |= wcscmp (wbuf, L"inf INF inf INF inf INF inf INF") != 0;
 166   printf ("expected L\"inf INF inf INF inf INF inf INF\", got L\"%S\"\n", wbuf);
 167
 168   swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
 169             L"%La %LA %Le %LE %Lf %LF %Lg %LG",
 170             -linfval, -linfval, -linfval, -linfval,
 171             -linfval, -linfval, -linfval, -linfval);
 172   result |= wcscmp (wbuf, L"-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
 173   printf ("expected L\"-inf -INF -inf -INF -inf -INF -inf -INF\", got L\"%S\"\n",
 174           wbuf);
 175
 176   return result;
 177 }
 178
 179 int
 180 main (int argc, char *argv[])
 181 {
 182   int result = 0;
 183
 184   result |= t1 ();
 185   result |= t2 ();
 186   result |= F ();
 187
 188   result |= fflush (stdout) == EOF;
 189
 190   return result;
 191 }