]>
Commit | Line | Data |
---|---|---|
40a982a9 UD |
1 | /* Taken from the Li18nux base test suite. */ |
2 | ||
3 | #define _XOPEN_SOURCE 500 | |
4 | #include <locale.h> | |
5 | #include <stdio.h> | |
6 | #include <stdlib.h> | |
7 | #include <unistd.h> | |
8 | #include <wchar.h> | |
9 | ||
29955b5d AS |
10 | static int |
11 | do_test (void) | |
40a982a9 UD |
12 | { |
13 | FILE *fp; | |
51028f34 | 14 | const char *str = "abcdef"; |
40a982a9 UD |
15 | wint_t ret, wc; |
16 | char fname[] = "/tmp/tst-ungetwc2.out.XXXXXX"; | |
17 | int fd; | |
18 | long int pos; | |
19 | int result = 0; | |
20 | ||
6ca0d915 UD |
21 | puts ("This program runs on de_DE.UTF-8 locale."); |
22 | if (setlocale (LC_ALL, "de_DE.UTF-8") == NULL) | |
40a982a9 | 23 | { |
6ca0d915 | 24 | fprintf (stderr, "Err: Cannot run on the de_DE.UTF-8 locale\n"); |
40a982a9 UD |
25 | exit (EXIT_FAILURE); |
26 | } | |
27 | ||
28 | /* Write some characters to `testfile'. */ | |
29 | fd = mkstemp (fname); | |
30 | if (fd == -1) | |
31 | { | |
32 | printf ("cannot open temp file: %m\n"); | |
33 | exit (EXIT_FAILURE); | |
34 | } | |
35 | if ((fp = fdopen (fd, "w")) == NULL) | |
36 | { | |
37 | fprintf (stderr, "Cannot open 'testfile'.\n"); | |
38 | exit (EXIT_FAILURE); | |
39 | } | |
40 | fputs (str, fp); | |
41 | fclose (fp); | |
42 | ||
43 | /* Open `testfile'. */ | |
44 | if ((fp = fopen (fname, "r")) == NULL) | |
45 | { | |
46 | fprintf (stderr, "Cannot open 'testfile'."); | |
47 | exit (EXIT_FAILURE); | |
48 | } | |
49 | ||
50 | /* Get a character. */ | |
51 | wc = getwc (fp); | |
52 | pos = ftell (fp); | |
53 | printf ("After get a character: %ld\n", pos); | |
54 | if (pos != 1) | |
55 | result = 1; | |
56 | ||
57 | /* Unget a character. */ | |
58 | ret = ungetwc (wc, fp); | |
59 | if (ret == WEOF) | |
60 | { | |
61 | fprintf (stderr, "ungetwc() returns NULL."); | |
62 | exit (EXIT_FAILURE); | |
63 | } | |
64 | pos = ftell (fp); | |
65 | printf ("After unget a character: %ld\n", pos); | |
66 | if (pos != 0) | |
67 | result = 1; | |
68 | ||
69 | /* Reget a character. */ | |
70 | wc = getwc (fp); | |
71 | pos = ftell (fp); | |
72 | printf ("After reget a character: %ld\n", pos); | |
73 | if (pos != 1) | |
74 | result = 1; | |
75 | ||
76 | fclose (fp); | |
77 | ||
78 | unlink (fname); | |
79 | ||
80 | return result; | |
81 | } | |
29955b5d AS |
82 | |
83 | #define TEST_FUNCTION do_test () | |
84 | #include "../test-skeleton.c" |