--TEST--
Winsock export/import socket, basic test
--SKIPIF--
<?php
if (substr(PHP_OS, 0, 3) != 'WIN') {
	die('skip.. Windows only test');
}
if (!extension_loaded('sockets')) {
	die('skip sockets extension not available.');
}
?>
--FILE--
<?php
	$address = 'localhost';
	$port = 10000;

	if (($sock = socket_create(AF_INET, SOCK_STREAM, SOL_TCP)) === false) {
		fprintf(STDERR, "socket_create() failed: reason: " . socket_strerror(socket_last_error()) . "\n");
	}

	if (socket_bind($sock, $address, $port) === false) {
		fprintf(STDERR, "socket_bind() failed: reason: " . socket_strerror(socket_last_error($sock)) . "\n");
	}

	if (socket_listen($sock, 5) === false) {
		fprintf(STDERR, "socket_listen() failed: reason: " . socket_strerror(socket_last_error($sock)) . "\n");
	}

	/* Duplicate socket in the same process. */
	$pid = getmypid();
	$info = socket_wsaprotocol_info_export($sock, $pid);
	$sock2 = socket_wsaprotocol_info_import($info);
	var_dump(socket_wsaprotocol_info_release($info));

	var_dump($sock, $sock2);

	/* Close duplicated socket, teh orig is still valid. */
	socket_close($sock2);
	var_dump($sock, $sock2);

	/* Using invalid PID. */
	$info = socket_wsaprotocol_info_export($sock, 123412341);

	socket_close($sock);

	/* Importing with invalid identifier. */
	$sock2 = socket_wsaprotocol_info_import("garbage");
?>
--EXPECTF--
bool(true)
resource(%d) of type (Socket)
resource(%d) of type (Socket)
resource(%d) of type (Socket)
resource(%d) of type (Unknown)

Warning: socket_wsaprotocol_info_export(): Unable to export WSA protocol info [0x00002726]: %s
 in %s on line %d

Warning: socket_wsaprotocol_info_import(): Unable to open file mapping [0x00000002] in %s on line %d