[ruby-dev:23656] test/ruby/test_pipe.rb fails in bcc32

山本です。

E:\ruby-cvs\ruby>.\ruby runruby.rb --ext=".ext" -- bin\testrb test/ruby/test_pip
e.rb
Loaded suite test_pipe.rb
Started
F.F
Finished in 0.151 seconds.

  1) Failure:
test_eof_0(TestPipe)
    [E:/ruby-cvs/ruby/test/ruby/ut_eof.rb:9:in `test_eof_0'
     E:/ruby-cvs/ruby/test/ruby/ut_eof.rb:5:in `open_file'
     E:/ruby-cvs/ruby/test/ruby/ut_eof.rb:5:in `test_eof_0']:
<nil> expected but was
<"">.

  2) Failure:
test_eof_1(TestPipe)
    [E:/ruby-cvs/ruby/test/ruby/ut_eof.rb:46:in `test_eof_1'
     E:/ruby-cvs/ruby/test/ruby/ut_eof.rb:40:in `open_file'
     E:/ruby-cvs/ruby/test/ruby/ut_eof.rb:40:in `test_eof_1']:
<nil> expected but was
<"">.

3 tests, 10 assertions, 2 failures, 0 errors

bcc32でパイプのテストが失敗するので調べていたのですが、bcc32のバグのようです。
EOF に達したはずなのにfeof == 0 && errno = EPIPE となることがあります。
（ファイルではちゃんとfeof != 0 になるし、パイプでも読み込むサイズの選び方によっては feof != 0
となることもある）

これに対処する方法ってあるでしょうか・・・？

//////////////////////////////////////////
// 再現用コード

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <fcntl.h>
#include <io.h>

int main()
{
    int handle[2];
    FILE *r, *w;
    const int len[] = { 3, 1024 };
    size_t i;

    printf("EPIPE = %d\n\n", EPIPE);

    if (-1 == _pipe(handle, 512, O_BINARY))
    {
	return -1;
    }

    if (NULL == (r = _fdopen(handle[0], "rb")))
    {
	return -1;
    }

    if (NULL == (w = _fdopen(handle[1], "wb")))
    {
	return -1;
    }

    if (4 != fwrite("hoge", 1, 4, w))
    {
        return -1;
    }

    if (0 != fclose(w))
    {
        return -1;
    }

    for (i = 0; i < sizeof(len) / sizeof(len[0]); ++i)
    {
	char *buf = (char *)malloc(len[i]);

	int n;

	errno = 0;

	n = fread(buf, 1, len[i], r);

	printf("---------> len = %d\n", len[i]);

	printf("---------> ret = %d\n", n);

    	printf("---------> eof = %d\n", feof(r));

	printf("---------> ferror = %d\n", ferror(r));

	printf("---------> errno = %d\n", errno);

	printf("\n");

	free(buf);
    }

    if (0 != fclose(r))
    {
	return -1;
    }

    return 0;
}

//////////////////////////////////////////
// 結果 (bcc32)

EPIPE = 32

---------> len = 3
---------> ret = 3
---------> eof = 0
---------> ferror = 0
---------> errno = 0

---------> len = 1024
---------> ret = 1
---------> eof = 0
---------> ferror = 16
---------> errno = 32

//////////////////////////////////////////
// 結果 (mingw)

EPIPE = 32

---------> len = 3
---------> ret = 3
---------> eof = 0
---------> ferror = 0
---------> errno = 0

---------> len = 1024
---------> ret = 1
---------> eof = 16
---------> ferror = 0
---------> errno = 0