tomato-testing/tests/test_sprintf.c
Green Sky 3cd551098b Squashed 'external/stb/stb/' content from commit c39c7023e
git-subtree-dir: external/stb/stb
git-subtree-split: c39c7023ebb833ce099750fe35509aca5662695e
2023-08-01 20:11:22 +02:00

203 lines
7.2 KiB
C

#define USE_STB 1
#if USE_STB
# include "stb_sprintf.h"
# define SPRINTF stbsp_sprintf
# define SNPRINTF stbsp_snprintf
#else
# include <locale.h>
# define SPRINTF sprintf
# define SNPRINTF snprintf
#endif
#include <assert.h>
#include <math.h> // for INFINITY, NAN
#include <stddef.h> // for ptrdiff_t
#include <stdio.h> // for printf
#include <string.h> // for strcmp, strncmp, strlen
#if _MSC_VER && _MSC_VER <= 1600
typedef int intmax_t;
typedef ptrdiff_t ssize_t;
#else
#include <stdint.h> // for intmax_t, ssize_t
#endif
// stbsp_sprintf
#define CHECK_END(str) \
if (strcmp(buf, str) != 0 || (unsigned) ret != strlen(str)) { \
printf("< '%s'\n> '%s'\n", str, buf); \
assert(!"Fail"); \
}
#define CHECK9(str, v1, v2, v3, v4, v5, v6, v7, v8, v9) { int ret = SPRINTF(buf, v1, v2, v3, v4, v5, v6, v7, v8, v9); CHECK_END(str); }
#define CHECK8(str, v1, v2, v3, v4, v5, v6, v7, v8 ) { int ret = SPRINTF(buf, v1, v2, v3, v4, v5, v6, v7, v8 ); CHECK_END(str); }
#define CHECK7(str, v1, v2, v3, v4, v5, v6, v7 ) { int ret = SPRINTF(buf, v1, v2, v3, v4, v5, v6, v7 ); CHECK_END(str); }
#define CHECK6(str, v1, v2, v3, v4, v5, v6 ) { int ret = SPRINTF(buf, v1, v2, v3, v4, v5, v6 ); CHECK_END(str); }
#define CHECK5(str, v1, v2, v3, v4, v5 ) { int ret = SPRINTF(buf, v1, v2, v3, v4, v5 ); CHECK_END(str); }
#define CHECK4(str, v1, v2, v3, v4 ) { int ret = SPRINTF(buf, v1, v2, v3, v4 ); CHECK_END(str); }
#define CHECK3(str, v1, v2, v3 ) { int ret = SPRINTF(buf, v1, v2, v3 ); CHECK_END(str); }
#define CHECK2(str, v1, v2 ) { int ret = SPRINTF(buf, v1, v2 ); CHECK_END(str); }
#define CHECK1(str, v1 ) { int ret = SPRINTF(buf, v1 ); CHECK_END(str); }
#ifdef TEST_SPRINTF
int main()
{
char buf[1024];
int n = 0;
const double pow_2_75 = 37778931862957161709568.0;
const double pow_2_85 = 38685626227668133590597632.0;
// integers
CHECK4("a b 1", "%c %s %d", 'a', "b", 1);
CHECK2("abc ", "%-8.3s", "abcdefgh");
CHECK2("+5", "%+2d", 5);
CHECK2(" 6", "% 3i", 6);
CHECK2("-7 ", "%-4d", -7);
CHECK2("+0", "%+d", 0);
CHECK3(" 00003: 00004", "%10.5d:%10.5d", 3, 4);
CHECK2("-100006789", "%d", -100006789);
CHECK3("20 0020", "%u %04u", 20u, 20u);
CHECK4("12 1e 3C", "%o %x %X", 10u, 30u, 60u);
CHECK4(" 12 1e 3C ", "%3o %2x %-3X", 10u, 30u, 60u);
CHECK4("012 0x1e 0X3C", "%#o %#x %#X", 10u, 30u, 60u);
CHECK2("", "%.0x", 0);
#if USE_STB
CHECK2("0", "%.0d", 0); // stb_sprintf gives "0"
#else
CHECK2("", "%.0d", 0); // glibc gives "" as specified by C99(?)
#endif
CHECK3("33 555", "%hi %ld", (short)33, 555l);
#if !defined(_MSC_VER) || _MSC_VER >= 1600
CHECK2("9888777666", "%llu", 9888777666llu);
#endif
CHECK4("-1 2 -3", "%ji %zi %ti", (intmax_t)-1, (ssize_t)2, (ptrdiff_t)-3);
// floating-point numbers
CHECK2("-3.000000", "%f", -3.0);
CHECK2("-8.8888888800", "%.10f", -8.88888888);
CHECK2("880.0888888800", "%.10f", 880.08888888);
CHECK2("4.1", "%.1f", 4.1);
CHECK2(" 0", "% .0f", 0.1);
CHECK2("0.00", "%.2f", 1e-4);
CHECK2("-5.20", "%+4.2f", -5.2);
CHECK2("0.0 ", "%-10.1f", 0.);
CHECK2("-0.000000", "%f", -0.);
CHECK2("0.000001", "%f", 9.09834e-07);
#if USE_STB // rounding differences
CHECK2("38685626227668133600000000.0", "%.1f", pow_2_85);
CHECK2("0.000000499999999999999978", "%.24f", 5e-7);
#else
CHECK2("38685626227668133590597632.0", "%.1f", pow_2_85); // exact
CHECK2("0.000000499999999999999977", "%.24f", 5e-7);
#endif
CHECK2("0.000000000000000020000000", "%.24f", 2e-17);
CHECK3("0.0000000100 100000000", "%.10f %.0f", 1e-8, 1e+8);
CHECK2("100056789.0", "%.1f", 100056789.0);
CHECK4(" 1.23 %", "%*.*f %%", 5, 2, 1.23);
CHECK2("-3.000000e+00", "%e", -3.0);
CHECK2("4.1E+00", "%.1E", 4.1);
CHECK2("-5.20e+00", "%+4.2e", -5.2);
CHECK3("+0.3 -3", "%+g %+g", 0.3, -3.0);
CHECK2("4", "%.1G", 4.1);
CHECK2("-5.2", "%+4.2g", -5.2);
CHECK2("3e-300", "%g", 3e-300);
CHECK2("1", "%.0g", 1.2);
CHECK3(" 3.7 3.71", "% .3g %.3g", 3.704, 3.706);
CHECK3("2e-315:1e+308", "%g:%g", 2e-315, 1e+308);
#if __STDC_VERSION__ >= 199901L
#if USE_STB
CHECK4("Inf Inf NaN", "%g %G %f", INFINITY, INFINITY, NAN);
CHECK2("N", "%.1g", NAN);
#else
CHECK4("inf INF nan", "%g %G %f", INFINITY, INFINITY, NAN);
CHECK2("nan", "%.1g", NAN);
#endif
#endif
// %n
CHECK3("aaa ", "%.3s %n", "aaaaaaaaaaaaa", &n);
assert(n == 4);
#if __STDC_VERSION__ >= 199901L
// hex floats
CHECK2("0x1.fedcbap+98", "%a", 0x1.fedcbap+98);
CHECK2("0x1.999999999999a0p-4", "%.14a", 0.1);
CHECK2("0x1.0p-1022", "%.1a", 0x1.ffp-1023);
#if USE_STB // difference in default precision and x vs X for %A
CHECK2("0x1.009117p-1022", "%a", 2.23e-308);
CHECK2("-0x1.AB0P-5", "%.3A", -0x1.abp-5);
#else
CHECK2("0x1.0091177587f83p-1022", "%a", 2.23e-308);
CHECK2("-0X1.AB0P-5", "%.3A", -0X1.abp-5);
#endif
#endif
// %p
#if USE_STB
CHECK2("0000000000000000", "%p", (void*) NULL);
#else
CHECK2("(nil)", "%p", (void*) NULL);
#endif
// snprintf
assert(SNPRINTF(buf, 100, " %s %d", "b", 123) == 10);
assert(strcmp(buf, " b 123") == 0);
assert(SNPRINTF(buf, 100, "%f", pow_2_75) == 30);
assert(strncmp(buf, "37778931862957161709568.000000", 17) == 0);
n = SNPRINTF(buf, 10, "number %f", 123.456789);
assert(strcmp(buf, "number 12") == 0);
assert(n == 17); // written vs would-be written bytes
n = SNPRINTF(buf, 0, "7 chars");
assert(n == 7);
// stb_sprintf uses internal buffer of 512 chars - test longer string
assert(SPRINTF(buf, "%d %600s", 3, "abc") == 603);
assert(strlen(buf) == 603);
SNPRINTF(buf, 550, "%d %600s", 3, "abc");
assert(strlen(buf) == 549);
assert(SNPRINTF(buf, 600, "%510s %c", "a", 'b') == 516);
// length check
assert(SNPRINTF(NULL, 0, " %s %d", "b", 123) == 10);
// ' modifier. Non-standard, but supported by glibc.
#if !USE_STB
setlocale(LC_NUMERIC, ""); // C locale does not group digits
#endif
CHECK2("1,200,000", "%'d", 1200000);
CHECK2("-100,006,789", "%'d", -100006789);
#if !defined(_MSC_VER) || _MSC_VER >= 1600
CHECK2("9,888,777,666", "%'lld", 9888777666ll);
#endif
CHECK2("200,000,000.000000", "%'18f", 2e8);
CHECK2("100,056,789", "%'.0f", 100056789.0);
CHECK2("100,056,789.0", "%'.1f", 100056789.0);
#if USE_STB // difference in leading zeros
CHECK2("000,001,200,000", "%'015d", 1200000);
#else
CHECK2("0000001,200,000", "%'015d", 1200000);
#endif
// things not supported by glibc
#if USE_STB
CHECK2("null", "%s", (char*) NULL);
CHECK2("123,4abc:", "%'x:", 0x1234ABC);
CHECK2("100000000", "%b", 256);
CHECK3("0b10 0B11", "%#b %#B", 2, 3);
#if !defined(_MSC_VER) || _MSC_VER >= 1600
CHECK4("2 3 4", "%I64d %I32d %Id", 2ll, 3, 4ll);
#endif
CHECK3("1k 2.54 M", "%$_d %$.2d", 1000, 2536000);
CHECK3("2.42 Mi 2.4 M", "%$$.2d %$$$d", 2536000, 2536000);
// different separators
stbsp_set_separators(' ', ',');
CHECK2("12 345,678900", "%'f", 12345.6789);
#endif
return 0;
}
#endif