Mercurial > hg > octave-lojdl > gnulib-hg
annotate tests/test-fgetc.c @ 16465:c0803728f645
New module 'modfl-ieee'.
* modules/modfl-ieee: New file.
| author | Bruno Haible <bruno@clisp.org> |
|---|---|
| date | Sun, 26 Feb 2012 17:55:31 +0100 |
| parents | bb182ee4a09d |
| children | e542fd46ad6f |
| rev | line source |
|---|---|
| 15714 | 1 /* Test of fgetc() function. |
|
16201
8250f2777afc
maint: update all copyright year number ranges
Jim Meyering <meyering@redhat.com>
parents:
15796
diff
changeset
|
2 Copyright (C) 2011-2012 Free Software Foundation, Inc. |
| 15714 | 3 |
| 4 This program is free software; you can redistribute it and/or modify | |
| 5 it under the terms of the GNU General Public License as published by | |
| 6 the Free Software Foundation; either version 3, or (at your option) | |
| 7 any later version. | |
| 8 | |
| 9 This program is distributed in the hope that it will be useful, | |
| 10 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 12 GNU General Public License for more details. | |
| 13 | |
| 14 You should have received a copy of the GNU General Public License | |
|
16366
bb182ee4a09d
maint: replace FSF snail-mail addresses with URLs
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
15 along with this program; if not, see <http://www.gnu.org/licenses/>. */ |
| 15714 | 16 |
| 17 #include <config.h> | |
| 18 | |
| 19 #include <stdio.h> | |
| 20 | |
| 21 #include "signature.h" | |
| 22 SIGNATURE_CHECK (fgetc, int, (FILE *)); | |
| 23 | |
| 24 #include <errno.h> | |
| 25 #include <fcntl.h> | |
| 26 #include <unistd.h> | |
| 27 | |
|
15795
dd52b68a488b
fputc, fwrite tests: Avoid test failure on MSVC.
Bruno Haible <bruno@clisp.org>
parents:
15770
diff
changeset
|
28 #include "msvc-inval.h" |
|
dd52b68a488b
fputc, fwrite tests: Avoid test failure on MSVC.
Bruno Haible <bruno@clisp.org>
parents:
15770
diff
changeset
|
29 |
| 15714 | 30 #include "macros.h" |
| 31 | |
| 32 int | |
| 33 main (int argc, char **argv) | |
| 34 { | |
| 35 const char *filename = "test-fgetc.txt"; | |
| 36 | |
|
15796
22a143e3638f
fgetc, fputc, fread, fwrite tests: Fix link error.
Bruno Haible <bruno@clisp.org>
parents:
15795
diff
changeset
|
37 /* We don't have an fgetc() function that installs an invalid parameter |
|
15795
dd52b68a488b
fputc, fwrite tests: Avoid test failure on MSVC.
Bruno Haible <bruno@clisp.org>
parents:
15770
diff
changeset
|
38 handler so far. So install that handler here, explicitly. */ |
|
15796
22a143e3638f
fgetc, fputc, fread, fwrite tests: Fix link error.
Bruno Haible <bruno@clisp.org>
parents:
15795
diff
changeset
|
39 #if HAVE_MSVC_INVALID_PARAMETER_HANDLER \ |
|
22a143e3638f
fgetc, fputc, fread, fwrite tests: Fix link error.
Bruno Haible <bruno@clisp.org>
parents:
15795
diff
changeset
|
40 && MSVC_INVALID_PARAMETER_HANDLING == DEFAULT_HANDLING |
|
15795
dd52b68a488b
fputc, fwrite tests: Avoid test failure on MSVC.
Bruno Haible <bruno@clisp.org>
parents:
15770
diff
changeset
|
41 gl_msvc_inval_ensure_handler (); |
|
dd52b68a488b
fputc, fwrite tests: Avoid test failure on MSVC.
Bruno Haible <bruno@clisp.org>
parents:
15770
diff
changeset
|
42 #endif |
|
dd52b68a488b
fputc, fwrite tests: Avoid test failure on MSVC.
Bruno Haible <bruno@clisp.org>
parents:
15770
diff
changeset
|
43 |
| 15714 | 44 /* Prepare a file. */ |
| 45 { | |
| 46 const char text[] = "hello world"; | |
| 47 int fd = open (filename, O_RDWR | O_CREAT | O_TRUNC, 0600); | |
| 48 ASSERT (fd >= 0); | |
| 49 ASSERT (write (fd, text, sizeof (text)) == sizeof (text)); | |
| 50 ASSERT (close (fd) == 0); | |
| 51 } | |
| 52 | |
| 53 /* Test that fgetc() sets errno if someone else closes the stream | |
| 54 fd behind the back of stdio. */ | |
| 55 { | |
| 56 FILE *fp = fopen (filename, "r"); | |
| 57 ASSERT (fp != NULL); | |
| 58 ASSERT (close (fileno (fp)) == 0); | |
| 59 errno = 0; | |
| 60 ASSERT (fgetc (fp) == EOF); | |
| 61 ASSERT (errno == EBADF); | |
|
15770
e01dbf6f2e44
Enhance fgetc, fputc tests.
Bruno Haible <bruno@clisp.org>
parents:
15714
diff
changeset
|
62 ASSERT (ferror (fp)); |
| 15714 | 63 fclose (fp); |
| 64 } | |
| 65 | |
| 66 /* Test that fgetc() sets errno if the stream was constructed with | |
| 67 an invalid file descriptor. */ | |
| 68 { | |
| 69 FILE *fp = fdopen (-1, "r"); | |
| 70 if (fp != NULL) | |
| 71 { | |
| 72 errno = 0; | |
| 73 ASSERT (fgetc (fp) == EOF); | |
| 74 ASSERT (errno == EBADF); | |
|
15770
e01dbf6f2e44
Enhance fgetc, fputc tests.
Bruno Haible <bruno@clisp.org>
parents:
15714
diff
changeset
|
75 ASSERT (ferror (fp)); |
| 15714 | 76 fclose (fp); |
| 77 } | |
| 78 } | |
| 79 { | |
| 80 FILE *fp = fdopen (99, "r"); | |
| 81 if (fp != NULL) | |
| 82 { | |
| 83 errno = 0; | |
| 84 ASSERT (fgetc (fp) == EOF); | |
| 85 ASSERT (errno == EBADF); | |
|
15770
e01dbf6f2e44
Enhance fgetc, fputc tests.
Bruno Haible <bruno@clisp.org>
parents:
15714
diff
changeset
|
86 ASSERT (ferror (fp)); |
| 15714 | 87 fclose (fp); |
| 88 } | |
| 89 } | |
| 90 | |
| 91 /* Clean up. */ | |
| 92 unlink (filename); | |
| 93 | |
| 94 return 0; | |
| 95 } |