[thirdparty/openssl.git] / test / bioprinttest.c

/*
 * Copyright 2016-2020 The OpenSSL Project Authors. All Rights Reserved.
 *
 * Licensed under the Apache License 2.0 (the "License").  You may not use
 * this file except in compliance with the License.  You can obtain a copy
 * in the file LICENSE in the source distribution or at
 * https://www.openssl.org/source/license.html
 */

#define TESTUTIL_NO_size_t_COMPARISON

#include <stdio.h>
#include <string.h>
#include <openssl/bio.h>
#include "internal/numbers.h"
#include "testutil.h"
#include "testutil/output.h"

#define nelem(x) (int)(sizeof(x) / sizeof((x)[0]))

static int justprint = 0;

static char *fpexpected[][10][5] = {
    {
    /*  00 */ { "0.0000e+00", "0.0000", "0", "0.0000E+00", "0" },
    /*  01 */ { "6.7000e-01", "0.6700", "0.67", "6.7000E-01", "0.67" },
    /*  02 */ { "6.6667e-01", "0.6667", "0.6667", "6.6667E-01", "0.6667" },
    /*  03 */ { "6.6667e-04", "0.0007", "0.0006667", "6.6667E-04", "0.0006667" },
    /*  04 */ { "6.6667e-05", "0.0001", "6.667e-05", "6.6667E-05", "6.667E-05" },
    /*  05 */ { "6.6667e+00", "6.6667", "6.667", "6.6667E+00", "6.667" },
    /*  06 */ { "6.6667e+01", "66.6667", "66.67", "6.6667E+01", "66.67" },
    /*  07 */ { "6.6667e+02", "666.6667", "666.7", "6.6667E+02", "666.7" },
    /*  08 */ { "6.6667e+03", "6666.6667", "6667", "6.6667E+03", "6667" },
    /*  09 */ { "6.6667e+04", "66666.6667", "6.667e+04", "6.6667E+04", "6.667E+04" },
    },
    {
    /*  10 */ { "0.00000e+00", "0.00000", "0", "0.00000E+00", "0" },
    /*  11 */ { "6.70000e-01", "0.67000", "0.67", "6.70000E-01", "0.67" },
    /*  12 */ { "6.66667e-01", "0.66667", "0.66667", "6.66667E-01", "0.66667" },
    /*  13 */ { "6.66667e-04", "0.00067", "0.00066667", "6.66667E-04", "0.00066667" },
    /*  14 */ { "6.66667e-05", "0.00007", "6.6667e-05", "6.66667E-05", "6.6667E-05" },
    /*  15 */ { "6.66667e+00", "6.66667", "6.6667", "6.66667E+00", "6.6667" },
    /*  16 */ { "6.66667e+01", "66.66667", "66.667", "6.66667E+01", "66.667" },
    /*  17 */ { "6.66667e+02", "666.66667", "666.67", "6.66667E+02", "666.67" },
    /*  18 */ { "6.66667e+03", "6666.66667", "6666.7", "6.66667E+03", "6666.7" },
    /*  19 */ { "6.66667e+04", "66666.66667", "66667", "6.66667E+04", "66667" },
    },
    {
    /*  20 */ { "  0.0000e+00", "      0.0000", "           0", "  0.0000E+00", "           0" },
    /*  21 */ { "  6.7000e-01", "      0.6700", "        0.67", "  6.7000E-01", "        0.67" },
    /*  22 */ { "  6.6667e-01", "      0.6667", "      0.6667", "  6.6667E-01", "      0.6667" },
    /*  23 */ { "  6.6667e-04", "      0.0007", "   0.0006667", "  6.6667E-04", "   0.0006667" },
    /*  24 */ { "  6.6667e-05", "      0.0001", "   6.667e-05", "  6.6667E-05", "   6.667E-05" },
    /*  25 */ { "  6.6667e+00", "      6.6667", "       6.667", "  6.6667E+00", "       6.667" },
    /*  26 */ { "  6.6667e+01", "     66.6667", "       66.67", "  6.6667E+01", "       66.67" },
    /*  27 */ { "  6.6667e+02", "    666.6667", "       666.7", "  6.6667E+02", "       666.7" },
    /*  28 */ { "  6.6667e+03", "   6666.6667", "        6667", "  6.6667E+03", "        6667" },
    /*  29 */ { "  6.6667e+04", "  66666.6667", "   6.667e+04", "  6.6667E+04", "   6.667E+04" },
    },
    {
    /*  30 */ { " 0.00000e+00", "     0.00000", "           0", " 0.00000E+00", "           0" },
    /*  31 */ { " 6.70000e-01", "     0.67000", "        0.67", " 6.70000E-01", "        0.67" },
    /*  32 */ { " 6.66667e-01", "     0.66667", "     0.66667", " 6.66667E-01", "     0.66667" },
    /*  33 */ { " 6.66667e-04", "     0.00067", "  0.00066667", " 6.66667E-04", "  0.00066667" },
    /*  34 */ { " 6.66667e-05", "     0.00007", "  6.6667e-05", " 6.66667E-05", "  6.6667E-05" },
    /*  35 */ { " 6.66667e+00", "     6.66667", "      6.6667", " 6.66667E+00", "      6.6667" },
    /*  36 */ { " 6.66667e+01", "    66.66667", "      66.667", " 6.66667E+01", "      66.667" },
    /*  37 */ { " 6.66667e+02", "   666.66667", "      666.67", " 6.66667E+02", "      666.67" },
    /*  38 */ { " 6.66667e+03", "  6666.66667", "      6666.7", " 6.66667E+03", "      6666.7" },
    /*  39 */ { " 6.66667e+04", " 66666.66667", "       66667", " 6.66667E+04", "       66667" },
    },
    {
    /*  40 */ { "0e+00", "0", "0", "0E+00", "0" },
    /*  41 */ { "7e-01", "1", "0.7", "7E-01", "0.7" },
    /*  42 */ { "7e-01", "1", "0.7", "7E-01", "0.7" },
    /*  43 */ { "7e-04", "0", "0.0007", "7E-04", "0.0007" },
    /*  44 */ { "7e-05", "0", "7e-05", "7E-05", "7E-05" },
    /*  45 */ { "7e+00", "7", "7", "7E+00", "7" },
    /*  46 */ { "7e+01", "67", "7e+01", "7E+01", "7E+01" },
    /*  47 */ { "7e+02", "667", "7e+02", "7E+02", "7E+02" },
    /*  48 */ { "7e+03", "6667", "7e+03", "7E+03", "7E+03" },
    /*  49 */ { "7e+04", "66667", "7e+04", "7E+04", "7E+04" },
    },
    {
    /*  50 */ { "0.000000e+00", "0.000000", "0", "0.000000E+00", "0" },
    /*  51 */ { "6.700000e-01", "0.670000", "0.67", "6.700000E-01", "0.67" },
    /*  52 */ { "6.666667e-01", "0.666667", "0.666667", "6.666667E-01", "0.666667" },
    /*  53 */ { "6.666667e-04", "0.000667", "0.000666667", "6.666667E-04", "0.000666667" },
    /*  54 */ { "6.666667e-05", "0.000067", "6.66667e-05", "6.666667E-05", "6.66667E-05" },
    /*  55 */ { "6.666667e+00", "6.666667", "6.66667", "6.666667E+00", "6.66667" },
    /*  56 */ { "6.666667e+01", "66.666667", "66.6667", "6.666667E+01", "66.6667" },
    /*  57 */ { "6.666667e+02", "666.666667", "666.667", "6.666667E+02", "666.667" },
    /*  58 */ { "6.666667e+03", "6666.666667", "6666.67", "6.666667E+03", "6666.67" },
    /*  59 */ { "6.666667e+04", "66666.666667", "66666.7", "6.666667E+04", "66666.7" },
    },
    {
    /*  60 */ { "0.0000e+00", "000.0000", "00000000", "0.0000E+00", "00000000" },
    /*  61 */ { "6.7000e-01", "000.6700", "00000.67", "6.7000E-01", "00000.67" },
    /*  62 */ { "6.6667e-01", "000.6667", "000.6667", "6.6667E-01", "000.6667" },
    /*  63 */ { "6.6667e-04", "000.0007", "0.0006667", "6.6667E-04", "0.0006667" },
    /*  64 */ { "6.6667e-05", "000.0001", "6.667e-05", "6.6667E-05", "6.667E-05" },
    /*  65 */ { "6.6667e+00", "006.6667", "0006.667", "6.6667E+00", "0006.667" },
    /*  66 */ { "6.6667e+01", "066.6667", "00066.67", "6.6667E+01", "00066.67" },
    /*  67 */ { "6.6667e+02", "666.6667", "000666.7", "6.6667E+02", "000666.7" },
    /*  68 */ { "6.6667e+03", "6666.6667", "00006667", "6.6667E+03", "00006667" },
    /*  69 */ { "6.6667e+04", "66666.6667", "6.667e+04", "6.6667E+04", "6.667E+04" },
    },
};

typedef struct z_data_st {
    size_t value;
    const char *format;
    const char *expected;
} z_data;

static z_data zu_data[] = {
    { SIZE_MAX, "%zu", (sizeof(size_t) == 4 ? "4294967295"
                        : sizeof(size_t) == 8 ? "18446744073709551615"
                        : "") },
    /*
     * in 2-complement, the unsigned number divided by two plus one becomes the
     * smallest possible negative signed number of the corresponding type
     */
    { SIZE_MAX / 2 + 1, "%zi", (sizeof(size_t) == 4 ? "-2147483648"
                                : sizeof(size_t) == 8 ? "-9223372036854775808"
                                : "") },
    { 0, "%zu", "0" },
    { 0, "%zi", "0" },
};

static int test_zu(int i)
{
    char bio_buf[80];
    const z_data *data = &zu_data[i];

    BIO_snprintf(bio_buf, sizeof(bio_buf) - 1, data->format, data->value);
    if (!TEST_str_eq(bio_buf, data->expected))
        return 0;
    return 1;
}

typedef struct j_data_st {
    uint64_t value;
    const char *format;
    const char *expected;
} j_data;

static j_data jf_data[] = {
    { 0xffffffffffffffffULL, "%ju", "18446744073709551615" },
    { 0xffffffffffffffffULL, "%jx", "ffffffffffffffff" },
    { 0x8000000000000000ULL, "%ju", "9223372036854775808" },
    /*
     * These tests imply two's-complement, but it's the only binary
     * representation we support, see test/sanitytest.c...
     */
    { 0x8000000000000000ULL, "%ji", "-9223372036854775808" },
};

static int test_j(int i)
{
    const j_data *data = &jf_data[i];
    char bio_buf[80];

    BIO_snprintf(bio_buf, sizeof(bio_buf) - 1, data->format, data->value);
    if (!TEST_str_eq(bio_buf, data->expected))
        return 0;
    return 1;
}


/* Precision and width. */
typedef struct pw_st {
    int p;
    const char *w;
} pw;

static pw pw_params[] = {
    { 4, "" },
    { 5, "" },
    { 4, "12" },
    { 5, "12" },
    { 0, "" },
    { -1, "" },
    { 4, "08" }
};

static int dofptest(int test, int sub, double val, const char *width, int prec)
{
    static const char *fspecs[] = {
        "e", "f", "g", "E", "G"
    };
    char format[80], result[80];
    int ret = 1, i;

    for (i = 0; i < nelem(fspecs); i++) {
        const char *fspec = fspecs[i];

        if (prec >= 0)
            BIO_snprintf(format, sizeof(format), "%%%s.%d%s", width, prec,
                         fspec);
        else
            BIO_snprintf(format, sizeof(format), "%%%s%s", width, fspec);
        BIO_snprintf(result, sizeof(result), format, val);

        if (justprint) {
            if (i == 0)
                printf("    /*  %d%d */ { \"%s\"", test, sub, result);
            else
                printf(", \"%s\"", result);
        } else if (!TEST_str_eq(fpexpected[test][sub][i], result)) {
            TEST_info("test %d format=|%s| exp=|%s|, ret=|%s|",
                    test, format, fpexpected[test][sub][i], result);
            ret = 0;
        }
    }
    if (justprint)
        printf(" },\n");
    return ret;
}

static int test_fp(int i)
{
    int t = 0, r;
    const double frac = 2.0 / 3.0;
    const pw *pwp = &pw_params[i];

    if (justprint)
        printf("    {\n");
    r = TEST_true(dofptest(i, t++, 0.0, pwp->w, pwp->p))
        && TEST_true(dofptest(i, t++, 0.67, pwp->w, pwp->p))
        && TEST_true(dofptest(i, t++, frac, pwp->w, pwp->p))
        && TEST_true(dofptest(i, t++, frac / 1000, pwp->w, pwp->p))
        && TEST_true(dofptest(i, t++, frac / 10000, pwp->w, pwp->p))
        && TEST_true(dofptest(i, t++, 6.0 + frac, pwp->w, pwp->p))
        && TEST_true(dofptest(i, t++, 66.0 + frac, pwp->w, pwp->p))
        && TEST_true(dofptest(i, t++, 666.0 + frac, pwp->w, pwp->p))
        && TEST_true(dofptest(i, t++, 6666.0 + frac, pwp->w, pwp->p))
        && TEST_true(dofptest(i, t++, 66666.0 + frac, pwp->w, pwp->p));
    if (justprint)
        printf("    },\n");
    return r;
}

static int test_big(void)
{
    char buf[80];

    /* Test excessively big number. Should fail */
    if (!TEST_int_eq(BIO_snprintf(buf, sizeof(buf),
                                  "%f\n", 2 * (double)ULONG_MAX), -1))
        return 0;

    return 1;
}

typedef enum OPTION_choice {
    OPT_ERR = -1,
    OPT_EOF = 0,
    OPT_PRINT,
    OPT_TEST_ENUM
} OPTION_CHOICE;

const OPTIONS *test_get_options(void)
{
    static const OPTIONS options[] = {
        OPT_TEST_OPTIONS_DEFAULT_USAGE,
        { "expected", OPT_PRINT, '-', "Output values" },
        { NULL }
    };
    return options;
}

int setup_tests(void)
{
    OPTION_CHOICE o;

    while ((o = opt_next()) != OPT_EOF) {
        switch (o) {
        case OPT_PRINT:
            justprint = 1;
            break;
        case OPT_TEST_CASES:
            break;
        default:
            return 0;
        }
    }

    ADD_TEST(test_big);
    ADD_ALL_TESTS(test_fp, nelem(pw_params));
    ADD_ALL_TESTS(test_zu, nelem(zu_data));
    ADD_ALL_TESTS(test_j, nelem(jf_data));
    return 1;
}

/*
 * Replace testutil output routines.  We do this to eliminate possible sources
 * of BIO error
 */
void test_open_streams(void)
{
}

void test_close_streams(void)
{
}

/*
 * This works out as long as caller doesn't use any "fancy" formats.
 * But we are caller's caller, and test_str_eq is the only one called,
 * and it uses only "%s", which is not "fancy"...
 */
int test_vprintf_stdout(const char *fmt, va_list ap)
{
    return vfprintf(stdout, fmt, ap);
}

int test_vprintf_stderr(const char *fmt, va_list ap)
{
    return vfprintf(stderr, fmt, ap);
}

int test_flush_stdout(void)
{
    return fflush(stdout);
}

int test_flush_stderr(void)
{
    return fflush(stderr);
}
Commit	Line	Data
f8f686ec	1	/*
00c405b3	2	* Copyright 2016-2020 The OpenSSL Project Authors. All Rights Reserved.
f8f686ec	3	*
909f1a2e	4	* Licensed under the Apache License 2.0 (the "License"). You may not use
f8f686ec MC	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
f044cd05 RL	10	#define TESTUTIL_NO_size_t_COMPARISON
f044cd05 RL	11
f8f686ec MC	12	#include <stdio.h>
	13	#include <string.h>
	14	#include <openssl/bio.h>
6e6aa5a9	15	#include "internal/numbers.h"
3304d578	16	#include "testutil.h"
579d0fab	17	#include "testutil/output.h"
6e6aa5a9	18
3304d578	19	#define nelem(x) (int)(sizeof(x) / sizeof((x)[0]))
f8f686ec MC	20
	21	static int justprint = 0;
	22
5584fd7f P	23	static char *fpexpected[][10][5] = {
	24	{
	25	/* 00 */ { "0.0000e+00", "0.0000", "0", "0.0000E+00", "0" },
	26	/* 01 */ { "6.7000e-01", "0.6700", "0.67", "6.7000E-01", "0.67" },
	27	/* 02 */ { "6.6667e-01", "0.6667", "0.6667", "6.6667E-01", "0.6667" },
	28	/* 03 */ { "6.6667e-04", "0.0007", "0.0006667", "6.6667E-04", "0.0006667" },
	29	/* 04 */ { "6.6667e-05", "0.0001", "6.667e-05", "6.6667E-05", "6.667E-05" },
	30	/* 05 */ { "6.6667e+00", "6.6667", "6.667", "6.6667E+00", "6.667" },
	31	/* 06 */ { "6.6667e+01", "66.6667", "66.67", "6.6667E+01", "66.67" },
	32	/* 07 */ { "6.6667e+02", "666.6667", "666.7", "6.6667E+02", "666.7" },
	33	/* 08 */ { "6.6667e+03", "6666.6667", "6667", "6.6667E+03", "6667" },
	34	/* 09 */ { "6.6667e+04", "66666.6667", "6.667e+04", "6.6667E+04", "6.667E+04" },
	35	},
	36	{
f8f686ec MC	37	/* 10 */ { "0.00000e+00", "0.00000", "0", "0.00000E+00", "0" },
	38	/* 11 */ { "6.70000e-01", "0.67000", "0.67", "6.70000E-01", "0.67" },
	39	/* 12 */ { "6.66667e-01", "0.66667", "0.66667", "6.66667E-01", "0.66667" },
	40	/* 13 */ { "6.66667e-04", "0.00067", "0.00066667", "6.66667E-04", "0.00066667" },
	41	/* 14 */ { "6.66667e-05", "0.00007", "6.6667e-05", "6.66667E-05", "6.6667E-05" },
	42	/* 15 */ { "6.66667e+00", "6.66667", "6.6667", "6.66667E+00", "6.6667" },
	43	/* 16 */ { "6.66667e+01", "66.66667", "66.667", "6.66667E+01", "66.667" },
	44	/* 17 */ { "6.66667e+02", "666.66667", "666.67", "6.66667E+02", "666.67" },
	45	/* 18 */ { "6.66667e+03", "6666.66667", "6666.7", "6.66667E+03", "6666.7" },
	46	/* 19 */ { "6.66667e+04", "66666.66667", "66667", "6.66667E+04", "66667" },
5584fd7f P	47	},
5584fd7f P	48	{
f8f686ec MC	49	/* 20 */ { " 0.0000e+00", " 0.0000", " 0", " 0.0000E+00", " 0" },
	50	/* 21 */ { " 6.7000e-01", " 0.6700", " 0.67", " 6.7000E-01", " 0.67" },
	51	/* 22 */ { " 6.6667e-01", " 0.6667", " 0.6667", " 6.6667E-01", " 0.6667" },
	52	/* 23 */ { " 6.6667e-04", " 0.0007", " 0.0006667", " 6.6667E-04", " 0.0006667" },
	53	/* 24 */ { " 6.6667e-05", " 0.0001", " 6.667e-05", " 6.6667E-05", " 6.667E-05" },
	54	/* 25 */ { " 6.6667e+00", " 6.6667", " 6.667", " 6.6667E+00", " 6.667" },
	55	/* 26 */ { " 6.6667e+01", " 66.6667", " 66.67", " 6.6667E+01", " 66.67" },
	56	/* 27 */ { " 6.6667e+02", " 666.6667", " 666.7", " 6.6667E+02", " 666.7" },
	57	/* 28 */ { " 6.6667e+03", " 6666.6667", " 6667", " 6.6667E+03", " 6667" },
	58	/* 29 */ { " 6.6667e+04", " 66666.6667", " 6.667e+04", " 6.6667E+04", " 6.667E+04" },
5584fd7f P	59	},
5584fd7f P	60	{
f8f686ec MC	61	/* 30 */ { " 0.00000e+00", " 0.00000", " 0", " 0.00000E+00", " 0" },
	62	/* 31 */ { " 6.70000e-01", " 0.67000", " 0.67", " 6.70000E-01", " 0.67" },
	63	/* 32 */ { " 6.66667e-01", " 0.66667", " 0.66667", " 6.66667E-01", " 0.66667" },
	64	/* 33 */ { " 6.66667e-04", " 0.00067", " 0.00066667", " 6.66667E-04", " 0.00066667" },
	65	/* 34 */ { " 6.66667e-05", " 0.00007", " 6.6667e-05", " 6.66667E-05", " 6.6667E-05" },
	66	/* 35 */ { " 6.66667e+00", " 6.66667", " 6.6667", " 6.66667E+00", " 6.6667" },
	67	/* 36 */ { " 6.66667e+01", " 66.66667", " 66.667", " 6.66667E+01", " 66.667" },
	68	/* 37 */ { " 6.66667e+02", " 666.66667", " 666.67", " 6.66667E+02", " 666.67" },
	69	/* 38 */ { " 6.66667e+03", " 6666.66667", " 6666.7", " 6.66667E+03", " 6666.7" },
	70	/* 39 */ { " 6.66667e+04", " 66666.66667", " 66667", " 6.66667E+04", " 66667" },
5584fd7f P	71	},
5584fd7f P	72	{
f8f686ec MC	73	/* 40 */ { "0e+00", "0", "0", "0E+00", "0" },
	74	/* 41 */ { "7e-01", "1", "0.7", "7E-01", "0.7" },
	75	/* 42 */ { "7e-01", "1", "0.7", "7E-01", "0.7" },
	76	/* 43 */ { "7e-04", "0", "0.0007", "7E-04", "0.0007" },
	77	/* 44 */ { "7e-05", "0", "7e-05", "7E-05", "7E-05" },
	78	/* 45 */ { "7e+00", "7", "7", "7E+00", "7" },
	79	/* 46 */ { "7e+01", "67", "7e+01", "7E+01", "7E+01" },
	80	/* 47 */ { "7e+02", "667", "7e+02", "7E+02", "7E+02" },
	81	/* 48 */ { "7e+03", "6667", "7e+03", "7E+03", "7E+03" },
	82	/* 49 */ { "7e+04", "66667", "7e+04", "7E+04", "7E+04" },
5584fd7f P	83	},
5584fd7f P	84	{
f8f686ec MC	85	/* 50 */ { "0.000000e+00", "0.000000", "0", "0.000000E+00", "0" },
	86	/* 51 */ { "6.700000e-01", "0.670000", "0.67", "6.700000E-01", "0.67" },
	87	/* 52 */ { "6.666667e-01", "0.666667", "0.666667", "6.666667E-01", "0.666667" },
	88	/* 53 */ { "6.666667e-04", "0.000667", "0.000666667", "6.666667E-04", "0.000666667" },
	89	/* 54 */ { "6.666667e-05", "0.000067", "6.66667e-05", "6.666667E-05", "6.66667E-05" },
	90	/* 55 */ { "6.666667e+00", "6.666667", "6.66667", "6.666667E+00", "6.66667" },
	91	/* 56 */ { "6.666667e+01", "66.666667", "66.6667", "6.666667E+01", "66.6667" },
	92	/* 57 */ { "6.666667e+02", "666.666667", "666.667", "6.666667E+02", "666.667" },
	93	/* 58 */ { "6.666667e+03", "6666.666667", "6666.67", "6.666667E+03", "6666.67" },
	94	/* 59 */ { "6.666667e+04", "66666.666667", "66666.7", "6.666667E+04", "66666.7" },
5584fd7f P	95	},
5584fd7f P	96	{
f8f686ec MC	97	/* 60 */ { "0.0000e+00", "000.0000", "00000000", "0.0000E+00", "00000000" },
	98	/* 61 */ { "6.7000e-01", "000.6700", "00000.67", "6.7000E-01", "00000.67" },
	99	/* 62 */ { "6.6667e-01", "000.6667", "000.6667", "6.6667E-01", "000.6667" },
	100	/* 63 */ { "6.6667e-04", "000.0007", "0.0006667", "6.6667E-04", "0.0006667" },
	101	/* 64 */ { "6.6667e-05", "000.0001", "6.667e-05", "6.6667E-05", "6.667E-05" },
	102	/* 65 */ { "6.6667e+00", "006.6667", "0006.667", "6.6667E+00", "0006.667" },
	103	/* 66 */ { "6.6667e+01", "066.6667", "00066.67", "6.6667E+01", "00066.67" },
	104	/* 67 */ { "6.6667e+02", "666.6667", "000666.7", "6.6667E+02", "000666.7" },
	105	/* 68 */ { "6.6667e+03", "6666.6667", "00006667", "6.6667E+03", "00006667" },
	106	/* 69 */ { "6.6667e+04", "66666.6667", "6.667e+04", "6.6667E+04", "6.667E+04" },
5584fd7f	107	},
f8f686ec MC	108	};
f8f686ec MC	109
3304d578	110	typedef struct z_data_st {
6e6aa5a9 RL	111	size_t value;
	112	const char *format;
	113	const char *expected;
3304d578 RS	114	} z_data;
	115
	116	static z_data zu_data[] = {
6e6aa5a9 RL	117	{ SIZE_MAX, "%zu", (sizeof(size_t) == 4 ? "4294967295"
	118	: sizeof(size_t) == 8 ? "18446744073709551615"
	119	: "") },
	120	/*
	121	* in 2-complement, the unsigned number divided by two plus one becomes the
	122	* smallest possible negative signed number of the corresponding type
	123	*/
	124	{ SIZE_MAX / 2 + 1, "%zi", (sizeof(size_t) == 4 ? "-2147483648"
	125	: sizeof(size_t) == 8 ? "-9223372036854775808"
	126	: "") },
	127	{ 0, "%zu", "0" },
	128	{ 0, "%zi", "0" },
	129	};
	130
3304d578	131	static int test_zu(int i)
6e6aa5a9 RL	132	{
6e6aa5a9 RL	133	char bio_buf[80];
3304d578	134	const z_data *data = &zu_data[i];
6e6aa5a9 RL	135
6e6aa5a9 RL	136	BIO_snprintf(bio_buf, sizeof(bio_buf) - 1, data->format, data->value);
3304d578 RS	137	if (!TEST_str_eq(bio_buf, data->expected))
	138	return 0;
	139	return 1;
6e6aa5a9 RL	140	}
6e6aa5a9 RL	141
3304d578	142	typedef struct j_data_st {
74d9519a AP	143	uint64_t value;
	144	const char *format;
	145	const char *expected;
3304d578 RS	146	} j_data;
	147
	148	static j_data jf_data[] = {
98f29466 SL	149	{ 0xffffffffffffffffULL, "%ju", "18446744073709551615" },
	150	{ 0xffffffffffffffffULL, "%jx", "ffffffffffffffff" },
	151	{ 0x8000000000000000ULL, "%ju", "9223372036854775808" },
74d9519a AP	152	/*
	153	* These tests imply two's-complement, but it's the only binary
	154	* representation we support, see test/sanitytest.c...
	155	*/
98f29466	156	{ 0x8000000000000000ULL, "%ji", "-9223372036854775808" },
74d9519a AP	157	};
74d9519a AP	158
3304d578	159	static int test_j(int i)
74d9519a	160	{
3304d578	161	const j_data *data = &jf_data[i];
74d9519a AP	162	char bio_buf[80];
	163
	164	BIO_snprintf(bio_buf, sizeof(bio_buf) - 1, data->format, data->value);
3304d578 RS	165	if (!TEST_str_eq(bio_buf, data->expected))
	166	return 0;
	167	return 1;
74d9519a AP	168	}
74d9519a AP	169
3304d578 RS	170
	171	/* Precision and width. */
	172	typedef struct pw_st {
	173	int p;
	174	const char *w;
	175	} pw;
	176
	177	static pw pw_params[] = {
	178	{ 4, "" },
	179	{ 5, "" },
	180	{ 4, "12" },
	181	{ 5, "12" },
	182	{ 0, "" },
	183	{ -1, "" },
	184	{ 4, "08" }
	185	};
	186
5584fd7f	187	static int dofptest(int test, int sub, double val, const char *width, int prec)
f8f686ec	188	{
3304d578 RS	189	static const char *fspecs[] = {
	190	"e", "f", "g", "E", "G"
	191	};
	192	char format[80], result[80];
	193	int ret = 1, i;
f8f686ec	194
3304d578 RS	195	for (i = 0; i < nelem(fspecs); i++) {
3304d578 RS	196	const char *fspec = fspecs[i];
f8f686ec	197
3304d578 RS	198	if (prec >= 0)
	199	BIO_snprintf(format, sizeof(format), "%%%s.%d%s", width, prec,
	200	fspec);
	201	else
	202	BIO_snprintf(format, sizeof(format), "%%%s%s", width, fspec);
	203	BIO_snprintf(result, sizeof(result), format, val);
f8f686ec	204
3304d578 RS	205	if (justprint) {
3304d578 RS	206	if (i == 0)
5584fd7f	207	printf(" /* %d%d */ { \"%s\"", test, sub, result);
3304d578 RS	208	else
3304d578 RS	209	printf(", \"%s\"", result);
5584fd7f	210	} else if (!TEST_str_eq(fpexpected[test][sub][i], result)) {
3304d578	211	TEST_info("test %d format=\|%s\| exp=\|%s\|, ret=\|%s\|",
5584fd7f	212	test, format, fpexpected[test][sub][i], result);
3304d578	213	ret = 0;
f8f686ec	214	}
f8f686ec	215	}
3304d578 RS	216	if (justprint)
	217	printf(" },\n");
	218	return ret;
	219	}
f8f686ec	220
3304d578 RS	221	static int test_fp(int i)
3304d578 RS	222	{
5584fd7f	223	int t = 0, r;
3304d578 RS	224	const double frac = 2.0 / 3.0;
	225	const pw *pwp = &pw_params[i];
	226
5584fd7f P	227	if (justprint)
	228	printf(" {\n");
	229	r = TEST_true(dofptest(i, t++, 0.0, pwp->w, pwp->p))
	230	&& TEST_true(dofptest(i, t++, 0.67, pwp->w, pwp->p))
	231	&& TEST_true(dofptest(i, t++, frac, pwp->w, pwp->p))
	232	&& TEST_true(dofptest(i, t++, frac / 1000, pwp->w, pwp->p))
	233	&& TEST_true(dofptest(i, t++, frac / 10000, pwp->w, pwp->p))
	234	&& TEST_true(dofptest(i, t++, 6.0 + frac, pwp->w, pwp->p))
	235	&& TEST_true(dofptest(i, t++, 66.0 + frac, pwp->w, pwp->p))
	236	&& TEST_true(dofptest(i, t++, 666.0 + frac, pwp->w, pwp->p))
	237	&& TEST_true(dofptest(i, t++, 6666.0 + frac, pwp->w, pwp->p))
	238	&& TEST_true(dofptest(i, t++, 66666.0 + frac, pwp->w, pwp->p));
	239	if (justprint)
	240	printf(" },\n");
	241	return r;
3304d578	242	}
f8f686ec	243
3304d578 RS	244	static int test_big(void)
	245	{
	246	char buf[80];
6e6aa5a9	247
3304d578 RS	248	/* Test excessively big number. Should fail */
	249	if (!TEST_int_eq(BIO_snprintf(buf, sizeof(buf),
	250	"%f\n", 2 * (double)ULONG_MAX), -1))
	251	return 0;
082c041b	252
3304d578 RS	253	return 1;
3304d578 RS	254	}
6e6aa5a9	255
a43ce58f SL	256	typedef enum OPTION_choice {
	257	OPT_ERR = -1,
	258	OPT_EOF = 0,
	259	OPT_PRINT,
	260	OPT_TEST_ENUM
	261	} OPTION_CHOICE;
	262
	263	const OPTIONS *test_get_options(void)
	264	{
	265	static const OPTIONS options[] = {
	266	OPT_TEST_OPTIONS_DEFAULT_USAGE,
	267	{ "expected", OPT_PRINT, '-', "Output values" },
	268	{ NULL }
	269	};
	270	return options;
	271	}
f8f686ec	272
ad887416	273	int setup_tests(void)
3304d578	274	{
a43ce58f SL	275	OPTION_CHOICE o;
	276
	277	while ((o = opt_next()) != OPT_EOF) {
	278	switch (o) {
	279	case OPT_PRINT:
	280	justprint = 1;
	281	break;
	282	case OPT_TEST_CASES:
	283	break;
	284	default:
	285	return 0;
	286	}
	287	}
f8f686ec	288
3304d578 RS	289	ADD_TEST(test_big);
	290	ADD_ALL_TESTS(test_fp, nelem(pw_params));
	291	ADD_ALL_TESTS(test_zu, nelem(zu_data));
	292	ADD_ALL_TESTS(test_j, nelem(jf_data));
ad887416	293	return 1;
3304d578	294	}
f044cd05 RL	295
	296	/*
	297	* Replace testutil output routines. We do this to eliminate possible sources
	298	* of BIO error
	299	*/
	300	void test_open_streams(void)
	301	{
	302	}
	303
	304	void test_close_streams(void)
	305	{
	306	}
	307
dd05be5d AP	308	/*
	309	* This works out as long as caller doesn't use any "fancy" formats.
	310	* But we are caller's caller, and test_str_eq is the only one called,
	311	* and it uses only "%s", which is not "fancy"...
	312	*/
f044cd05 RL	313	int test_vprintf_stdout(const char *fmt, va_list ap)
f044cd05 RL	314	{
0918b94c	315	return vfprintf(stdout, fmt, ap);
f044cd05 RL	316	}
	317
	318	int test_vprintf_stderr(const char *fmt, va_list ap)
	319	{
0918b94c	320	return vfprintf(stderr, fmt, ap);
f044cd05 RL	321	}
	322
	323	int test_flush_stdout(void)
	324	{
dd05be5d	325	return fflush(stdout);
f044cd05 RL	326	}
	327
	328	int test_flush_stderr(void)
	329	{
dd05be5d	330	return fflush(stderr);
f044cd05	331	}
a43ce58f	332