test/bioprinttest.c

   1 /*
   2  * Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
   3  *
   4  * Licensed under the OpenSSL license (the "License").  You may not use
   5  * this file except in compliance with the License.  You can obtain a copy
   6  * in the file LICENSE in the source distribution or at
   7  * https://www.openssl.org/source/license.html
   8  */
   9
  10 #include <stdio.h>
  11 #include <string.h>
  12 #include <openssl/bio.h>
  13 #include "internal/numbers.h"
  14
  15 #define nelem(x) (sizeof(x)/sizeof((x)[0]))
  16
  17 static int justprint = 0;
  18
  19 static char *fpexpected[][5] = {
  20     /*   0 */ { "0.0000e+00", "0.0000", "0", "0.0000E+00", "0" },
  21     /*   1 */ { "6.7000e-01", "0.6700", "0.67", "6.7000E-01", "0.67" },
  22     /*   2 */ { "6.6667e-01", "0.6667", "0.6667", "6.6667E-01", "0.6667" },
  23     /*   3 */ { "6.6667e-04", "0.0007", "0.0006667", "6.6667E-04", "0.0006667" },
  24     /*   4 */ { "6.6667e-05", "0.0001", "6.667e-05", "6.6667E-05", "6.667E-05" },
  25     /*   5 */ { "6.6667e+00", "6.6667", "6.667", "6.6667E+00", "6.667" },
  26     /*   6 */ { "6.6667e+01", "66.6667", "66.67", "6.6667E+01", "66.67" },
  27     /*   7 */ { "6.6667e+02", "666.6667", "666.7", "6.6667E+02", "666.7" },
  28     /*   8 */ { "6.6667e+03", "6666.6667", "6667", "6.6667E+03", "6667" },
  29     /*   9 */ { "6.6667e+04", "66666.6667", "6.667e+04", "6.6667E+04", "6.667E+04" },
  30     /*  10 */ { "0.00000e+00", "0.00000", "0", "0.00000E+00", "0" },
  31     /*  11 */ { "6.70000e-01", "0.67000", "0.67", "6.70000E-01", "0.67" },
  32     /*  12 */ { "6.66667e-01", "0.66667", "0.66667", "6.66667E-01", "0.66667" },
  33     /*  13 */ { "6.66667e-04", "0.00067", "0.00066667", "6.66667E-04", "0.00066667" },
  34     /*  14 */ { "6.66667e-05", "0.00007", "6.6667e-05", "6.66667E-05", "6.6667E-05" },
  35     /*  15 */ { "6.66667e+00", "6.66667", "6.6667", "6.66667E+00", "6.6667" },
  36     /*  16 */ { "6.66667e+01", "66.66667", "66.667", "6.66667E+01", "66.667" },
  37     /*  17 */ { "6.66667e+02", "666.66667", "666.67", "6.66667E+02", "666.67" },
  38     /*  18 */ { "6.66667e+03", "6666.66667", "6666.7", "6.66667E+03", "6666.7" },
  39     /*  19 */ { "6.66667e+04", "66666.66667", "66667", "6.66667E+04", "66667" },
  40     /*  20 */ { "  0.0000e+00", "      0.0000", "           0", "  0.0000E+00", "           0" },
  41     /*  21 */ { "  6.7000e-01", "      0.6700", "        0.67", "  6.7000E-01", "        0.67" },
  42     /*  22 */ { "  6.6667e-01", "      0.6667", "      0.6667", "  6.6667E-01", "      0.6667" },
  43     /*  23 */ { "  6.6667e-04", "      0.0007", "   0.0006667", "  6.6667E-04", "   0.0006667" },
  44     /*  24 */ { "  6.6667e-05", "      0.0001", "   6.667e-05", "  6.6667E-05", "   6.667E-05" },
  45     /*  25 */ { "  6.6667e+00", "      6.6667", "       6.667", "  6.6667E+00", "       6.667" },
  46     /*  26 */ { "  6.6667e+01", "     66.6667", "       66.67", "  6.6667E+01", "       66.67" },
  47     /*  27 */ { "  6.6667e+02", "    666.6667", "       666.7", "  6.6667E+02", "       666.7" },
  48     /*  28 */ { "  6.6667e+03", "   6666.6667", "        6667", "  6.6667E+03", "        6667" },
  49     /*  29 */ { "  6.6667e+04", "  66666.6667", "   6.667e+04", "  6.6667E+04", "   6.667E+04" },
  50     /*  30 */ { " 0.00000e+00", "     0.00000", "           0", " 0.00000E+00", "           0" },
  51     /*  31 */ { " 6.70000e-01", "     0.67000", "        0.67", " 6.70000E-01", "        0.67" },
  52     /*  32 */ { " 6.66667e-01", "     0.66667", "     0.66667", " 6.66667E-01", "     0.66667" },
  53     /*  33 */ { " 6.66667e-04", "     0.00067", "  0.00066667", " 6.66667E-04", "  0.00066667" },
  54     /*  34 */ { " 6.66667e-05", "     0.00007", "  6.6667e-05", " 6.66667E-05", "  6.6667E-05" },
  55     /*  35 */ { " 6.66667e+00", "     6.66667", "      6.6667", " 6.66667E+00", "      6.6667" },
  56     /*  36 */ { " 6.66667e+01", "    66.66667", "      66.667", " 6.66667E+01", "      66.667" },
  57     /*  37 */ { " 6.66667e+02", "   666.66667", "      666.67", " 6.66667E+02", "      666.67" },
  58     /*  38 */ { " 6.66667e+03", "  6666.66667", "      6666.7", " 6.66667E+03", "      6666.7" },
  59     /*  39 */ { " 6.66667e+04", " 66666.66667", "       66667", " 6.66667E+04", "       66667" },
  60     /*  40 */ { "0e+00", "0", "0", "0E+00", "0" },
  61     /*  41 */ { "7e-01", "1", "0.7", "7E-01", "0.7" },
  62     /*  42 */ { "7e-01", "1", "0.7", "7E-01", "0.7" },
  63     /*  43 */ { "7e-04", "0", "0.0007", "7E-04", "0.0007" },
  64     /*  44 */ { "7e-05", "0", "7e-05", "7E-05", "7E-05" },
  65     /*  45 */ { "7e+00", "7", "7", "7E+00", "7" },
  66     /*  46 */ { "7e+01", "67", "7e+01", "7E+01", "7E+01" },
  67     /*  47 */ { "7e+02", "667", "7e+02", "7E+02", "7E+02" },
  68     /*  48 */ { "7e+03", "6667", "7e+03", "7E+03", "7E+03" },
  69     /*  49 */ { "7e+04", "66667", "7e+04", "7E+04", "7E+04" },
  70     /*  50 */ { "0.000000e+00", "0.000000", "0", "0.000000E+00", "0" },
  71     /*  51 */ { "6.700000e-01", "0.670000", "0.67", "6.700000E-01", "0.67" },
  72     /*  52 */ { "6.666667e-01", "0.666667", "0.666667", "6.666667E-01", "0.666667" },
  73     /*  53 */ { "6.666667e-04", "0.000667", "0.000666667", "6.666667E-04", "0.000666667" },
  74     /*  54 */ { "6.666667e-05", "0.000067", "6.66667e-05", "6.666667E-05", "6.66667E-05" },
  75     /*  55 */ { "6.666667e+00", "6.666667", "6.66667", "6.666667E+00", "6.66667" },
  76     /*  56 */ { "6.666667e+01", "66.666667", "66.6667", "6.666667E+01", "66.6667" },
  77     /*  57 */ { "6.666667e+02", "666.666667", "666.667", "6.666667E+02", "666.667" },
  78     /*  58 */ { "6.666667e+03", "6666.666667", "6666.67", "6.666667E+03", "6666.67" },
  79     /*  59 */ { "6.666667e+04", "66666.666667", "66666.7", "6.666667E+04", "66666.7" },
  80     /*  60 */ { "0.0000e+00", "000.0000", "00000000", "0.0000E+00", "00000000" },
  81     /*  61 */ { "6.7000e-01", "000.6700", "00000.67", "6.7000E-01", "00000.67" },
  82     /*  62 */ { "6.6667e-01", "000.6667", "000.6667", "6.6667E-01", "000.6667" },
  83     /*  63 */ { "6.6667e-04", "000.0007", "0.0006667", "6.6667E-04", "0.0006667" },
  84     /*  64 */ { "6.6667e-05", "000.0001", "6.667e-05", "6.6667E-05", "6.667E-05" },
  85     /*  65 */ { "6.6667e+00", "006.6667", "0006.667", "6.6667E+00", "0006.667" },
  86     /*  66 */ { "6.6667e+01", "066.6667", "00066.67", "6.6667E+01", "00066.67" },
  87     /*  67 */ { "6.6667e+02", "666.6667", "000666.7", "6.6667E+02", "000666.7" },
  88     /*  68 */ { "6.6667e+03", "6666.6667", "00006667", "6.6667E+03", "00006667" },
  89     /*  69 */ { "6.6667e+04", "66666.6667", "6.667e+04", "6.6667E+04", "6.667E+04" },
  90 };
  91
  92 static void dofptest(int test, double val, char *width, int prec, int *fail)
  93 {
  94     char format[80], result[80];
  95     int i;
  96
  97     for (i = 0; i < 5; i++) {
  98         char *fspec = NULL;
  99         switch (i) {
 100         case 0:
 101             fspec = "e";
 102             break;
 103         case 1:
 104             fspec = "f";
 105             break;
 106         case 2:
 107             fspec = "g";
 108             break;
 109         case 3:
 110             fspec = "E";
 111             break;
 112         case 4:
 113             fspec = "G";
 114             break;
 115         }
 116
 117         if (prec >= 0)
 118             BIO_snprintf(format, sizeof(format), "%%%s.%d%s", width, prec,
 119                          fspec);
 120         else
 121             BIO_snprintf(format, sizeof(format), "%%%s%s", width, fspec);
 122         BIO_snprintf(result, sizeof(result), format, val);
 123
 124         if (justprint) {
 125             if (i == 0) {
 126                 printf("    /* %3d */ { \"%s\"", test, result);
 127             } else {
 128                 printf(", \"%s\"", result);
 129             }
 130         } else {
 131             if (strcmp(fpexpected[test][i], result) != 0) {
 132                 printf("Test %d(%d) failed. Expected \"%s\". Got \"%s\". "
 133                        "Format \"%s\"\n", test, i, fpexpected[test][i], result,
 134                        format);
 135                 *fail = 1;
 136             }
 137         }
 138     }
 139     if (justprint) {
 140         printf(" },\n");
 141     }
 142 }
 143
 144 struct z_data_st {
 145     size_t value;
 146     const char *format;
 147     const char *expected;
 148 };
 149 static struct z_data_st zu_data[] = {
 150     { SIZE_MAX, "%zu", (sizeof(size_t) == 4 ? "4294967295"
 151                         : sizeof(size_t) == 8 ? "18446744073709551615"
 152                         : "") },
 153     /*
 154      * in 2-complement, the unsigned number divided by two plus one becomes the
 155      * smallest possible negative signed number of the corresponding type
 156      */
 157     { SIZE_MAX / 2 + 1, "%zi", (sizeof(size_t) == 4 ? "-2147483648"
 158                                 : sizeof(size_t) == 8 ? "-9223372036854775808"
 159                                 : "") },
 160     { 0, "%zu", "0" },
 161     { 0, "%zi", "0" },
 162 };
 163
 164 static void dozutest(int test, const struct z_data_st *data, int *fail)
 165 {
 166     char bio_buf[80];
 167
 168     BIO_snprintf(bio_buf, sizeof(bio_buf) - 1, data->format, data->value);
 169     if (strcmp(bio_buf, data->expected) != 0) {
 170         printf("Test %d failed.  Expected \"%s\".  Got \"%s\". "
 171                "Format \"%s\"\n", test, data->expected, bio_buf, data->format);
 172         *fail = 1;
 173     }
 174 }
 175
 176 struct j_data_st {
 177     uint64_t value;
 178     const char *format;
 179     const char *expected;
 180 };
 181 static struct j_data_st j_data[] = {
 182     { 0xffffffffffffffffU, "%ju", "18446744073709551615" },
 183     { 0xffffffffffffffffU, "%jx", "ffffffffffffffff" },
 184     { 0x8000000000000000U, "%ju", "9223372036854775808" },
 185     /*
 186      * These tests imply two's-complement, but it's the only binary
 187      * representation we support, see test/sanitytest.c...
 188      */
 189     { 0x8000000000000000U, "%ji", "-9223372036854775808" },
 190 };
 191
 192 static void dojtest(int test, const struct j_data_st *data, int *fail)
 193 {
 194     char bio_buf[80];
 195
 196     BIO_snprintf(bio_buf, sizeof(bio_buf) - 1, data->format, data->value);
 197     if (strcmp(bio_buf, data->expected) != 0) {
 198         printf("Test %d failed.  Expected \"%s\".  Got \"%s\". "
 199                "Format \"%s\"\n", test, data->expected, bio_buf, data->format);
 200         *fail = 1;
 201     }
 202 }
 203
 204 int main(int argc, char **argv)
 205 {
 206     int test = 0;
 207     size_t i;
 208     int fail = 0;
 209     int prec = -1;
 210     char *width = "";
 211     const double frac = 2.0/3.0;
 212     char buf[80];
 213
 214     if (argc == 2 && strcmp(argv[1], "-expected") == 0) {
 215         justprint = 1;
 216     }
 217
 218     CRYPTO_set_mem_debug(1);
 219     CRYPTO_mem_ctrl(CRYPTO_MEM_CHECK_ON);
 220
 221     /* Tests for floating point format specifiers */
 222     for (i = 0; i < 7; i++) {
 223         switch (i) {
 224         case 0:
 225             prec = 4;
 226             width = "";
 227             break;
 228         case 1:
 229             prec = 5;
 230             width = "";
 231             break;
 232         case 2:
 233             prec = 4;
 234             width = "12";
 235             break;
 236         case 3:
 237             prec = 5;
 238             width = "12";
 239             break;
 240         case 4:
 241             prec = 0;
 242             width = "";
 243             break;
 244         case 5:
 245             prec = -1;
 246             width = "";
 247             break;
 248         case 6:
 249             prec = 4;
 250             width = "08";
 251             break;
 252         }
 253
 254         dofptest(test++, 0.0, width, prec, &fail);
 255         dofptest(test++, 0.67, width, prec, &fail);
 256         dofptest(test++, frac, width, prec, &fail);
 257         dofptest(test++, frac / 1000, width, prec, &fail);
 258         dofptest(test++, frac / 10000, width, prec, &fail);
 259         dofptest(test++, 6.0 + frac, width, prec, &fail);
 260         dofptest(test++, 66.0 + frac, width, prec, &fail);
 261         dofptest(test++, 666.0 + frac, width, prec, &fail);
 262         dofptest(test++, 6666.0 + frac, width, prec, &fail);
 263         dofptest(test++, 66666.0 + frac, width, prec, &fail);
 264     }
 265
 266     /* Test excessively big number. Should fail */
 267     if (BIO_snprintf(buf, sizeof(buf), "%f\n", 2 * (double)ULONG_MAX) != -1) {
 268         printf("Test %d failed. Unexpected success return from "
 269                "BIO_snprintf()\n", test);
 270         fail = 1;
 271     }
 272
 273     for (i = 0; i < nelem(zu_data); i++) {
 274         dozutest(test++, &zu_data[i], &fail);
 275     }
 276
 277     for (i = 0; i < nelem(j_data); i++) {
 278         dojtest(test++, &j_data[i], &fail);
 279     }
 280
 281 #ifndef OPENSSL_NO_CRYPTO_MDEBUG
 282     if (CRYPTO_mem_leaks_fp(stderr) <= 0)
 283         return 1;
 284 # endif
 285
 286     if (!justprint) {
 287         if (fail) {
 288             printf("FAIL\n");
 289             return 1;
 290         }
 291         printf ("PASS\n");
 292     }
 293     return 0;
 294 }
 295
 296