/* Taken from the Li18nux base test suite.  */

#define _XOPEN_SOURCE 500
#include <locale.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <wchar.h>


int
main(void)
{
        FILE *fp;
        const char *str = "abcdef";
        wint_t ret, wc;
        char fname[] = "/tmp/tst-ungetwc2.out.XXXXXX";
        int fd;
        long int pos;
        int result = 0;

        puts("This program runs on de_DE.UTF-8 locale.");
        if (setlocale(LC_ALL, "de_DE.UTF-8") == NULL) {
                fprintf(stderr, "Err: Cannot run on the de_DE.UTF-8 locale\n");
                exit(EXIT_FAILURE);
        }

        /* Write some characters to `testfile'. */
        fd = mkstemp(fname);
        if (fd == -1) {
                printf("cannot open temp file: %m\n");
                exit(EXIT_FAILURE);
        }
        if ((fp = fdopen(fd, "w")) == NULL) {
                fprintf(stderr, "Cannot open 'testfile'.\n");
                exit(EXIT_FAILURE);
        }
        fputs(str, fp);
        fclose(fp);

        /* Open `testfile'. */
        if ((fp = fopen(fname, "r")) == NULL) {
                fprintf(stderr, "Cannot open 'testfile'.");
                exit(EXIT_FAILURE);
        }

        /* Get a character. */
        wc = getwc(fp);
        pos = ftell(fp);
        printf("After get a character: %ld\n", pos);
        if (pos != 1)
                result = 1;

        /* Unget a character. */
        ret = ungetwc(wc, fp);
        if (ret == WEOF) {
                fprintf(stderr, "ungetwc() returns NULL.");
                exit(EXIT_FAILURE);
        }
        pos = ftell(fp);
        printf("After unget a character: %ld\n", pos);
        if (pos != 0)
                result = 1;

        /* Reget a character. */
        wc = getwc(fp);
        pos = ftell(fp);
        printf("After reget a character: %ld\n", pos);
        if (pos != 1)
                result = 1;

        fclose(fp);

        unlink(fname);

        return result;
}