>> This one may already be fixed in CVS. At any rate, could you run 'cd
>> tests; sh -vx ./test-closein.sh' so we can make sure where it is failing?
>>
>
> Result is in attachement.
Excuse me, I forgot about attachement ;-) Now it is.
Regards
--
Piotr
#!/bin/sh
tmpfiles=
tmpfiles=
trap 'rm -fr $tmpfiles' 1 2 3 15
+ trap rm -fr $tmpfiles 1 2 3 15
p=t-closein-
p=t-closein-
tmpfiles="${p}in.tmp ${p}xout.tmp ${p}out1.tmp ${p}out2.tmp"
tmpfiles=t-closein-in.tmp t-closein-xout.tmp t-closein-out1.tmp
t-closein-out2.tmp
echo Hello world > ${p}in.tmp
+ echo Hello world
echo world > ${p}xout.tmp
+ echo world
# Test with seekable stdin; followon process must see remaining data
(./test-closein${EXEEXT}; cat) < ${p}in.tmp > ${p}out1.tmp || exit 1
+ ./test-closein
+ cat
cmp ${p}out1.tmp ${p}in.tmp || exit 1
+ cmp t-closein-out1.tmp t-closein-in.tmp
(./test-closein${EXEEXT} consume; cat) < ${p}in.tmp > ${p}out2.tmp || exit 1
+ ./test-closein consume
+ cat
cmp ${p}out2.tmp ${p}xout.tmp || exit 1
+ cmp t-closein-out2.tmp t-closein-xout.tmp
# Test for lack of error on pipe
cat ${p}in.tmp | ./test-closein${EXEEXT} || exit 1
+ ./test-closein
+ cat t-closein-in.tmp
cat ${p}in.tmp | ./test-closein${EXEEXT} consume || exit 1
+ ./test-closein consume
+ cat t-closein-in.tmp
# Test for lack of error when nothing is read
./test-closein${EXEEXT} </dev/null || exit 1
+ ./test-closein
./test-closein${EXEEXT} <&- || exit 1
+ ./test-closein
# Test for no error when EOF is read early
./test-closein${EXEEXT} consume </dev/null || exit 1
+ ./test-closein consume
# Test for error when read fails because no file available
./test-closein${EXEEXT} consume <&- 2>/dev/null && exit 1
+ ./test-closein consume
+ exit 1
_______________________________________________
Bug-m4 mailing list
Bug-m4@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-m4
