Mercurial > gnulib

annotate tests/test-freadahead.c @ 12421:e8d2c6fc33ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use spaces for indentation, not tabs.
author Bruno Haible <bruno@clisp.org>
date Thu, 10 Dec 2009 20:28:30 +0100
parents 0be6f1ab456d
children a48d3d749ca5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9159
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
1 /* Test of freadahead() function.
9780
cf325a112b9d Take into account the number of pushed-back bytes (ungetc).
Bruno Haible <bruno@clisp.org>
parents: 9309
diff changeset
2 Copyright (C) 2007-2008 Free Software Foundation, Inc.
9159
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
3
9309
bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents: 9159
diff changeset
4 This program is free software: you can redistribute it and/or modify
9159
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
9309
bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents: 9159
diff changeset
6 the Free Software Foundation; either version 3 of the License, or
bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents: 9159
diff changeset
7 (at your option) any later version.
9159
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
8
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
12 GNU General Public License for more details.
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
13
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
9309
bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents: 9159
diff changeset
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
9159
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
16
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
17 /* Written by Bruno Haible <bruno@clisp.org>, 2007. */
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
18
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
19 #include <config.h>
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
20
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
21 #include "freadahead.h"
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
22
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
23 #include <stdio.h>
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
24 #include <stdlib.h>
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
25 #include <unistd.h>
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
26
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
27 #define ASSERT(expr) \
12421
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
28 do \
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
29 { \
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
30 if (!(expr)) \
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
31 { \
9159
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
32 fprintf (stderr, "%s:%d: assertion failed\n", __FILE__, __LINE__); \
12421
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
33 fflush (stderr); \
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
34 abort (); \
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
35 } \
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
36 } \
9159
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
37 while (0)
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
38
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
39 int
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
40 main (int argc, char **argv)
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
41 {
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
42 int nbytes = atoi (argv[1]);
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
43 if (nbytes > 0)
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
44 {
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
45 void *buf = malloc (nbytes);
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
46 ASSERT (fread (buf, 1, nbytes, stdin) == nbytes);
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
47 }
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
48
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
49 if (nbytes == 0)
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
50 ASSERT (freadahead (stdin) == 0);
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
51 else
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
52 {
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
53 if (lseek (0, 0, SEEK_CUR) == nbytes)
12421
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
54 /* An unbuffered stdio, such as BeOS or on uClibc compiled without
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
55 __STDIO_BUFFERS. */
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
56 ASSERT (freadahead (stdin) == 0);
9159
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
57 else
12421
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
58 {
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
59 /* Normal buffered stdio. */
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
60 size_t buffered;
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
61 int c, c2;
9780
cf325a112b9d Take into account the number of pushed-back bytes (ungetc).
Bruno Haible <bruno@clisp.org>
parents: 9309
diff changeset
62
12421
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
63 ASSERT (freadahead (stdin) != 0);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
64 buffered = freadahead (stdin);
9780
cf325a112b9d Take into account the number of pushed-back bytes (ungetc).
Bruno Haible <bruno@clisp.org>
parents: 9309
diff changeset
65
12421
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
66 c = fgetc (stdin);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
67 ASSERT (freadahead (stdin) == buffered - 1);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
68 ungetc (c, stdin);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
69 ASSERT (freadahead (stdin) == buffered);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
70 c2 = fgetc (stdin);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
71 ASSERT (c2 == c);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
72 ASSERT (freadahead (stdin) == buffered - 1);
9780
cf325a112b9d Take into account the number of pushed-back bytes (ungetc).
Bruno Haible <bruno@clisp.org>
parents: 9309
diff changeset
73
12421
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
74 c = '@';
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
75 ungetc (c, stdin);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
76 ASSERT (freadahead (stdin) == buffered);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
77 c2 = fgetc (stdin);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
78 ASSERT (c2 == c);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
79 ASSERT (freadahead (stdin) == buffered - 1);
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 9889
diff changeset
80 }
9159
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
81 }
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
82
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
83 return 0;
e21121c06cf2 Tests for module 'freadahead'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
84 }