Files
RedBear-OS/tests/wchar/ungetwc.c
T
2023-05-09 14:23:25 +00:00

26 lines
438 B
C

#include <wchar.h>
#include <wctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <assert.h>
int main()
{
FILE *stream;
wint_t wc;
wint_t wc2;
if (NULL == (stream = fopen("wchar/ungetwc.in", "r+")))
return 1;
while (WEOF != (wc = fgetwc(stream)) && iswdigit(wc)) {}
if (WEOF != wc)
ungetwc(wc, stream);
wc2 = fgetwc(stream);
assert(WEOF != wc2);
assert(wc == wc2);
return 0;
}