2003-11-01 Roland McGrath <roland@redhat.com>
[kopensolaris-gnu/glibc.git] / libio / bug-ftell.c
1 #include <locale.h>
2 #include <stdio.h>
3 #include <wchar.h>
4 #include <sys/types.h>
5
6
7 static int
8 do_test (void)
9 {
10   if (setlocale (LC_ALL, "de_DE.UTF-8") == NULL)
11     {
12       puts ("setlocale failed");
13       return 1;
14     }
15
16   FILE *fp = tmpfile ();
17   if (fp == NULL)
18     {
19       puts ("tmpfile failed");
20       return 1;
21     }
22
23   if (fputws (L"hello", fp) == EOF)
24     {
25       puts ("fputws failed");
26       return 1;
27     }
28
29   rewind (fp);
30
31   const wchar_t *cp;
32   unsigned int cnt;
33   for (cp = L"hello", cnt = 1; *cp != L'\0'; ++cp, ++cnt)
34     {
35       wint_t wc = fgetwc (fp);
36       if (wc != (wint_t) *cp)
37         {
38           printf ("fgetwc failed: got L'%lc', expected L'%lc'\n",
39                   wc, (wint_t) *cp);
40           return 1;
41         }
42       off_t o = ftello (fp);
43       if (o != cnt)
44         {
45           printf ("ftello failed: got %lu, expected %u\n",
46                   (unsigned long int) o, cnt);
47           return 1;
48         }
49       printf ("round %u OK\n", cnt);
50     }
51
52   fclose (fp);
53
54   return 0;
55 }
56
57 #define TEST_FUNCTION do_test ()
58 #include "../test-skeleton.c"