kc3-lang/gnulib/tests/test-closein.sh
Tag
-
Show log
Commit
-
Hash : 5c323b50
Author :
Date : 2007-04-27T17:14:39
Fix closein for mingw. * modules/closein-tests: Add tests for closein. * tests/test-closein.c: New file. * tests/test-closein.sh: Likewise. * lib/unistd_.h [!SEEK_CUR]: Mingw also needs stdlib.h for _exit. * lib/closein.c (close_stdin): Don't fflush non-seekable streams.
-
tests/test-closein.sh
-
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
#!/bin/sh tmpfiles= trap 'rm -fr $tmpfiles' 1 2 3 15 p=t-closein- tmpfiles="${p}in.tmp ${p}xout.tmp ${p}out1.tmp ${p}out2.tmp" echo Hello world > ${p}in.tmp echo world > ${p}xout.tmp # Test with seekable stdin; followon process must see remaining data (./test-closein${EXEEXT}; cat) < ${p}in.tmp > ${p}out1.tmp || exit 1 cmp ${p}out1.tmp ${p}in.tmp || exit 1 (./test-closein${EXEEXT} consume; cat) < ${p}in.tmp > ${p}out2.tmp || exit 1 cmp ${p}out2.tmp ${p}xout.tmp || exit 1 # Test for lack of error on pipe cat ${p}in.tmp | ./test-closein${EXEEXT} || exit 1 cat ${p}in.tmp | ./test-closein${EXEEXT} consume || exit 1 # Test for lack of error when nothing is read ./test-closein${EXEEXT} </dev/null || exit 1 ./test-closein${EXEEXT} <&- || exit 1 # Test for no error when EOF is read early ./test-closein${EXEEXT} consume </dev/null || exit 1 # Test for error when read fails because no file available ./test-closein${EXEEXT} consume <&- 2>/dev/null && exit 1 # Cleanup rm -fr $tmpfiles exit 0