From a06ac93dcf311dac3943cb5d96ad47625d413c2d Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 5 May 2024 20:46:38 +0200 Subject: Adding upstream version 8.30. Signed-off-by: Daniel Baumann --- gnulib-tests/test-closein.c | 49 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 gnulib-tests/test-closein.c (limited to 'gnulib-tests/test-closein.c') diff --git a/gnulib-tests/test-closein.c b/gnulib-tests/test-closein.c new file mode 100644 index 0000000..44f4333 --- /dev/null +++ b/gnulib-tests/test-closein.c @@ -0,0 +1,49 @@ +/* Test of closein module. + Copyright (C) 2007-2018 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Eric Blake. */ + +#include + +#include "closein.h" + +#include +#include +#include + +#include "binary-io.h" +#include "ignore-value.h" + +/* With no arguments, do nothing. With arguments, attempt to consume + first 6 bytes of stdin. In either case, let exit() take care of + closing std streams and changing exit status if ferror(stdin). */ +int +main (int argc, char **argv) +{ + char buf[7]; + atexit (close_stdin); + + /* close_stdin currently relies on ftell, but mingw ftell is + unreliable on text mode input. */ + set_binary_mode (0, O_BINARY); + + if (argc > 2) + close (0); + + if (argc > 1) + ignore_value (fread (buf, 1, 6, stdin)); + return 0; +} -- cgit v1.2.3