tests/mpz/t-inp_str.c

   1 /* Test mpz_inp_str.
   2
   3 Copyright 2001, 2002 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 "config.h"
  21
  22 #include <stdio.h>
  23 #include <stdlib.h>
  24 #include <string.h>
  25 #if HAVE_UNISTD_H
  26 #include <unistd.h>             /* for unlink */
  27 #endif
  28
  29 #include "gmp.h"
  30 #include "gmp-impl.h"
  31 #include "tests.h"
  32
  33
  34 #define FILENAME  "t-inp_str.tmp"
  35
  36
  37 void
  38 check_data (void)
  39 {
  40   static const struct {
  41     const char  *inp;
  42     int         base;
  43     const char  *want;
  44     int         want_nread;
  45
  46   } data[] = {
  47
  48     { "0",   10, "0", 1 },
  49
  50     { "abc", 10, "0", 0 },
  51     { "0xf", 10, "0", 1 },
  52     { "ghi", 16, "0", 0 },
  53     { "100", 90, "0", 0 },
  54
  55     {  "ff", 16,  "255", 2 },
  56     { "-ff", 16, "-255", 3 },
  57     {  "FF", 16,  "255", 2 },
  58     { "-FF", 16, "-255", 3 },
  59
  60     {  "z", 36, "35", 1 },
  61     {  "Z", 36, "35", 1 },
  62     { "1B", 59, "70", 2 },
  63     {  "a", 60, "36", 1 },
  64     {  "A", 61, "10", 1 },
  65
  66     {  "0x0",    0,   "0", 3 },
  67     {  "0X10",   0,  "16", 4 },
  68     { "-0X0",    0,   "0", 4 },
  69     { "-0x10",   0, "-16", 5 },
  70
  71     {  "0b0",    0,  "0", 3 },
  72     {  "0B10",   0,  "2", 4 },
  73     { "-0B0",    0,  "0", 4 },
  74     { "-0b10",   0, "-2", 5 },
  75
  76     {  "00",   0,  "0", 2 },
  77     {  "010",  0,  "8", 3 },
  78     { "-00",   0,  "0", 3 },
  79     { "-010",  0, "-8", 4 },
  80
  81     {  "0x",     0,   "0", 2 },
  82     {  "0",      0,   "0", 1 },
  83     { " 030",   10,  "30", 4 },
  84   };
  85
  86   mpz_t  got, want;
  87   long   ftell_nread;
  88   int    i, pre, post, j, got_nread, want_nread;
  89   FILE   *fp;
  90
  91   mpz_init (got);
  92   mpz_init (want);
  93
  94   for (i = 0; i < numberof (data); i++)
  95     {
  96       for (pre = 0; pre <= 3; pre++)
  97         {
  98           for (post = 0; post <= 2; post++)
  99             {
 100               mpz_set_str_or_abort (want, data[i].want, 0);
 101               MPZ_CHECK_FORMAT (want);
 102
 103               /* create the file new each time to ensure its length is what
 104                  we want */
 105               fp = fopen (FILENAME, "w+");
 106               ASSERT_ALWAYS (fp != NULL);
 107               for (j = 0; j < pre; j++)
 108                 putc (' ', fp);
 109               fputs (data[i].inp, fp);
 110               for (j = 0; j < post; j++)
 111                 putc (' ', fp);
 112               fflush (fp);
 113               ASSERT_ALWAYS (! ferror(fp));
 114
 115               rewind (fp);
 116               got_nread = mpz_inp_str (got, fp, data[i].base);
 117
 118               if (got_nread != 0)
 119                 {
 120                   ftell_nread = ftell (fp);
 121                   if (got_nread != ftell_nread)
 122                     {
 123                       printf ("mpz_inp_str nread wrong\n");
 124                       printf ("  inp          \"%s\"\n", data[i].inp);
 125                       printf ("  base         %d\n", data[i].base);
 126                       printf ("  pre          %d\n", pre);
 127                       printf ("  post         %d\n", post);
 128                       printf ("  got_nread    %d\n", got_nread);
 129                       printf ("  ftell_nread  %ld\n", ftell_nread);
 130                       abort ();
 131                     }
 132                 }
 133
 134               /* if data[i].inp is a whole string to read and there's no post
 135                  whitespace then expect to have EOF */
 136               if (post == 0 && data[i].want_nread == strlen(data[i].inp))
 137                 {
 138                   int  c = getc(fp);
 139                   if (c != EOF)
 140                     {
 141                       printf ("mpz_inp_str didn't read to EOF\n");
 142                       printf ("  inp   \"%s\"\n", data[i].inp);
 143                       printf ("  base  %d\n", data[i].base);
 144                       printf ("  pre   %d\n", pre);
 145                       printf ("  post  %d\n", post);
 146                       printf ("  c     '%c' %#x\n", c, c);
 147                       abort ();
 148                     }
 149                 }
 150
 151               /* only expect "pre" included in the count when non-zero */
 152               want_nread = data[i].want_nread;
 153               if (want_nread != 0)
 154                 want_nread += pre;
 155
 156               if (got_nread != want_nread)
 157                 {
 158                   printf ("mpz_inp_str nread wrong\n");
 159                   printf ("  inp         \"%s\"\n", data[i].inp);
 160                   printf ("  base        %d\n", data[i].base);
 161                   printf ("  pre         %d\n", pre);
 162                   printf ("  post        %d\n", post);
 163                   printf ("  got_nread   %d\n", got_nread);
 164                   printf ("  want_nread  %d\n", want_nread);
 165                   abort ();
 166                 }
 167
 168               MPZ_CHECK_FORMAT (got);
 169
 170               if (mpz_cmp (got, want) != 0)
 171                 {
 172                   printf ("mpz_inp_str wrong result\n");
 173                   printf ("  inp   \"%s\"\n", data[i].inp);
 174                   printf ("  base  %d\n", data[i].base);
 175                   mpz_trace ("  got ",  got);
 176                   mpz_trace ("  want", want);
 177                   abort ();
 178                 }
 179
 180               ASSERT_ALWAYS (fclose (fp) == 0);
 181             }
 182         }
 183     }
 184
 185   mpz_clear (got);
 186   mpz_clear (want);
 187 }
 188
 189 int
 190 main (void)
 191 {
 192   tests_start ();
 193
 194   check_data ();
 195
 196   unlink (FILENAME);
 197   tests_end ();
 198   exit (0);
 199 }