/proc/3430793/root/usr/local/lsws/phpbuild/php-8.0.7/ext/standard/tests/streams/ Current File: //proc/3430793/root/usr/local/lsws/phpbuild/php-8.0.7/ext/standard/tests/streams/bug69521.phpt

--TEST--
Bug #69521	Segfault in gc_collect_cycles()
--FILE--
<?php
$serverUri = "tcp://127.0.0.1:74321";
$sock = stream_socket_server($serverUri, $errno, $errstr, STREAM_SERVER_BIND | STREAM_SERVER_LISTEN);

$fp = stream_socket_client($serverUri, $errNumber, $errString, 5, STREAM_CLIENT_CONNECT);

$written = 0;

$data = "test";
$written += fwrite($fp, substr($data, $written, 100));

$link = stream_socket_accept($sock);
fread($link, 1000);
fwrite($link, "Sending bug 69521\n");
fclose($link);

while (!feof($fp))
{
    $read = $write = array($fp);

    if ($written === strlen($data))
        $write = array();

    $changed = stream_select($read, $write, $except, 0, 500000);

    if (!empty($read))
        echo fread($fp, 4);
}
?>
--EXPECT--
Sending bug 69521