mirror of
https://github.com/cc65/cc65.git
synced 2024-08-17 03:29:15 +00:00
Comment from the author: Some may remember that there was a problem with printf reported a long time ago. I got curious and over the weekend, I wrote a program to test printf. Or better: The underlying formatting code, which is used for the whole printf() family of functions including cprintf and sprintf. The result is what made me say "oops": The program tests 377 different conversions. The cc65 printf implementation fails in 144 cases. In 31 of these cases, it fails so badly that it outputs screens of garbage, or even crashes the machine, so I had to disable these tests to proceed. Please note that you can compile the code with gcc for x86, but it will show failures. This is because the expected results are hardcoded and the integer sizes of gcc are different, so the conversion results won't match the ones expected in the code.
578 lines
31 KiB
C
578 lines
31 KiB
C
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <stdarg.h>
|
|
#if defined(__CC65__)
|
|
#include <conio.h>
|
|
#endif
|
|
|
|
|
|
/* Flag to #ifdef the tests out that crash the old implementation */
|
|
/*#define NOCRASH 1 */
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
/* Code */
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
/* Struct used to test the 'n' conversion specifier. It is machine dependent /
|
|
* not portable.
|
|
*/
|
|
typedef union WriteCount WriteCount;
|
|
union WriteCount {
|
|
signed char C;
|
|
int I;
|
|
long L;
|
|
};
|
|
|
|
/* Count the number of tests and the number of failures */
|
|
static unsigned Tests = 0;
|
|
static unsigned Failures = 0;
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
/* Code */
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
static void OneTest (int Line, const char* RString, int RCount, const char* Format, ...)
|
|
/* Test one conversion. Line is the line number (to make the life of the
|
|
* tester easier), RString the expected result and RCount the expected return
|
|
* count. The other parameters are used for formatting.
|
|
*/
|
|
{
|
|
int Count;
|
|
char Buf[128];
|
|
va_list ap;
|
|
|
|
/* Count the number of tests */
|
|
++Tests;
|
|
|
|
/* Format the string using the given arguments */
|
|
va_start (ap, Format);
|
|
Count = vsprintf (Buf, Format, ap);
|
|
va_end (ap);
|
|
|
|
/* Check the result */
|
|
if (Count != RCount || strcmp (Buf, RString) != 0) {
|
|
++Failures;
|
|
printf ("%3d: \"%s\" (%d)\n"
|
|
" \"%s\" (%d)\n",
|
|
Line, Buf, Count, RString, RCount);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
static void WriteTest (int Line, const char* Format, WriteCount* W, long Count)
|
|
/* Test one write conversion. Line is the line number (to make the life of the
|
|
* tester easier), Format is the format specification. W is a WriteCount
|
|
* variable and Count is the expected result.
|
|
*/
|
|
{
|
|
/* Clear the counter in full length */
|
|
W->L = 0x5A5A5A5AL;
|
|
|
|
/* Format the string using the given arguments */
|
|
OneTest (Line, "4200", 4, Format, 4200, W);
|
|
|
|
/* Check the counter */
|
|
if (W->L != Count) {
|
|
++Failures;
|
|
printf ("%3d: n = 0x%08lX\n"
|
|
" n = 0x%08lX\n",
|
|
Line, W->L, Count);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
int main (void)
|
|
{
|
|
WriteCount W;
|
|
|
|
|
|
/* The one and only starter to begin with ... */
|
|
OneTest (__LINE__, "hello, world", 12, "hello, world");
|
|
|
|
/* Duplicate percent signs are used to output single ones */
|
|
OneTest (__LINE__, "hello % %", 9, "hello %% %%");
|
|
|
|
/* Simple conversions */
|
|
OneTest (__LINE__, "u", 1, "%c", 'u');
|
|
OneTest (__LINE__, "4200", 4, "%d", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%d", -4200);
|
|
OneTest (__LINE__, "4200", 4, "%i", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%i", -4200);
|
|
OneTest (__LINE__, "10150", 5, "%o", 4200U);
|
|
OneTest (__LINE__, "167630", 6, "%o", -4200U);
|
|
OneTest (__LINE__, "hello, world", 12, "hello, %s", "world");
|
|
OneTest (__LINE__, "4200", 4, "%u", 4200U);
|
|
OneTest (__LINE__, "61336", 5, "%u", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%x", 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "%x", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%X", 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "%X", -4200U);
|
|
|
|
/* Simple conversions with special values */
|
|
OneTest (__LINE__, "\0", 1, "%c", '\0');
|
|
OneTest (__LINE__, "0", 1, "%d", 0);
|
|
OneTest (__LINE__, "0", 1, "%o", 0U);
|
|
OneTest (__LINE__, "hello, ", 7, "hello, %s", "");
|
|
OneTest (__LINE__, "0", 1, "%u", 0U);
|
|
OneTest (__LINE__, "0", 1, "%x", 0U);
|
|
|
|
/* 'h' modifier */
|
|
OneTest (__LINE__, "4200", 4, "%hd", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%hd", -4200);
|
|
OneTest (__LINE__, "4200", 4, "%hi", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%hi", -4200);
|
|
OneTest (__LINE__, "10150", 5, "%ho", 4200U);
|
|
OneTest (__LINE__, "167630", 6, "%ho", -4200U);
|
|
OneTest (__LINE__, "4200", 4, "%hu", 4200U);
|
|
OneTest (__LINE__, "61336", 5, "%hu", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%hx", 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "%hx", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%hX", 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "%hX", -4200U);
|
|
|
|
/* 'hh' modifier */
|
|
OneTest (__LINE__, "104", 3, "%hhd", 4200);
|
|
OneTest (__LINE__, "-104", 4, "%hhd", -4200);
|
|
OneTest (__LINE__, "104", 3, "%hhi", 4200);
|
|
OneTest (__LINE__, "-104", 4, "%hhi", -4200);
|
|
OneTest (__LINE__, "150", 3, "%hho", 4200U);
|
|
OneTest (__LINE__, "230", 3, "%hho", -4200U);
|
|
OneTest (__LINE__, "104", 3, "%hhu", 4200U);
|
|
OneTest (__LINE__, "152", 3, "%hhu", -4200U);
|
|
OneTest (__LINE__, "68", 2, "%hhx", 4200U);
|
|
OneTest (__LINE__, "98", 2, "%hhx", -4200U);
|
|
OneTest (__LINE__, "68", 2, "%hhX", 4200U);
|
|
OneTest (__LINE__, "98", 2, "%hhX", -4200U);
|
|
|
|
/* 'j' modifier */
|
|
OneTest (__LINE__, "4200123", 7, "%jd", 4200123L);
|
|
OneTest (__LINE__, "-4200123", 8, "%jd", -4200123L);
|
|
OneTest (__LINE__, "4200123", 7, "%ji", 4200123L);
|
|
OneTest (__LINE__, "-4200123", 8, "%ji", -4200123L);
|
|
OneTest (__LINE__, "20013273", 8, "%jo", 4200123UL);
|
|
OneTest (__LINE__, "37757764505", 11, "%jo", -4200123UL);
|
|
OneTest (__LINE__, "4200123", 7, "%ju", 4200123UL);
|
|
OneTest (__LINE__, "4290767173", 10, "%ju", -4200123UL);
|
|
OneTest (__LINE__, "4016bb", 6, "%jx", 4200123UL);
|
|
OneTest (__LINE__, "ffbfe945", 8, "%jx", -4200123UL);
|
|
OneTest (__LINE__, "4016BB", 6, "%jX", 4200123UL);
|
|
OneTest (__LINE__, "FFBFE945", 8, "%jX", -4200123UL);
|
|
|
|
/* 'l' modifier */
|
|
OneTest (__LINE__, "4200123", 7, "%ld", 4200123L);
|
|
OneTest (__LINE__, "-4200123", 8, "%ld", -4200123L);
|
|
OneTest (__LINE__, "4200123", 7, "%li", 4200123L);
|
|
OneTest (__LINE__, "-4200123", 8, "%li", -4200123L);
|
|
OneTest (__LINE__, "20013273", 8, "%lo", 4200123UL);
|
|
OneTest (__LINE__, "37757764505", 11, "%lo", -4200123UL);
|
|
OneTest (__LINE__, "4200123", 7, "%lu", 4200123UL);
|
|
OneTest (__LINE__, "4290767173", 10, "%lu", -4200123UL);
|
|
OneTest (__LINE__, "4016bb", 6, "%lx", 4200123UL);
|
|
OneTest (__LINE__, "ffbfe945", 8, "%lx", -4200123UL);
|
|
OneTest (__LINE__, "4016BB", 6, "%lX", 4200123UL);
|
|
OneTest (__LINE__, "FFBFE945", 8, "%lX", -4200123UL);
|
|
|
|
/* 't' modifier */
|
|
OneTest (__LINE__, "4200", 4, "%td", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%td", -4200);
|
|
OneTest (__LINE__, "4200", 4, "%ti", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%ti", -4200);
|
|
OneTest (__LINE__, "10150", 5, "%to", 4200U);
|
|
OneTest (__LINE__, "167630", 6, "%to", -4200U);
|
|
OneTest (__LINE__, "4200", 4, "%tu", 4200U);
|
|
OneTest (__LINE__, "61336", 5, "%tu", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%tx", 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "%tx", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%tX", 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "%tX", -4200U);
|
|
|
|
/* 'z' modifier */
|
|
OneTest (__LINE__, "4200", 4, "%zd", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%zd", -4200);
|
|
OneTest (__LINE__, "4200", 4, "%zi", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%zi", -4200);
|
|
OneTest (__LINE__, "10150", 5, "%zo", 4200U);
|
|
OneTest (__LINE__, "167630", 6, "%zo", -4200U);
|
|
OneTest (__LINE__, "4200", 4, "%zu", 4200U);
|
|
OneTest (__LINE__, "61336", 5, "%zu", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%zx", 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "%zx", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%zX", 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "%zX", -4200U);
|
|
|
|
/* '+' forces a sign for signed conversions */
|
|
OneTest (__LINE__, "u", 1, "%+c", 'u');
|
|
OneTest (__LINE__, "+4200", 5, "%+d", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%+d", -4200);
|
|
OneTest (__LINE__, "+4200", 5, "%+i", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%+i", -4200);
|
|
OneTest (__LINE__, "10150", 5, "%+o", 4200U);
|
|
OneTest (__LINE__, "167630", 6, "%+o", -4200U);
|
|
OneTest (__LINE__, "hello, world", 12, "%+s", "hello, world");
|
|
OneTest (__LINE__, "4200", 4, "%+u", 4200U);
|
|
OneTest (__LINE__, "61336", 5, "%+u", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%+x", 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "%+x", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%+X", 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "%+X", -4200U);
|
|
|
|
/* ' ': If the first character of a signed conversion is not a sign, or if
|
|
* a signed conversion results in no characters, a space is prefixed
|
|
* to the result.
|
|
*/
|
|
OneTest (__LINE__, "u", 1, "% c", 'u');
|
|
OneTest (__LINE__, " 4200", 5, "% d", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "% d", -4200);
|
|
OneTest (__LINE__, " 4200", 5, "% i", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "% i", -4200);
|
|
OneTest (__LINE__, "10150", 5, "% o", 4200U);
|
|
OneTest (__LINE__, "167630", 6, "% o", -4200U);
|
|
OneTest (__LINE__, "hello, world", 12, "% s", "hello, world");
|
|
OneTest (__LINE__, "4200", 4, "% u", 4200U);
|
|
OneTest (__LINE__, "61336", 5, "% u", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "% x", 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "% x", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "% X", 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "% X", -4200U);
|
|
|
|
/* If the ' ' and '+' flags both appear, the ' ' flag is ignored */
|
|
OneTest (__LINE__, "u", 1, "% +c", 'u');
|
|
OneTest (__LINE__, "+4200", 5, "% +d", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "% +d", -4200);
|
|
OneTest (__LINE__, "+4200", 5, "% +i", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "% +i", -4200);
|
|
OneTest (__LINE__, "10150", 5, "% +o", 4200U);
|
|
OneTest (__LINE__, "167630", 6, "% +o", -4200U);
|
|
OneTest (__LINE__, "hello, world", 12, "% +s", "hello, world");
|
|
OneTest (__LINE__, "4200", 4, "% +u", 4200U);
|
|
OneTest (__LINE__, "61336", 5, "% +u", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "% +x", 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "% +x", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "% +X", 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "% +X", -4200U);
|
|
|
|
/* Field width given */
|
|
OneTest (__LINE__, " u", 15, "%15c", 'u');
|
|
OneTest (__LINE__, " 4200", 15, "%15d", 4200);
|
|
OneTest (__LINE__, " -4200", 15, "%15d", -4200);
|
|
OneTest (__LINE__, " 4200", 15, "%15i", 4200);
|
|
OneTest (__LINE__, " -4200", 15, "%15i", -4200);
|
|
OneTest (__LINE__, " 10150", 15, "%15o", 4200U);
|
|
OneTest (__LINE__, " 167630", 15, "%15o", -4200U);
|
|
OneTest (__LINE__, " hello, world", 15, "%15s", "hello, world");
|
|
OneTest (__LINE__, " 4200", 15, "%15u", 4200U);
|
|
OneTest (__LINE__, " 61336", 15, "%15u", -4200U);
|
|
OneTest (__LINE__, " 1068", 15, "%15x", 4200U);
|
|
OneTest (__LINE__, " ef98", 15, "%15x", -4200U);
|
|
OneTest (__LINE__, " 1068", 15, "%15X", 4200U);
|
|
OneTest (__LINE__, " EF98", 15, "%15X", -4200U);
|
|
|
|
/* Field width given as separate argument */
|
|
OneTest (__LINE__, " u", 15, "%*c", 15, 'u');
|
|
OneTest (__LINE__, " 4200", 15, "%*d", 15, 4200);
|
|
OneTest (__LINE__, " -4200", 15, "%*d", 15, -4200);
|
|
OneTest (__LINE__, " 4200", 15, "%*i", 15, 4200);
|
|
OneTest (__LINE__, " -4200", 15, "%*i", 15, -4200);
|
|
OneTest (__LINE__, " 10150", 15, "%*o", 15, 4200U);
|
|
OneTest (__LINE__, " 167630", 15, "%*o", 15, -4200U);
|
|
OneTest (__LINE__, " hello, world", 15, "%*s", 15, "hello, world");
|
|
OneTest (__LINE__, " 4200", 15, "%*u", 15, 4200U);
|
|
OneTest (__LINE__, " 61336", 15, "%*u", 15, -4200U);
|
|
OneTest (__LINE__, " 1068", 15, "%*x", 15, 4200U);
|
|
OneTest (__LINE__, " ef98", 15, "%*x", 15, -4200U);
|
|
OneTest (__LINE__, " 1068", 15, "%*X", 15, 4200U);
|
|
OneTest (__LINE__, " EF98", 15, "%*X", 15, -4200U);
|
|
|
|
/* Field width and '-' flag given */
|
|
OneTest (__LINE__, "u ", 15, "%-15c", 'u');
|
|
OneTest (__LINE__, "4200 ", 15, "%-15d", 4200);
|
|
OneTest (__LINE__, "-4200 ", 15, "%-15d", -4200);
|
|
OneTest (__LINE__, "4200 ", 15, "%-15i", 4200);
|
|
OneTest (__LINE__, "-4200 ", 15, "%-15i", -4200);
|
|
OneTest (__LINE__, "10150 ", 15, "%-15o", 4200U);
|
|
OneTest (__LINE__, "167630 ", 15, "%-15o", -4200U);
|
|
OneTest (__LINE__, "hello, world ", 15, "%-15s", "hello, world");
|
|
OneTest (__LINE__, "4200 ", 15, "%-15u", 4200U);
|
|
OneTest (__LINE__, "61336 ", 15, "%-15u", -4200U);
|
|
OneTest (__LINE__, "1068 ", 15, "%-15x", 4200U);
|
|
OneTest (__LINE__, "ef98 ", 15, "%-15x", -4200U);
|
|
OneTest (__LINE__, "1068 ", 15, "%-15X", 4200U);
|
|
OneTest (__LINE__, "EF98 ", 15, "%-15X", -4200U);
|
|
|
|
/* A negative field width specified via an argument is treated as if the
|
|
* '-' flag and a positive field width were given.
|
|
*
|
|
* Beware: These tests will crash the old printf routine!
|
|
*/
|
|
#ifndef NOCRASH
|
|
OneTest (__LINE__, "u ", 15, "%*c", -15, 'u');
|
|
OneTest (__LINE__, "4200 ", 15, "%*d", -15, 4200);
|
|
OneTest (__LINE__, "-4200 ", 15, "%*d", -15, -4200);
|
|
OneTest (__LINE__, "4200 ", 15, "%*i", -15, 4200);
|
|
OneTest (__LINE__, "-4200 ", 15, "%*i", -15, -4200);
|
|
OneTest (__LINE__, "10150 ", 15, "%*o", -15, 4200U);
|
|
OneTest (__LINE__, "167630 ", 15, "%*o", -15, -4200U);
|
|
OneTest (__LINE__, "hello, world ", 15, "%*s", -15, "hello, world");
|
|
OneTest (__LINE__, "4200 ", 15, "%*u", -15, 4200U);
|
|
OneTest (__LINE__, "61336 ", 15, "%*u", -15, -4200U);
|
|
OneTest (__LINE__, "1068 ", 15, "%*x", -15, 4200U);
|
|
OneTest (__LINE__, "ef98 ", 15, "%*x", -15, -4200U);
|
|
OneTest (__LINE__, "1068 ", 15, "%*X", -15, 4200U);
|
|
OneTest (__LINE__, "EF98 ", 15, "%*X", -15, -4200U);
|
|
#endif
|
|
|
|
/* Field width smaller than converted value */
|
|
OneTest (__LINE__, "u", 1, "%1c", 'u');
|
|
OneTest (__LINE__, "4200", 4, "%1d", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%1d", -4200);
|
|
OneTest (__LINE__, "4200", 4, "%1i", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%1i", -4200);
|
|
OneTest (__LINE__, "10150", 5, "%1o", 4200U);
|
|
OneTest (__LINE__, "167630", 6, "%1o", -4200U);
|
|
OneTest (__LINE__, "hello, world", 12, "%1s", "hello, world");
|
|
OneTest (__LINE__, "4200", 4, "%1u", 4200U);
|
|
OneTest (__LINE__, "61336", 5, "%1u", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%1x", 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "%1x", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%1X", 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "%1X", -4200U);
|
|
|
|
/* Field width specified and '0' flag given */
|
|
OneTest (__LINE__, "000000000004200", 15, "%015d", 4200);
|
|
OneTest (__LINE__, "-00000000004200", 15, "%015d", -4200);
|
|
OneTest (__LINE__, "000000000004200", 15, "%015i", 4200);
|
|
OneTest (__LINE__, "-00000000004200", 15, "%015i", -4200);
|
|
OneTest (__LINE__, "000000000010150", 15, "%015o", 4200U);
|
|
OneTest (__LINE__, "000000000167630", 15, "%015o", -4200U);
|
|
OneTest (__LINE__, "000000000004200", 15, "%015u", 4200U);
|
|
OneTest (__LINE__, "000000000061336", 15, "%015u", -4200U);
|
|
OneTest (__LINE__, "000000000001068", 15, "%015x", 4200U);
|
|
OneTest (__LINE__, "00000000000ef98", 15, "%015x", -4200U);
|
|
OneTest (__LINE__, "000000000001068", 15, "%015X", 4200U);
|
|
OneTest (__LINE__, "00000000000EF98", 15, "%015X", -4200U);
|
|
|
|
/* If the '-' and '0' flags are both specified, '0' is ignored */
|
|
OneTest (__LINE__, "4200 ", 15, "%-015d", 4200);
|
|
OneTest (__LINE__, "-4200 ", 15, "%-015d", -4200);
|
|
OneTest (__LINE__, "4200 ", 15, "%-015i", 4200);
|
|
OneTest (__LINE__, "-4200 ", 15, "%-015i", -4200);
|
|
OneTest (__LINE__, "10150 ", 15, "%-015o", 4200U);
|
|
OneTest (__LINE__, "167630 ", 15, "%-015o", -4200U);
|
|
OneTest (__LINE__, "4200 ", 15, "%-015u", 4200U);
|
|
OneTest (__LINE__, "61336 ", 15, "%-015u", -4200U);
|
|
OneTest (__LINE__, "1068 ", 15, "%-015x", 4200U);
|
|
OneTest (__LINE__, "ef98 ", 15, "%-015x", -4200U);
|
|
OneTest (__LINE__, "1068 ", 15, "%-015X", 4200U);
|
|
OneTest (__LINE__, "EF98 ", 15, "%-015X", -4200U);
|
|
|
|
/* Precision given */
|
|
OneTest (__LINE__, "u", 1, "%.15c", 'u');
|
|
OneTest (__LINE__, "000000000004200", 15, "%.15d", 4200);
|
|
OneTest (__LINE__, "-000000000004200", 16, "%.15d", -4200);
|
|
OneTest (__LINE__, "000000000004200", 15, "%.15i", 4200);
|
|
OneTest (__LINE__, "-000000000004200", 16, "%.15i", -4200);
|
|
OneTest (__LINE__, "000000000010150", 15, "%.15o", 4200U);
|
|
OneTest (__LINE__, "000000000167630", 15, "%.15o", -4200U);
|
|
OneTest (__LINE__, "hello, world", 12, "%.15s", "hello, world");
|
|
OneTest (__LINE__, "000000000004200", 15, "%.15u", 4200U);
|
|
OneTest (__LINE__, "000000000061336", 15, "%.15u", -4200U);
|
|
OneTest (__LINE__, "000000000001068", 15, "%.15x", 4200U);
|
|
OneTest (__LINE__, "00000000000ef98", 15, "%.15x", -4200U);
|
|
OneTest (__LINE__, "000000000001068", 15, "%.15X", 4200U);
|
|
OneTest (__LINE__, "00000000000EF98", 15, "%.15X", -4200U);
|
|
|
|
/* Precision given via argument */
|
|
OneTest (__LINE__, "u", 1, "%.*c", 15, 'u');
|
|
OneTest (__LINE__, "000000000004200", 15, "%.*d", 15, 4200);
|
|
OneTest (__LINE__, "-000000000004200", 16, "%.*d", 15, -4200);
|
|
OneTest (__LINE__, "000000000004200", 15, "%.*i", 15, 4200);
|
|
OneTest (__LINE__, "-000000000004200", 16, "%.*i", 15, -4200);
|
|
OneTest (__LINE__, "000000000010150", 15, "%.*o", 15, 4200U);
|
|
OneTest (__LINE__, "000000000167630", 15, "%.*o", 15, -4200U);
|
|
OneTest (__LINE__, "hello, world", 12, "%.*s", 15, "hello, world");
|
|
OneTest (__LINE__, "000000000004200", 15, "%.*u", 15, 4200U);
|
|
OneTest (__LINE__, "000000000061336", 15, "%.*u", 15, -4200U);
|
|
OneTest (__LINE__, "000000000001068", 15, "%.*x", 15, 4200U);
|
|
OneTest (__LINE__, "00000000000ef98", 15, "%.*x", 15, -4200U);
|
|
OneTest (__LINE__, "000000000001068", 15, "%.*X", 15, 4200U);
|
|
OneTest (__LINE__, "00000000000EF98", 15, "%.*X", 15, -4200U);
|
|
|
|
/* Negative precision is treated as if the precision were omitted */
|
|
#ifndef NOCRASH
|
|
OneTest (__LINE__, "u", 1, "%.*c", -15, 'u');
|
|
OneTest (__LINE__, "4200", 4, "%.*d", -15, 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%.*d", -15, -4200);
|
|
OneTest (__LINE__, "4200", 4, "%.*i", -15, 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%.*i", -15, -4200);
|
|
OneTest (__LINE__, "10150", 5, "%.*o", -15, 4200U);
|
|
OneTest (__LINE__, "167630", 6, "%.*o", -15, -4200U);
|
|
OneTest (__LINE__, "hello, world", 12, "%.*s", -15, "hello, world");
|
|
OneTest (__LINE__, "4200", 4, "%.*u", -15, 4200U);
|
|
OneTest (__LINE__, "61336", 5, "%.*u", -15, -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%.*x", -15, 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "%.*x", -15, -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%.*X", -15, 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "%.*X", -15, -4200U);
|
|
#endif
|
|
|
|
/* Field width and precision given */
|
|
OneTest (__LINE__, " u", 15, "%15.10c", 'u');
|
|
OneTest (__LINE__, " 0000004200", 15, "%15.10d", 4200);
|
|
OneTest (__LINE__, " -0000004200", 15, "%15.10d", -4200);
|
|
OneTest (__LINE__, " 0000004200", 15, "%15.10i", 4200);
|
|
OneTest (__LINE__, " -0000004200", 15, "%15.10i", -4200);
|
|
OneTest (__LINE__, " 0000010150", 15, "%15.10o", 4200U);
|
|
OneTest (__LINE__, " 0000167630", 15, "%15.10o", -4200U);
|
|
OneTest (__LINE__, " hello, wor", 15, "%15.10s", "hello, world");
|
|
OneTest (__LINE__, " 0000004200", 15, "%15.10u", 4200U);
|
|
OneTest (__LINE__, " 0000061336", 15, "%15.10u", -4200U);
|
|
OneTest (__LINE__, " 0000001068", 15, "%15.10x", 4200U);
|
|
OneTest (__LINE__, " 000000ef98", 15, "%15.10x", -4200U);
|
|
OneTest (__LINE__, " 0000001068", 15, "%15.10X", 4200U);
|
|
OneTest (__LINE__, " 000000EF98", 15, "%15.10X", -4200U);
|
|
|
|
/* For d, i, o, u, x and X conversions, if a precision is specified, the
|
|
* '0' flag is ignored.
|
|
*/
|
|
OneTest (__LINE__, " 0000004200", 15, "%015.10d", 4200);
|
|
OneTest (__LINE__, " -0000004200", 15, "%015.10d", -4200);
|
|
OneTest (__LINE__, " 0000004200", 15, "%015.10i", 4200);
|
|
OneTest (__LINE__, " -0000004200", 15, "%015.10i", -4200);
|
|
OneTest (__LINE__, " 0000010150", 15, "%015.10o", 4200U);
|
|
OneTest (__LINE__, " 0000167630", 15, "%015.10o", -4200U);
|
|
OneTest (__LINE__, " 0000004200", 15, "%015.10u", 4200U);
|
|
OneTest (__LINE__, " 0000061336", 15, "%015.10u", -4200U);
|
|
OneTest (__LINE__, " 0000001068", 15, "%015.10x", 4200U);
|
|
OneTest (__LINE__, " 000000ef98", 15, "%015.10x", -4200U);
|
|
OneTest (__LINE__, " 0000001068", 15, "%015.10X", 4200U);
|
|
OneTest (__LINE__, " 000000EF98", 15, "%015.10X", -4200U);
|
|
|
|
/* Zero precision, explicitly specified */
|
|
OneTest (__LINE__, "u", 1, "%.0c", 'u');
|
|
OneTest (__LINE__, "4200", 4, "%.0d", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%.0d", -4200);
|
|
OneTest (__LINE__, "4200", 4, "%.0i", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%.0i", -4200);
|
|
OneTest (__LINE__, "10150", 5, "%.0o", 4200U);
|
|
OneTest (__LINE__, "167630", 6, "%.0o", -4200U);
|
|
OneTest (__LINE__, "", 0, "%.0s", "hello, world");
|
|
OneTest (__LINE__, "4200", 4, "%.0u", 4200U);
|
|
OneTest (__LINE__, "61336", 5, "%.0u", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%.0x", 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "%.0x", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%.0X", 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "%.0X", -4200U);
|
|
|
|
/* Zero precision, dot only */
|
|
OneTest (__LINE__, "u", 1, "%.c", 'u');
|
|
OneTest (__LINE__, "4200", 4, "%.d", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%.d", -4200);
|
|
OneTest (__LINE__, "4200", 4, "%.i", 4200);
|
|
OneTest (__LINE__, "-4200", 5, "%.i", -4200);
|
|
OneTest (__LINE__, "10150", 5, "%.o", 4200U);
|
|
OneTest (__LINE__, "167630", 6, "%.o", -4200U);
|
|
OneTest (__LINE__, "", 0, "%.s", "hello, world");
|
|
OneTest (__LINE__, "4200", 4, "%.u", 4200U);
|
|
OneTest (__LINE__, "61336", 5, "%.u", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%.x", 4200U);
|
|
OneTest (__LINE__, "ef98", 4, "%.x", -4200U);
|
|
OneTest (__LINE__, "1068", 4, "%.X", 4200U);
|
|
OneTest (__LINE__, "EF98", 4, "%.X", -4200U);
|
|
|
|
/* Zero precision, zero value */
|
|
OneTest (__LINE__, "", 0, "%.0d", 0);
|
|
OneTest (__LINE__, "", 0, "%.0i", 0);
|
|
OneTest (__LINE__, "", 0, "%.0o", 0U);
|
|
OneTest (__LINE__, "", 0, "%.0u", 0U);
|
|
OneTest (__LINE__, "", 0, "%.0x", 0U);
|
|
OneTest (__LINE__, "", 0, "%.0X", 0U);
|
|
|
|
/* Field width and zero precision given */
|
|
OneTest (__LINE__, " u", 15, "%15.0c", 'u');
|
|
OneTest (__LINE__, " 4200", 15, "%15.0d", 4200);
|
|
OneTest (__LINE__, " -4200", 15, "%15.0d", -4200);
|
|
OneTest (__LINE__, " 4200", 15, "%15.0i", 4200);
|
|
OneTest (__LINE__, " -4200", 15, "%15.0i", -4200);
|
|
OneTest (__LINE__, " 10150", 15, "%15.0o", 4200U);
|
|
OneTest (__LINE__, " 167630", 15, "%15.0o", -4200U);
|
|
OneTest (__LINE__, " ", 15, "%15.0s", "hello, world");
|
|
OneTest (__LINE__, " 4200", 15, "%15.0u", 4200U);
|
|
OneTest (__LINE__, " 61336", 15, "%15.0u", -4200U);
|
|
OneTest (__LINE__, " 1068", 15, "%15.0x", 4200U);
|
|
OneTest (__LINE__, " ef98", 15, "%15.0x", -4200U);
|
|
OneTest (__LINE__, " 1068", 15, "%15.0X", 4200U);
|
|
OneTest (__LINE__, " EF98", 15, "%15.0X", -4200U);
|
|
|
|
/* Field width, zero precision and zero value */
|
|
OneTest (__LINE__, " ", 15, "%15.0d", 0);
|
|
OneTest (__LINE__, " ", 15, "%15.0i", 0);
|
|
OneTest (__LINE__, " ", 15, "%15.0o", 0U);
|
|
OneTest (__LINE__, " ", 15, "%15.0u", 0U);
|
|
OneTest (__LINE__, " ", 15, "%15.0x", 0U);
|
|
OneTest (__LINE__, " ", 15, "%15.0X", 0U);
|
|
|
|
/* Alternative form */
|
|
OneTest (__LINE__, "010150", 6, "%#o", 4200U);
|
|
OneTest (__LINE__, "0167630", 7, "%#o", -4200U);
|
|
OneTest (__LINE__, "0x1068", 6, "%#x", 4200U);
|
|
OneTest (__LINE__, "0xef98", 6, "%#x", -4200U);
|
|
OneTest (__LINE__, "0X1068", 6, "%#X", 4200U);
|
|
OneTest (__LINE__, "0XEF98", 6, "%#X", -4200U);
|
|
|
|
/* Alternative form with zero value */
|
|
#ifndef NOCRASH
|
|
OneTest (__LINE__, "0", 1, "%#o", 0U);
|
|
OneTest (__LINE__, "0", 1, "%#x", 0U);
|
|
OneTest (__LINE__, "0", 1, "%#X", 0U);
|
|
#endif
|
|
|
|
/* Alternative form with zero value and precision 1 */
|
|
OneTest (__LINE__, "0", 1, "%#.1o", 0U);
|
|
OneTest (__LINE__, "0", 1, "%#.1x", 0U);
|
|
OneTest (__LINE__, "0", 1, "%#.1X", 0U);
|
|
|
|
/* Alternative form with non zero value and precision 1 */
|
|
OneTest (__LINE__, "01", 2, "%#.1o", 1U);
|
|
OneTest (__LINE__, "0x1", 3, "%#.1x", 1U);
|
|
OneTest (__LINE__, "0X1", 3, "%#.1X", 1U);
|
|
|
|
/* Alternative form and width given */
|
|
OneTest (__LINE__, " 010150", 15, "%#15o", 4200U);
|
|
OneTest (__LINE__, " 0x1068", 15, "%#15x", 4200U);
|
|
OneTest (__LINE__, " 0X1068", 15, "%#15X", 4200U);
|
|
|
|
/* Alternative form, width and zero padding */
|
|
OneTest (__LINE__, "000000000010150", 15, "%#015o", 4200U);
|
|
OneTest (__LINE__, "0x0000000001068", 15, "%#015x", 4200U);
|
|
OneTest (__LINE__, "0X0000000001068", 15, "%#015X", 4200U);
|
|
|
|
/* n conversion specifier */
|
|
WriteTest (__LINE__, "%d%n", &W, 0x5A5A0004L);
|
|
WriteTest (__LINE__, "%d%hn", &W, 0x5A5A0004L);
|
|
WriteTest (__LINE__, "%d%hhn", &W, 0x5A5A5A04L);
|
|
WriteTest (__LINE__, "%d%ln", &W, 0x00000004L);
|
|
|
|
/* Output the result */
|
|
if (Failures) {
|
|
printf ("%u tests, %u failures\n", Tests, Failures);
|
|
} else {
|
|
printf ("%u tests: Ok\n", Tests);
|
|
}
|
|
|
|
/* Wait for a key so we can read the result */
|
|
#if defined(__CC65__)
|
|
cgetc ();
|
|
#endif
|
|
return 0;
|
|
}
|