ini_set("log_errors", true);
ini_set("error_log", __DIR__."/server.log");
-function log() {
- error_log(sprintf("%s: %s\n", date("[Y-m-d H:i:s]"),
- call_user_func_array("sprintf", func_get_args())));
+function logger() {
+ if (!ini_get("date.timezone")) {
+ date_default_timezone_set(@date_default_timezone_get());
+ }
+ error_log(sprintf("%s(%s): %s",
+ basename(getenv("SCRIPT_FILENAME"), ".php"),
+ basename(current(get_included_files()), ".inc"),
+ call_user_func_array("sprintf", func_get_args())
+ ));
}
$php = getenv('TEST_PHP_EXECUTABLE');
define("PHP_BIN", PHP_BINDIR.DIRECTORY_SEPARATOR."php");
}
+foreach (array("raphf", "propro", "http") as $ext) {
+ if (!extension_loaded($ext)) {
+ switch (PHP_SHLIB_SUFFIX) {
+ case "dll":
+ dl("php_$ext.dll");
+ break;
+ default:
+ dl($ext .".". PHP_SHLIB_SUFFIX);
+ }
+ }
+}
+
function serve($cb) {
/* stream_socket_server() automatically sets SO_REUSEADDR,
* which is, well, bad if the tests are run in parallel
*/
$offset = rand(0,2000);
foreach (range(8000+$offset, 9000+$offset) as $port) {
- log("serve: Trying port %d", $port);
+ logger("serve: Trying port %d", $port);
if (($server = @stream_socket_server("tcp://localhost:$port"))) {
fprintf(STDERR, "%s\n", $port);
- log("serve: Using port %d", $port);
+ logger("serve: Using port %d", $port);
do {
$R = array($server); $W = array(); $E = array();
- $select = stream_select($R, $E, $E, 0, 10000);
+ $select = stream_select($R, $E, $E, 10, 0);
if ($select && ($client = stream_socket_accept($server, 1))) {
- log("serve: Accept client %d", (int) $client);
+ logger("serve: Accept client %d", (int) $client);
if (getenv("PHP_HTTP_TEST_SSL")) {
stream_socket_enable_crypto($client, true, STREAM_CRYPTO_METHOD_SSLv23_SERVER);
}
try {
- while (!feof($client)) {
- log("serve: Handle client %d", (int) $client);
+ $R = array($client);
+ while (!feof($client) && stream_select($R, $W, $E, 1, 0)) {
+ logger("serve: Handle client %d", (int) $client);
$cb($client);
}
- log("serve: EOF on client %d", (int) $client);
+ logger("serve: EOF/timeout on client %d", (int) $client);
} catch (Exception $ex) {
- log("serve: Exception on client %d", (int) $client);
+ logger("serve: Exception on client %d: %s", (int) $client, $ex->getMessage());
/* ignore disconnect */
if ($ex->getMessage() !== "Empty message received from stream") {
fprintf(STDERR, "%s\n", $ex);
break;
}
}
- } while ($select !== false);
+ } while ($select);
return;
}
}
fpassthru($stderr);
fpassthru($stdout);
}
-}
\ No newline at end of file
+}