Browse files

removed PEAR2 prefix requirement, added test cases and generated clas…

…smap capability.
  • Loading branch information...
1 parent 275c162 commit 38078df7de9f4cba25540dccf611809bb77cbb25 @claylo claylo committed Jun 24, 2011
View
3 CREDITS
@@ -1,3 +1,4 @@
;; maintainers of Autoload
Gregory Beaver [cellog] <cellog@php.net> (lead)
-Brett Bieber [saltybeagle] <saltybeagle@php.net> (lead)
+Brett Bieber [saltybeagle] <saltybeagle@php.net> (lead)
+Clay Loveless [clay] <clay@php.net> (contributor)
View
7 RELEASE-0.2.4
@@ -0,0 +1,7 @@
+- Add optional dynamically-generated class map so full file paths can be
+ used when loading class files.
+
+- Added a few test cases, along with non-Pyrus .phpt runner to keep us from
+ trying to load PEAR2\Autoload twice!
+
+- Removed PEAR2\ prefix requirement for loaded classes. Now psr-0 compliant.
View
9 runphpt
@@ -0,0 +1,9 @@
+#!/bin/bash
+
+#
+# We need to run these tests outside of pyrus runtime to keep existing
+# PEAR2\Autoload from preventing this file from loading
+#
+
+export NO_INTERACTION=1
+/usr/bin/env php tests/run-tests.php.inc
View
139 src/PEAR2/Autoload.php
@@ -16,6 +16,34 @@ class Autoload
* @var array
*/
protected static $paths = array();
+
+ /**
+ * Array of classname-to-file mapping
+ *
+ * @var array
+ */
+ protected static $map = array();
+
+ /**
+ * Array of class maps loaded
+ *
+ * @var array
+ */
+ protected static $maps = array();
+
+ /**
+ * Last classmap specified
+ *
+ * @var array
+ */
+ protected static $mapfile = null;
+
+ /**
+ * Array of classes loaded automatically not in the map
+ *
+ * @var array
+ */
+ protected static $unmapped = array();
/**
* Initialize the PEAR2 autoloader
@@ -24,10 +52,11 @@ class Autoload
*
* @return void
*/
- static function initialize($path)
+ static function initialize($path, $mapfile = null)
{
self::register();
self::addPath($path);
+ self::addMap($mapfile);
}
/**
@@ -65,6 +94,52 @@ protected static function addPath($path)
}
/**
+ * Add a classname-to-file map
+ *
+ * @param string $mapfile The filename of the classmap
+ *
+ * @return void
+ */
+ protected static function addMap($mapfile)
+ {
+ if (! in_array($mapfile, self::$maps)) {
+
+ // keep track of specific map file loaded in this
+ // instance so we can update it if necessary
+ self::$mapfile = $mapfile;
+
+ if (file_exists($mapfile)) {
+ $map = include $mapfile;
+ if (is_array($map)) {
+ // mapfile contains a valid map, so we'll keep it
+ self::$maps[] = $mapfile;
+ self::$map = array_merge(self::$map, $map);
+ }
+ }
+
+ }
+ }
+
+ /**
+ * Check if the class is already defined in a classmap
+ *
+ * @param string $class The class to look for
+ *
+ * @return bool
+ */
+ protected static function isMapped($class)
+ {
+ if (isset(self::$map[$class])) {
+ return true;
+ }
+ if (isset(self::$mapfile) && ! isset(self::$map[$class])) {
+ self::$unmapped[] = $class;
+ return false;
+ }
+ return false;
+ }
+
+ /**
* Load a PEAR2 class
*
* @param string $class The class to load
@@ -73,21 +148,36 @@ protected static function addPath($path)
*/
static function load($class)
{
- if (strtolower(substr($class, 0, 6)) !== 'pear2\\') {
- return false;
+ // need to check if there's a current map file specified ALSO.
+ // this could be the first time writing it.
+ $mapped = self::isMapped($class);
+ if ($mapped) {
+ require self::$map[$class];
+ if (!self::loadSuccessful($class)) {
+ // record this failure & keep going, we may still find it
+ self::$unmapped[] = $class;
+ } else {
+ return true;
+ }
}
+
$file = str_replace(array('_', '\\'), DIRECTORY_SEPARATOR, $class) . '.php';
foreach (self::$paths as $path) {
if (file_exists($path . DIRECTORY_SEPARATOR . $file)) {
require $path . DIRECTORY_SEPARATOR . $file;
- if (!class_exists($class, false) && !interface_exists($class, false)) {
- die(new \Exception('Class ' . $class . ' was not present in ' .
+ if (!self::loadSuccessful($class)) {
+ throw new \Exception('Class ' . $class . ' was not present in ' .
$path . DIRECTORY_SEPARATOR . $file .
- '") [PEAR2_Autoload-@PACKAGE_VERSION@]'));
+ '") [PEAR2_Autoload-@PACKAGE_VERSION@]');
+ }
+
+ if (in_array($class, self::$unmapped)) {
+ self::updateMap($class, $path . DIRECTORY_SEPARATOR . $file);
}
return true;
}
}
+
$e = new \Exception('Class ' . $class . ' could not be loaded from ' .
$file . ', file does not exist (registered paths="' .
implode(PATH_SEPARATOR, self::$paths) .
@@ -101,10 +191,45 @@ static function load($class)
in_array($trace[1]['function'], array('class_exists', 'interface_exists'))) {
return false;
}
- die ((string) $e);
+ throw $e;
}
/**
+ * Check if the requested class was loaded from the specified path
+ *
+ * @return bool
+ */
+ protected static function loadSuccessful($class)
+ {
+ if (!class_exists($class, false) && !interface_exists($class, false)) {
+ return false;
+ }
+ return true;
+ }
+
+ /**
+ * If possible, update the classmap file with newly-discovered
+ * mapping.
+ *
+ * @param string $class Class name discovered
+ *
+ * @param string $origin File where class was found
+ *
+ */
+ protected static function updateMap($class, $origin)
+ {
+ if (is_writable(self::$mapfile) || is_writable(dirname(self::$mapfile))) {
+ self::$map[$class] = $origin;
+ file_put_contents(self::$mapfile,
+ '<'."?php\n"
+ . "// PEAR2\Autoload auto-generated classmap\n"
+ . "return " . var_export(self::$map, true) . ';',
+ LOCK_EX
+ );
+ }
+ }
+
+ /**
* return the array of paths PEAR2 autoload has registered
*
* @return array
View
9 tests/_files/testDir1/Foo.php
@@ -0,0 +1,9 @@
+<?php
+namespace testDir1;
+class Foo
+{
+ public static function sayHello()
+ {
+ return "class testDir1\Foo says hi\n";
+ }
+}
View
10 tests/initialize_basic001.phpt
@@ -0,0 +1,10 @@
+--TEST--
+Test PEAR2\Autoload initalization
+--FILE--
+<?php
+require __DIR__ . '/../src/PEAR2/Autoload.php';
+$paths = PEAR2\Autoload::getPaths();
+echo sizeof($paths);
+?>
+--EXPECT--
+1
View
11 tests/initialize_basic002.phpt
@@ -0,0 +1,11 @@
+--TEST--
+Test PEAR2\Autoload initalization w/2nd path
+--FILE--
+<?php
+require __DIR__ . '/../src/PEAR2/Autoload.php';
+PEAR2\Autoload::initialize(__DIR__.'/_files');
+$paths = PEAR2\Autoload::getPaths();
+echo sizeof($paths);
+?>
+--EXPECT--
+2
View
11 tests/initialize_basic003.phpt
@@ -0,0 +1,11 @@
+--TEST--
+Test PEAR2\Autoload initalization w/2nd path AND loading class.
+--FILE--
+<?php
+require __DIR__ . '/../src/PEAR2/Autoload.php';
+PEAR2\Autoload::initialize(__DIR__.'/_files');
+echo testDir1\Foo::sayHello();
+
+?>
+--EXPECT--
+class testDir1\Foo says hi
View
25 tests/initialize_basic004.phpt
@@ -0,0 +1,25 @@
+--TEST--
+Test PEAR2\Autoload initalization w/2nd path, loading class & writing map.
+--FILE--
+<?php
+require __DIR__ . '/../src/PEAR2/Autoload.php';
+PEAR2\Autoload::initialize(__DIR__.'/_files', __DIR__.'/_files/_files_map.php.inc');
+echo testDir1\Foo::sayHello();
+
+$map = include __DIR__.'/_files/_files_map.php.inc';
+if (isset($map['testDir1\\Foo'])) {
+ echo "class mapped\n";
+} else {
+ echo "class not mapped\n";
+}
+
+?>
+--EXPECT--
+class testDir1\Foo says hi
+class mapped
+
+--CLEAN--
+<?php
+// comment this out if you want to review the generated file map!
+unlink(__DIR__.'/_files/_files_map.php.inc');
+?>
View
10 tests/initialize_basic005.phpt
@@ -0,0 +1,10 @@
+--TEST--
+Test PEAR2\Autoload initalization w/2nd path AND FAIL loading non-existent class.
+--FILE--
+<?php
+require __DIR__ . '/../src/PEAR2/Autoload.php';
+PEAR2\Autoload::initialize(__DIR__.'/_files');
+echo testDir1\UnknownClass::sayHello();
+?>
+--EXPECTREGEX--
+^Fatal error.*
View
2,479 tests/run-tests.php.inc
@@ -0,0 +1,2479 @@
+#!/usr/bin/php
+<?php
+/*
+ +----------------------------------------------------------------------+
+ | PHP Version 5, 6 |
+ +----------------------------------------------------------------------+
+ | Copyright (c) 1997-2010 The PHP Group |
+ +----------------------------------------------------------------------+
+ | This source file is subject to version 3.01 of the PHP license, |
+ | that is bundled with this package in the file LICENSE, and is |
+ | available through the world-wide-web at the following url: |
+ | http://www.php.net/license/3_01.txt |
+ | If you did not receive a copy of the PHP license and are unable to |
+ | obtain it through the world-wide-web, please send a note to |
+ | license@php.net so we can mail you a copy immediately. |
+ +----------------------------------------------------------------------+
+ | Authors: Ilia Alshanetsky <iliaa@php.net> |
+ | Preston L. Bannister <pbannister@php.net> |
+ | Marcus Boerger <helly@php.net> |
+ | Derick Rethans <derick@php.net> |
+ | Sander Roobol <sander@php.net> |
+ | (based on version by: Stig Bakken <ssb@php.net>) |
+ | (based on the PHP 3 test framework by Rasmus Lerdorf) |
+ +----------------------------------------------------------------------+
+ */
+
+/* $Id: run-tests.php 308726 2011-02-27 17:55:39Z felipe $ */
+
+/* Sanity check to ensure that pcre extension needed by this script is available.
+ * In the event it is not, print a nice error message indicating that this script will
+ * not run without it.
+ */
+
+if (!extension_loaded('pcre')) {
+ echo <<<NO_PCRE_ERROR
+
++-----------------------------------------------------------+
+| ! ERROR ! |
+| The test-suite requires that you have pcre extension |
+| enabled. To enable this extension either compile your PHP |
+| with --with-pcre-regex or if you've compiled pcre as a |
+| shared module load it via php.ini. |
++-----------------------------------------------------------+
+
+NO_PCRE_ERROR;
+exit;
+}
+
+if (!function_exists('proc_open')) {
+ echo <<<NO_PROC_OPEN_ERROR
+
++-----------------------------------------------------------+
+| ! ERROR ! |
+| The test-suite requires that proc_open() is available. |
+| Please check if you disabled it in php.ini. |
++-----------------------------------------------------------+
+
+NO_PROC_OPEN_ERROR;
+exit;
+}
+
+// Version constants only available as of 5.2.8
+if (!defined("PHP_VERSION_ID")) {
+ list($major, $minor, $bug) = explode(".", phpversion(), 3);
+ $bug = (int)$bug; // Many distros make up their own versions
+ if ($bug < 10) {
+ $bug = "0$bug";
+ }
+
+ define("PHP_VERSION_ID", "{$major}0{$minor}$bug");
+ define("PHP_MAJOR_VERSION", $major);
+}
+
+// __DIR__ is available from 5.3.0
+if (PHP_VERSION_ID < 50300) {
+ define('__DIR__', realpath(dirname(__FILE__)));
+ // FILE_BINARY is available from 5.2.7
+ if (PHP_VERSION_ID < 50207) {
+ define('FILE_BINARY', 0);
+ }
+}
+
+// (unicode) is available from 6.0.0
+if (PHP_VERSION_ID < 60000) {
+ define('STRING_TYPE', 'string');
+} else {
+ define('STRING_TYPE', 'unicode');
+}
+
+// If timezone is not set, use UTC.
+if (ini_get('date.timezone') == '') {
+ date_default_timezone_set('UTC');
+}
+
+// store current directory
+$CUR_DIR = getcwd();
+
+// change into the PHP source directory.
+
+if (getenv('TEST_PHP_SRCDIR')) {
+ @chdir(getenv('TEST_PHP_SRCDIR'));
+}
+
+// Delete some security related environment variables
+putenv('SSH_CLIENT=deleted');
+putenv('SSH_AUTH_SOCK=deleted');
+putenv('SSH_TTY=deleted');
+putenv('SSH_CONNECTION=deleted');
+
+$cwd = getcwd();
+set_time_limit(0);
+
+ini_set('pcre.backtrack_limit', PHP_INT_MAX);
+
+$valgrind_version = 0;
+$valgrind_header = '';
+
+// delete as much output buffers as possible
+while(@ob_end_clean());
+if (ob_get_level()) echo "Not all buffers were deleted.\n";
+
+error_reporting(E_ALL);
+if (PHP_MAJOR_VERSION < 6) {
+ ini_set('magic_quotes_runtime',0); // this would break tests by modifying EXPECT sections
+ if (ini_get('safe_mode')) {
+ echo <<< SAFE_MODE_WARNING
+
++-----------------------------------------------------------+
+| ! WARNING ! |
+| You are running the test-suite with "safe_mode" ENABLED ! |
+| |
+| Chances are high that no test will work at all, |
+| depending on how you configured "safe_mode" ! |
++-----------------------------------------------------------+
+
+
+SAFE_MODE_WARNING;
+ }
+}
+
+$environment = isset($_ENV) ? $_ENV : array();
+if ((substr(PHP_OS, 0, 3) == "WIN") && empty($environment["SystemRoot"])) {
+ $environment["SystemRoot"] = getenv("SystemRoot");
+}
+
+// Don't ever guess at the PHP executable location.
+// Require the explicit specification.
+// Otherwise we could end up testing the wrong file!
+
+$php = null;
+$php_cgi = null;
+
+if (getenv('TEST_PHP_EXECUTABLE')) {
+ $php = getenv('TEST_PHP_EXECUTABLE');
+
+ if ($php=='auto') {
+ $php = $cwd . '/sapi/cli/php';
+ putenv("TEST_PHP_EXECUTABLE=$php");
+
+ if (!getenv('TEST_PHP_CGI_EXECUTABLE')) {
+ $php_cgi = $cwd . '/sapi/cgi/php-cgi';
+
+ if (file_exists($php_cgi)) {
+ putenv("TEST_PHP_CGI_EXECUTABLE=$php_cgi");
+ } else {
+ $php_cgi = null;
+ }
+ }
+ }
+ $environment['TEST_PHP_EXECUTABLE'] = $php;
+}
+
+if (getenv('TEST_PHP_CGI_EXECUTABLE')) {
+ $php_cgi = getenv('TEST_PHP_CGI_EXECUTABLE');
+
+ if ($php_cgi=='auto') {
+ $php_cgi = $cwd . '/sapi/cgi/php-cgi';
+ putenv("TEST_PHP_CGI_EXECUTABLE=$php_cgi");
+ }
+
+ $environment['TEST_PHP_CGI_EXECUTABLE'] = $php_cgi;
+}
+
+function verify_config()
+{
+ global $php;
+
+ if (empty($php) || !file_exists($php)) {
+ error('environment variable TEST_PHP_EXECUTABLE must be set to specify PHP executable!');
+ }
+
+ if (function_exists('is_executable') && !is_executable($php)) {
+ error("invalid PHP executable specified by TEST_PHP_EXECUTABLE = $php");
+ }
+}
+
+if (getenv('TEST_PHP_LOG_FORMAT')) {
+ $log_format = strtoupper(getenv('TEST_PHP_LOG_FORMAT'));
+} else {
+ $log_format = 'LEODS';
+}
+
+// Check whether a detailed log is wanted.
+if (getenv('TEST_PHP_DETAILED')) {
+ $DETAILED = getenv('TEST_PHP_DETAILED');
+} else {
+ $DETAILED = 0;
+}
+
+// Check whether user test dirs are requested.
+if (getenv('TEST_PHP_USER')) {
+ $user_tests = explode (',', getenv('TEST_PHP_USER'));
+} else {
+ $user_tests = array();
+}
+
+$exts_to_test = array();
+$ini_overwrites = array(
+ 'output_handler=',
+ 'open_basedir=',
+ 'safe_mode=0',
+ 'disable_functions=',
+ 'output_buffering=Off',
+ 'error_reporting=' . (E_ALL | E_STRICT),
+ 'display_errors=1',
+ 'display_startup_errors=1',
+ 'log_errors=0',
+ 'html_errors=0',
+ 'track_errors=1',
+ 'report_memleaks=1',
+ 'report_zend_debug=0',
+ 'docref_root=',
+ 'docref_ext=.html',
+ 'error_prepend_string=',
+ 'error_append_string=',
+ 'auto_prepend_file=',
+ 'auto_append_file=',
+ 'magic_quotes_runtime=0',
+ 'ignore_repeated_errors=0',
+ 'precision=14',
+ 'unicode.runtime_encoding=ISO-8859-1',
+ 'unicode.script_encoding=UTF-8',
+ 'unicode.output_encoding=UTF-8',
+ 'unicode.from_error_mode=U_INVALID_SUBSTITUTE',
+ );
+
+function write_information($show_html)
+{
+ global $cwd, $php, $php_cgi, $php_info, $user_tests, $ini_overwrites, $pass_options, $exts_to_test, $leak_check, $valgrind_header;
+
+ // Get info from php
+ $info_file = __DIR__ . '/run-test-info.php';
+ @unlink($info_file);
+ $php_info = '<?php echo "
+PHP_SAPI : " , PHP_SAPI , "
+PHP_VERSION : " , phpversion() , "
+ZEND_VERSION: " , zend_version() , "
+PHP_OS : " , PHP_OS , " - " , php_uname() , "
+INI actual : " , realpath(get_cfg_var("cfg_file_path")) , "
+More .INIs : " , (function_exists(\'php_ini_scanned_files\') ? str_replace("\n","", php_ini_scanned_files()) : "** not determined **"); ?>';
+ save_text($info_file, $php_info);
+ $info_params = array();
+ settings2array($ini_overwrites, $info_params);
+ settings2params($info_params);
+ $php_info = `$php $pass_options $info_params "$info_file"`;
+ define('TESTED_PHP_VERSION', `$php -n -r "echo PHP_VERSION;"`);
+
+ if ($php_cgi && $php != $php_cgi) {
+ $php_info_cgi = `$php_cgi $pass_options $info_params -q "$info_file"`;
+ $php_info_sep = "\n---------------------------------------------------------------------";
+ $php_cgi_info = "$php_info_sep\nPHP : $php_cgi $php_info_cgi$php_info_sep";
+ } else {
+ $php_cgi_info = '';
+ }
+
+ @unlink($info_file);
+
+ // load list of enabled extensions
+ save_text($info_file, '<?php echo join(",", get_loaded_extensions()); ?>');
+ $exts_to_test = explode(',',`$php $pass_options $info_params "$info_file"`);
+ // check for extensions that need special handling and regenerate
+ $info_params_ex = array(
+ 'session' => array('session.auto_start=0'),
+ 'tidy' => array('tidy.clean_output=0'),
+ 'zlib' => array('zlib.output_compression=Off'),
+ 'xdebug' => array('xdebug.default_enable=0'),
+ 'mbstring' => array('mbstring.func_overload=0'),
+ );
+
+ foreach($info_params_ex as $ext => $ini_overwrites_ex) {
+ if (in_array($ext, $exts_to_test)) {
+ $ini_overwrites = array_merge($ini_overwrites, $ini_overwrites_ex);
+ }
+ }
+
+ @unlink($info_file);
+
+ // Write test context information.
+ echo "
+=====================================================================
+PHP : $php $php_info $php_cgi_info
+CWD : $cwd
+Extra dirs : ";
+ foreach ($user_tests as $test_dir) {
+ echo "{$test_dir}\n ";
+ }
+ echo "
+VALGRIND : " . ($leak_check ? $valgrind_header : 'Not used') . "
+=====================================================================
+";
+}
+
+define('PHP_QA_EMAIL', 'qa-reports@lists.php.net');
+define('QA_SUBMISSION_PAGE', 'http://qa.php.net/buildtest-process.php');
+
+function save_or_mail_results()
+{
+ global $sum_results, $just_save_results, $failed_test_summary,
+ $PHP_FAILED_TESTS, $CUR_DIR, $php, $output_file, $compression;
+
+ /* We got failed Tests, offer the user to send an e-mail to QA team, unless NO_INTERACTION is set */
+ if (!getenv('NO_INTERACTION')) {
+ $fp = fopen("php://stdin", "r+");
+ if ($sum_results['FAILED'] || $sum_results['BORKED'] || $sum_results['WARNED'] || $sum_results['LEAKED'] || $sum_results['XFAILED']) {
+ echo "\nYou may have found a problem in PHP.";
+ }
+ echo "\nWe would like to send this report automatically to the\n";
+ echo "PHP QA team, to give us a better understanding of how\nthe test cases are doing. If you don't want to send it\n";
+ echo "immediately, you can choose \"s\" to save the report to\na file that you can send us later.\n";
+ echo "Do you want to send this report now? [Yns]: ";
+ flush();
+
+ $user_input = fgets($fp, 10);
+ $just_save_results = (strtolower($user_input[0]) == 's');
+ }
+
+ if ($just_save_results || !getenv('NO_INTERACTION')) {
+ if ($just_save_results || strlen(trim($user_input)) == 0 || strtolower($user_input[0]) == 'y') {
+ /*
+ * Collect information about the host system for our report
+ * Fetch phpinfo() output so that we can see the PHP enviroment
+ * Make an archive of all the failed tests
+ * Send an email
+ */
+ if ($just_save_results) {
+ $user_input = 's';
+ }
+
+ /* Ask the user to provide an email address, so that QA team can contact the user */
+ if (!strncasecmp($user_input, 'y', 1) || strlen(trim($user_input)) == 0) {
+ echo "\nPlease enter your email address.\n(Your address will be mangled so that it will not go out on any\nmailinglist in plain text): ";
+ flush();
+ $user_email = trim(fgets($fp, 1024));
+ $user_email = str_replace("@", " at ", str_replace(".", " dot ", $user_email));
+ }
+
+ $failed_tests_data = '';
+ $sep = "\n" . str_repeat('=', 80) . "\n";
+ $failed_tests_data .= $failed_test_summary . "\n";
+ $failed_tests_data .= get_summary(true, false) . "\n";
+
+ if ($sum_results['FAILED']) {
+ foreach ($PHP_FAILED_TESTS['FAILED'] as $test_info) {
+ $failed_tests_data .= $sep . $test_info['name'] . $test_info['info'];
+ $failed_tests_data .= $sep . file_get_contents(realpath($test_info['output']), FILE_BINARY);
+ $failed_tests_data .= $sep . file_get_contents(realpath($test_info['diff']), FILE_BINARY);
+ $failed_tests_data .= $sep . "\n\n";
+ }
+ $status = "failed";
+ } else {
+ $status = "success";
+ }
+
+ $failed_tests_data .= "\n" . $sep . 'BUILD ENVIRONMENT' . $sep;
+ $failed_tests_data .= "OS:\n" . PHP_OS . " - " . php_uname() . "\n\n";
+ $ldd = $autoconf = $sys_libtool = $libtool = $compiler = 'N/A';
+
+ if (substr(PHP_OS, 0, 3) != "WIN") {
+ /* If PHP_AUTOCONF is set, use it; otherwise, use 'autoconf'. */
+ if (getenv('PHP_AUTOCONF')) {
+ $autoconf = shell_exec(getenv('PHP_AUTOCONF') . ' --version');
+ } else {
+ $autoconf = shell_exec('autoconf --version');
+ }
+
+ /* Always use the generated libtool - Mac OSX uses 'glibtool' */
+ $libtool = shell_exec($CUR_DIR . '/libtool --version');
+
+ /* Use shtool to find out if there is glibtool present (MacOSX) */
+ $sys_libtool_path = shell_exec(__DIR__ . '/build/shtool path glibtool libtool');
+
+ if ($sys_libtool_path) {
+ $sys_libtool = shell_exec(str_replace("\n", "", $sys_libtool_path) . ' --version');
+ }
+
+ /* Try the most common flags for 'version' */
+ $flags = array('-v', '-V', '--version');
+ $cc_status = 0;
+
+ foreach($flags AS $flag) {
+ system(getenv('CC') . " $flag >/dev/null 2>&1", $cc_status);
+ if ($cc_status == 0) {
+ $compiler = shell_exec(getenv('CC') . " $flag 2>&1");
+ break;
+ }
+ }
+
+ $ldd = shell_exec("ldd $php 2>/dev/null");
+ }
+
+ $failed_tests_data .= "Autoconf:\n$autoconf\n";
+ $failed_tests_data .= "Bundled Libtool:\n$libtool\n";
+ $failed_tests_data .= "System Libtool:\n$sys_libtool\n";
+ $failed_tests_data .= "Compiler:\n$compiler\n";
+ $failed_tests_data .= "Bison:\n". shell_exec('bison --version 2>/dev/null') . "\n";
+ $failed_tests_data .= "Libraries:\n$ldd\n";
+ $failed_tests_data .= "\n";
+
+ if (isset($user_email)) {
+ $failed_tests_data .= "User's E-mail: " . $user_email . "\n\n";
+ }
+
+ $failed_tests_data .= $sep . "PHPINFO" . $sep;
+ $failed_tests_data .= shell_exec($php . ' -ddisplay_errors=stderr -dhtml_errors=0 -i 2> /dev/null');
+
+ if ($just_save_results || !mail_qa_team($failed_tests_data, $compression, $status)) {
+ file_put_contents($output_file, $failed_tests_data);
+
+ if (!$just_save_results) {
+ echo "\nThe test script was unable to automatically send the report to PHP's QA Team\n";
+ }
+
+ echo "Please send " . $output_file . " to " . PHP_QA_EMAIL . " manually, thank you.\n";
+ } else {
+ fwrite($fp, "\nThank you for helping to make PHP better.\n");
+ fclose($fp);
+ }
+ }
+ }
+}
+
+// Determine the tests to be run.
+
+$test_files = array();
+$redir_tests = array();
+$test_results = array();
+$PHP_FAILED_TESTS = array('BORKED' => array(), 'FAILED' => array(), 'WARNED' => array(), 'LEAKED' => array(), 'XFAILED' => array());
+
+// If parameters given assume they represent selected tests to run.
+$failed_tests_file= false;
+$pass_option_n = false;
+$pass_options = '';
+
+$compression = 0;
+$output_file = $CUR_DIR . '/php_test_results_' . date('Ymd_Hi') . '.txt';
+
+if ($compression) {
+ $output_file = 'compress.zlib://' . $output_file . '.gz';
+}
+
+$just_save_results = false;
+$leak_check = false;
+$html_output = false;
+$html_file = null;
+$temp_source = null;
+$temp_target = null;
+$temp_urlbase = null;
+$conf_passed = null;
+$no_clean = false;
+
+$cfgtypes = array('show', 'keep');
+$cfgfiles = array('skip', 'php', 'clean', 'out', 'diff', 'exp');
+$cfg = array();
+
+foreach($cfgtypes as $type) {
+ $cfg[$type] = array();
+
+ foreach($cfgfiles as $file) {
+ $cfg[$type][$file] = false;
+ }
+}
+
+if (getenv('TEST_PHP_ARGS')) {
+
+ if (!isset($argc) || !$argc || !isset($argv)) {
+ $argv = array(__FILE__);
+ }
+
+ $argv = array_merge($argv, split(' ', getenv('TEST_PHP_ARGS')));
+ $argc = count($argv);
+}
+
+if (isset($argc) && $argc > 1) {
+
+ for ($i=1; $i<$argc; $i++) {
+ $is_switch = false;
+ $switch = substr($argv[$i],1,1);
+ $repeat = substr($argv[$i],0,1) == '-';
+
+ while ($repeat) {
+
+ if (!$is_switch) {
+ $switch = substr($argv[$i],1,1);
+ }
+
+ $is_switch = true;
+
+ if ($repeat) {
+ foreach($cfgtypes as $type) {
+ if (strpos($switch, '--' . $type) === 0) {
+ foreach($cfgfiles as $file) {
+ if ($switch == '--' . $type . '-' . $file) {
+ $cfg[$type][$file] = true;
+ $is_switch = false;
+ break;
+ }
+ }
+ }
+ }
+ }
+
+ if (!$is_switch) {
+ $is_switch = true;
+ break;
+ }
+
+ $repeat = false;
+
+ switch($switch) {
+ case 'r':
+ case 'l':
+ $test_list = file($argv[++$i]);
+ if ($test_list) {
+ foreach($test_list as $test) {
+ $matches = array();
+ if (preg_match('/^#.*\[(.*)\]\:\s+(.*)$/', $test, $matches)) {
+ $redir_tests[] = array($matches[1], $matches[2]);
+ } else if (strlen($test)) {
+ $test_files[] = trim($test);
+ }
+ }
+ }
+ if ($switch != 'l') {
+ break;
+ }
+ $i--;
+ // break left intentionally
+ case 'w':
+ $failed_tests_file = fopen($argv[++$i], 'w+t');
+ break;
+ case 'a':
+ $failed_tests_file = fopen($argv[++$i], 'a+t');
+ break;
+ case 'c':
+ $conf_passed = $argv[++$i];
+ break;
+ case 'd':
+ $ini_overwrites[] = $argv[++$i];
+ break;
+ //case 'h'
+ case '--keep-all':
+ foreach($cfgfiles as $file) {
+ $cfg['keep'][$file] = true;
+ }
+ break;
+ //case 'l'
+ case 'm':
+ $leak_check = true;
+ $valgrind_cmd = "valgrind --version";
+ $valgrind_header = system_with_timeout($valgrind_cmd, $environment);
+ $replace_count = 0;
+ if (!$valgrind_header) {
+ error("Valgrind returned no version info, cannot proceed.\nPlease check if Valgrind is installed.");
+ } else {
+ $valgrind_version = preg_replace("/valgrind-([0-9])\.([0-9])\.([0-9]+)([.-\w]+)?(\s+)/", '$1$2$3', $valgrind_header, 1, $replace_count);
+ if ($replace_count != 1 || !is_numeric($valgrind_version)) {
+ error("Valgrind returned invalid version info (\"$valgrind_header\"), cannot proceed.");
+ }
+ $valgrind_header = trim($valgrind_header);
+ }
+ break;
+ case 'n':
+ if (!$pass_option_n) {
+ $pass_options .= ' -n';
+ }
+ $pass_option_n = true;
+ break;
+ case '--no-clean':
+ $no_clean = true;
+ break;
+ case 'p':
+ $php = $argv[++$i];
+ putenv("TEST_PHP_EXECUTABLE=$php");
+ $environment['TEST_PHP_EXECUTABLE'] = $php;
+ break;
+ case 'q':
+ putenv('NO_INTERACTION=1');
+ break;
+ //case 'r'
+ case 's':
+ $output_file = $argv[++$i];
+ $just_save_results = true;
+ break;
+ case '--set-timeout':
+ $environment['TEST_TIMEOUT'] = $argv[++$i];
+ break;
+ case '--show-all':
+ foreach($cfgfiles as $file) {
+ $cfg['show'][$file] = true;
+ }
+ break;
+ case '--temp-source':
+ $temp_source = $argv[++$i];
+ break;
+ case '--temp-target':
+ $temp_target = $argv[++$i];
+ if ($temp_urlbase) {
+ $temp_urlbase = $temp_target;
+ }
+ break;
+ case '--temp-urlbase':
+ $temp_urlbase = $argv[++$i];
+ break;
+ case 'v':
+ case '--verbose':
+ $DETAILED = true;
+ break;
+ case 'x':
+ $environment['SKIP_SLOW_TESTS'] = 1;
+ break;
+ //case 'w'
+ case '-':
+ // repeat check with full switch
+ $switch = $argv[$i];
+ if ($switch != '-') {
+ $repeat = true;
+ }
+ break;
+ case '--html':
+ $html_file = fopen($argv[++$i], 'wt');
+ $html_output = is_resource($html_file);
+ break;
+ case '--version':
+ echo '$Revision: 308726 $' . "\n";
+ exit(1);
+
+ default:
+ echo "Illegal switch '$switch' specified!\n";
+ case 'h':
+ case '-help':
+ case '--help':
+ echo <<<HELP
+Synopsis:
+ php run-tests.php [options] [files] [directories]
+
+Options:
+ -l <file> Read the testfiles to be executed from <file>. After the test
+ has finished all failed tests are written to the same <file>.
+ If the list is empty and no further test is specified then
+ all tests are executed (same as: -r <file> -w <file>).
+
+ -r <file> Read the testfiles to be executed from <file>.
+
+ -w <file> Write a list of all failed tests to <file>.
+
+ -a <file> Same as -w but append rather then truncating <file>.
+
+ -c <file> Look for php.ini in directory <file> or use <file> as ini.
+
+ -n Pass -n option to the php binary (Do not use a php.ini).
+
+ -d foo=bar Pass -d option to the php binary (Define INI entry foo
+ with value 'bar').
+
+ -m Test for memory leaks with Valgrind.
+
+ -p <php> Specify PHP executable to run.
+
+ -q Quiet, no user interaction (same as environment NO_INTERACTION).
+
+ -s <file> Write output to <file>.
+
+ -x Sets 'SKIP_SLOW_TESTS' environmental variable.
+
+ --verbose
+ -v Verbose mode.
+
+ --help
+ -h This Help.
+
+ --html <file> Generate HTML output.
+
+ --temp-source <sdir> --temp-target <tdir> [--temp-urlbase <url>]
+ Write temporary files to <tdir> by replacing <sdir> from the
+ filenames to generate with <tdir>. If --html is being used and
+ <url> given then the generated links are relative and prefixed
+ with the given url. In general you want to make <sdir> the path
+ to your source files and <tdir> some pach in your web page
+ hierarchy with <url> pointing to <tdir>.
+
+ --keep-[all|php|skip|clean]
+ Do not delete 'all' files, 'php' test file, 'skip' or 'clean'
+ file.
+
+ --set-timeout [n]
+ Set timeout for individual tests, where [n] is the number of
+ seconds. The default value is 60 seconds, or 300 seconds when
+ testing for memory leaks.
+
+ --show-[all|php|skip|clean|exp|diff|out]
+ Show 'all' files, 'php' test file, 'skip' or 'clean' file. You
+ can also use this to show the output 'out', the expected result
+ 'exp' or the difference between them 'diff'. The result types
+ get written independent of the log format, however 'diff' only
+ exists when a test fails.
+
+ --no-clean Do not execute clean section if any.
+
+HELP;
+ exit(1);
+ }
+ }
+
+ if (!$is_switch) {
+ $testfile = realpath($argv[$i]);
+
+ if (!$testfile && strpos($argv[$i], '*') !== false && function_exists('glob')) {
+
+ if (preg_match("/\.phpt$/", $argv[$i])) {
+ $pattern_match = glob($argv[$i]);
+ } else if (preg_match("/\*$/", $argv[$i])) {
+ $pattern_match = glob($argv[$i] . '.phpt');
+ } else {
+ die("bogus test name " . $argv[$i] . "\n");
+ }
+
+ if (is_array($pattern_match)) {
+ $test_files = array_merge($test_files, $pattern_match);
+ }
+
+ } else if (is_dir($testfile)) {
+ find_files($testfile);
+ } else if (preg_match("/\.phpt$/", $testfile)) {
+ $test_files[] = $testfile;
+ } else {
+ die("bogus test name " . $argv[$i] . "\n");
+ }
+ }
+ }
+
+ if (strlen($conf_passed)) {
+ if (substr(PHP_OS, 0, 3) == "WIN") {
+ $pass_options .= " -c " . escapeshellarg($conf_passed);
+ } else {
+ $pass_options .= " -c '$conf_passed'";
+ }
+ }
+
+ $test_files = array_unique($test_files);
+ $test_files = array_merge($test_files, $redir_tests);
+
+ // Run selected tests.
+ $test_cnt = count($test_files);
+
+ if ($test_cnt) {
+ putenv('NO_INTERACTION=1');
+ verify_config();
+ write_information($html_output);
+ usort($test_files, "test_sort");
+ $start_time = time();
+
+ if (!$html_output) {
+ echo "Running selected tests.\n";
+ } else {
+ show_start($start_time);
+ }
+
+ $test_idx = 0;
+ run_all_tests($test_files, $environment);
+ $end_time = time();
+
+ if ($html_output) {
+ show_end($end_time);
+ }
+
+ if ($failed_tests_file) {
+ fclose($failed_tests_file);
+ }
+
+ if (count($test_files) || count($test_results)) {
+ compute_summary();
+ if ($html_output) {
+ fwrite($html_file, "<hr/>\n" . get_summary(false, true));
+ }
+ echo "=====================================================================";
+ echo get_summary(false, false);
+ }
+
+ if ($html_output) {
+ fclose($html_file);
+ }
+
+ if ($output_file != '' && $just_save_results) {
+ save_or_mail_results();
+ }
+
+ if (getenv('REPORT_EXIT_STATUS') == 1 and preg_match('/FAILED(?: |$)/', implode(' ', $test_results))) {
+ exit(1);
+ }
+
+ exit(0);
+ }
+}
+
+verify_config();
+write_information($html_output);
+
+// Compile a list of all test files (*.phpt).
+$test_files = array();
+$exts_tested = count($exts_to_test);
+$exts_skipped = 0;
+$ignored_by_ext = 0;
+sort($exts_to_test);
+$test_dirs = array();
+$optionals = array('tests', 'ext', 'Zend', 'ZendEngine2', 'sapi/cli', 'sapi/cgi');
+
+foreach($optionals as $dir) {
+ if (@filetype($dir) == 'dir') {
+ $test_dirs[] = $dir;
+ }
+}
+
+// Convert extension names to lowercase
+foreach ($exts_to_test as $key => $val) {
+ $exts_to_test[$key] = strtolower($val);
+}
+
+foreach ($test_dirs as $dir) {
+ find_files("{$cwd}/{$dir}", ($dir == 'ext'));
+}
+
+foreach ($user_tests as $dir) {
+ find_files($dir, ($dir == 'ext'));
+}
+
+function find_files($dir, $is_ext_dir = false, $ignore = false)
+{
+ global $test_files, $exts_to_test, $ignored_by_ext, $exts_skipped, $exts_tested;
+
+ $o = opendir($dir) or error("cannot open directory: $dir");
+
+ while (($name = readdir($o)) !== false) {
+
+ if (is_dir("{$dir}/{$name}") && !in_array($name, array('.', '..', 'CVS'))) {
+ $skip_ext = ($is_ext_dir && !in_array(strtolower($name), $exts_to_test));
+ if ($skip_ext) {
+ $exts_skipped++;
+ }
+ find_files("{$dir}/{$name}", false, $ignore || $skip_ext);
+ }
+
+ // Cleanup any left-over tmp files from last run.
+ if (substr($name, -4) == '.tmp') {
+ @unlink("$dir/$name");
+ continue;
+ }
+
+ // Otherwise we're only interested in *.phpt files.
+ if (substr($name, -5) == '.phpt') {
+ if ($ignore) {
+ $ignored_by_ext++;
+ } else {
+ $testfile = realpath("{$dir}/{$name}");
+ $test_files[] = $testfile;
+ }
+ }
+ }
+
+ closedir($o);
+}
+
+function test_name($name)
+{
+ if (is_array($name)) {
+ return $name[0] . ':' . $name[1];
+ } else {
+ return $name;
+ }
+}
+
+function test_sort($a, $b)
+{
+ global $cwd;
+
+ $a = test_name($a);
+ $b = test_name($b);
+
+ $ta = strpos($a, "{$cwd}/tests") === 0 ? 1 + (strpos($a, "{$cwd}/tests/run-test") === 0 ? 1 : 0) : 0;
+ $tb = strpos($b, "{$cwd}/tests") === 0 ? 1 + (strpos($b, "{$cwd}/tests/run-test") === 0 ? 1 : 0) : 0;
+
+ if ($ta == $tb) {
+ return strcmp($a, $b);
+ } else {
+ return $tb - $ta;
+ }
+}
+
+$test_files = array_unique($test_files);
+usort($test_files, "test_sort");
+
+$start_time = time();
+show_start($start_time);
+
+$test_cnt = count($test_files);
+$test_idx = 0;
+run_all_tests($test_files, $environment);
+$end_time = time();
+
+if ($failed_tests_file) {
+ fclose($failed_tests_file);
+}
+
+// Summarize results
+
+if (0 == count($test_results)) {
+ echo "No tests were run.\n";
+ return;
+}
+
+compute_summary();
+
+show_end($end_time);
+show_summary();
+
+if ($html_output) {
+ fclose($html_file);
+}
+
+save_or_mail_results();
+
+if (getenv('REPORT_EXIT_STATUS') == 1 and $sum_results['FAILED']) {
+ exit(1);
+}
+exit(0);
+
+//
+// Send Email to QA Team
+//
+
+function mail_qa_team($data, $compression, $status = false)
+{
+ $url_bits = parse_url(QA_SUBMISSION_PAGE);
+
+ if (empty($url_bits['port'])) {
+ $url_bits['port'] = 80;
+ }
+
+ $data = "php_test_data=" . urlencode(base64_encode(str_replace("\00", '[0x0]', $data)));
+ $data_length = strlen($data);
+
+ $fs = fsockopen($url_bits['host'], $url_bits['port'], $errno, $errstr, 10);
+
+ if (!$fs) {
+ return false;
+ }
+
+ $php_version = urlencode(TESTED_PHP_VERSION);
+
+ echo "\nPosting to {$url_bits['host']} {$url_bits['path']}\n";
+ fwrite($fs, "POST " . $url_bits['path'] . "?status=$status&version=$php_version HTTP/1.1\r\n");
+ fwrite($fs, "Host: " . $url_bits['host'] . "\r\n");
+ fwrite($fs, "User-Agent: QA Browser 0.1\r\n");
+ fwrite($fs, "Content-Type: application/x-www-form-urlencoded\r\n");
+ fwrite($fs, "Content-Length: " . $data_length . "\r\n\r\n");
+ fwrite($fs, $data);
+ fwrite($fs, "\r\n\r\n");
+ fclose($fs);
+
+ return 1;
+}
+
+
+//
+// Write the given text to a temporary file, and return the filename.
+//
+
+function save_text($filename, $text, $filename_copy = null)
+{
+ global $DETAILED;
+
+ if ($filename_copy && $filename_copy != $filename) {
+ if (file_put_contents($filename_copy, (binary) $text, FILE_BINARY) === false) {
+ error("Cannot open file '" . $filename_copy . "' (save_text)");
+ }
+ }
+
+ if (file_put_contents($filename, (binary) $text, FILE_BINARY) === false) {
+ error("Cannot open file '" . $filename . "' (save_text)");
+ }
+
+ if (1 < $DETAILED) echo "
+FILE $filename {{{
+$text
+}}}
+";
+}
+
+//
+// Write an error in a format recognizable to Emacs or MSVC.
+//
+
+function error_report($testname, $logname, $tested)
+{
+ $testname = realpath($testname);
+ $logname = realpath($logname);
+
+ switch (strtoupper(getenv('TEST_PHP_ERROR_STYLE'))) {
+ case 'MSVC':
+ echo $testname . "(1) : $tested\n";
+ echo $logname . "(1) : $tested\n";
+ break;
+ case 'EMACS':
+ echo $testname . ":1: $tested\n";
+ echo $logname . ":1: $tested\n";
+ break;
+ }
+}
+
+function system_with_timeout($commandline, $env = null, $stdin = null)
+{
+ global $leak_check, $cwd;
+
+ $data = b'';
+
+ $bin_env = array();
+ foreach((array)$env as $key => $value) {
+ $bin_env[(binary)$key] = (binary)$value;
+ }
+
+ $proc = proc_open($commandline, array(
+ 0 => array('pipe', 'r'),
+ 1 => array('pipe', 'w'),
+ 2 => array('pipe', 'w')
+ ), $pipes, $cwd, $bin_env, array('suppress_errors' => true, 'binary_pipes' => true));
+
+ if (!$proc) {
+ return false;
+ }
+
+ if (!is_null($stdin)) {
+ fwrite($pipes[0], (binary) $stdin);
+ }
+ fclose($pipes[0]);
+
+ $timeout = $leak_check ? 300 : (isset($env['TEST_TIMEOUT']) ? $env['TEST_TIMEOUT'] : 60);
+
+ while (true) {
+ /* hide errors from interrupted syscalls */
+ $r = $pipes;
+ $w = null;
+ $e = null;
+
+ $n = @stream_select($r, $w, $e, $timeout);
+
+ if ($n === false) {
+ break;
+ } else if ($n === 0) {
+ /* timed out */
+ $data .= b"\n ** ERROR: process timed out **\n";
+ proc_terminate($proc);
+ return $data;
+ } else if ($n > 0) {
+ $line = (binary) fread($pipes[1], 8192);
+ if (strlen($line) == 0) {
+ /* EOF */
+ break;
+ }
+ $data .= $line;
+ }
+ }
+
+ $stat = proc_get_status($proc);
+
+ if ($stat['signaled']) {
+ $data .= b"\nTermsig=" . $stat['stopsig'];
+ }
+
+ $code = proc_close($proc);
+ return $data;
+}
+
+function run_all_tests($test_files, $env, $redir_tested = null)
+{
+ global $test_results, $failed_tests_file, $php, $test_cnt, $test_idx;
+
+ foreach($test_files as $name) {
+
+ if (is_array($name)) {
+ $index = "# $name[1]: $name[0]";
+
+ if ($redir_tested) {
+ $name = $name[0];
+ }
+ } else if ($redir_tested) {
+ $index = "# $redir_tested: $name";
+ } else {
+ $index = $name;
+ }
+ $test_idx++;
+ $result = run_test($php, $name, $env);
+
+ if (!is_array($name) && $result != 'REDIR') {
+ $test_results[$index] = $result;
+ if ($failed_tests_file && ($result == 'XFAILED' || $result == 'FAILED' || $result == 'WARNED' || $result == 'LEAKED')) {
+ fwrite($failed_tests_file, "$index\n");
+ }
+ }
+ }
+}
+
+//
+// Show file or result block
+//
+function show_file_block($file, $block, $section = null)
+{
+ global $cfg;
+
+ if ($cfg['show'][$file]) {
+
+ if (is_null($section)) {
+ $section = strtoupper($file);
+ }
+
+ echo "\n========" . $section . "========\n";
+ echo rtrim($block);
+ echo "\n========DONE========\n";
+ }
+}
+
+function binary_section($section)
+{
+ return PHP_MAJOR_VERSION < 6 ||
+ (
+ $section == 'FILE' ||
+ $section == 'FILEEOF' ||
+ $section == 'EXPECT' ||
+ $section == 'EXPECTF' ||
+ $section == 'EXPECTREGEX' ||
+ $section == 'EXPECTHEADERS' ||
+ $section == 'SKIPIF' ||
+ $section == 'CLEAN'
+ );
+}
+
+//
+// Run an individual test case.
+//
+function run_test($php, $file, $env)
+{
+ global $log_format, $info_params, $ini_overwrites, $cwd, $PHP_FAILED_TESTS;
+ global $pass_options, $DETAILED, $IN_REDIRECT, $test_cnt, $test_idx;
+ global $leak_check, $temp_source, $temp_target, $cfg, $environment;
+ global $no_clean;
+ global $valgrind_version;
+ $temp_filenames = null;
+ $org_file = $file;
+
+ if (isset($env['TEST_PHP_CGI_EXECUTABLE'])) {
+ $php_cgi = $env['TEST_PHP_CGI_EXECUTABLE'];
+ }
+
+ if (is_array($file)) {
+ $file = $file[0];
+ }
+
+ if ($DETAILED) echo "
+=================
+TEST $file
+";
+
+ // Load the sections of the test file.
+ $section_text = array('TEST' => '');
+
+ $fp = fopen($file, "rb") or error("Cannot open test file: $file");
+
+ $borked = false;
+ $bork_info = '';
+
+ if (!feof($fp)) {
+ $line = fgets($fp);
+
+ if ($line === false) {
+ $bork_info = "cannot read test";
+ $borked = true;
+ }
+ } else {
+ $bork_info = "empty test [$file]";
+ $borked = true;
+ }
+ if (!$borked && strncmp('--TEST--', $line, 8)) {
+ $bork_info = "tests must start with --TEST-- [$file]";
+ $borked = true;
+ }
+
+ $section = 'TEST';
+ $secfile = false;
+ $secdone = false;
+
+ while (!feof($fp)) {
+ $line = fgets($fp);
+
+ if ($line === false) {
+ break;
+ }
+
+ // Match the beginning of a section.
+ if (preg_match(b'/^--([_A-Z]+)--/', $line, $r)) {
+ $section = $r[1];
+ settype($section, STRING_TYPE);
+
+ if (isset($section_text[$section])) {
+ $bork_info = "duplicated $section section";
+ $borked = true;
+ }
+
+ $section_text[$section] = binary_section($section) ? b'' : '';
+ $secfile = $section == 'FILE' || $section == 'FILEEOF' || $section == 'FILE_EXTERNAL';
+ $secdone = false;
+ continue;
+ }
+
+ if (!binary_section($section)) {
+ $line = unicode_decode($line, "utf-8");
+ if ($line == false) {
+ $bork_info = "cannot read test";
+ $borked = true;
+ break;
+ }
+ }
+
+ // Add to the section text.
+ if (!$secdone) {
+ $section_text[$section] .= $line;
+ }
+
+ // End of actual test?
+ if ($secfile && preg_match(b'/^===DONE===\s*$/', $line)) {
+ $secdone = true;
+ }
+ }
+
+ // the redirect section allows a set of tests to be reused outside of
+ // a given test dir
+ if (!$borked) {
+ if (@count($section_text['REDIRECTTEST']) == 1) {
+
+ if ($IN_REDIRECT) {
+ $borked = true;
+ $bork_info = "Can't redirect a test from within a redirected test";
+ } else {
+ $borked = false;
+ }
+
+ } else {
+
+ if (@count($section_text['FILE']) + @count($section_text['FILEEOF']) + @count($section_text['FILE_EXTERNAL']) != 1) {
+ $bork_info = "missing section --FILE--";
+ $borked = true;
+ }
+
+ if (@count($section_text['FILEEOF']) == 1) {
+ $section_text['FILE'] = preg_replace(b"/[\r\n]+$/", b'', $section_text['FILEEOF']);
+ unset($section_text['FILEEOF']);
+ }
+
+ if (@count($section_text['FILE_EXTERNAL']) == 1) {
+ // don't allow tests to retrieve files from anywhere but this subdirectory
+ $section_text['FILE_EXTERNAL'] = dirname($file) . '/' . trim(str_replace('..', '', $section_text['FILE_EXTERNAL']));
+
+ if (file_exists($section_text['FILE_EXTERNAL'])) {
+ $section_text['FILE'] = file_get_contents($section_text['FILE_EXTERNAL'], FILE_BINARY);
+ unset($section_text['FILE_EXTERNAL']);
+ } else {
+ $bork_info = "could not load --FILE_EXTERNAL-- " . dirname($file) . '/' . trim($section_text['FILE_EXTERNAL']);
+ $borked = true;
+ }
+ }
+
+ if ((@count($section_text['EXPECT']) + @count($section_text['EXPECTF']) + @count($section_text['EXPECTREGEX'])) != 1) {
+ $bork_info = "missing section --EXPECT--, --EXPECTF-- or --EXPECTREGEX--";
+ $borked = true;
+ }
+ }
+ }
+ fclose($fp);
+
+ $shortname = str_replace($cwd . '/', '', $file);
+ $tested_file = $shortname;
+
+ if ($borked) {
+ show_result("BORK", $bork_info, $tested_file);
+ $PHP_FAILED_TESTS['BORKED'][] = array (
+ 'name' => $file,
+ 'test_name' => '',
+ 'output' => '',
+ 'diff' => '',
+ 'info' => "$bork_info [$file]",
+ );
+ return 'BORKED';
+ }
+
+ $tested = trim($section_text['TEST']);
+
+ /* For GET/POST tests, check if cgi sapi is available and if it is, use it. */
+ if (!empty($section_text['GET']) || !empty($section_text['POST']) || !empty($section_text['POST_RAW']) || !empty($section_text['COOKIE']) || !empty($section_text['EXPECTHEADERS'])) {
+ if (isset($php_cgi)) {
+ $old_php = $php;
+ $php = $php_cgi . ' -C ';
+ } else if (!strncasecmp(PHP_OS, "win", 3) && file_exists(dirname($php) . "/php-cgi.exe")) {
+ $old_php = $php;
+ $php = realpath(dirname($php) . "/php-cgi.exe") . ' -C ';
+ } else {
+ if (file_exists(dirname($php) . "/../../sapi/cgi/php-cgi")) {
+ $old_php = $php;
+ $php = realpath(dirname($php) . "/../../sapi/cgi/php-cgi") . ' -C ';
+ } else if (file_exists("./sapi/cgi/php-cgi")) {
+ $old_php = $php;
+ $php = realpath("./sapi/cgi/php-cgi") . ' -C ';
+ } else {
+ show_result('SKIP', $tested, $tested_file, "reason: CGI not available");
+ return 'SKIPPED';
+ }
+ }
+ }
+
+ show_test($test_idx, $shortname);
+
+ if (is_array($IN_REDIRECT)) {
+ $temp_dir = $test_dir = $IN_REDIRECT['dir'];
+ } else {
+ $temp_dir = $test_dir = realpath(dirname($file));
+ }
+
+ if ($temp_source && $temp_target) {
+ $temp_dir = str_replace($temp_source, $temp_target, $temp_dir);
+ }
+
+ $main_file_name = basename($file,'phpt');
+
+ $diff_filename = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name . 'diff';
+ $log_filename = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name . 'log';
+ $exp_filename = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name . 'exp';
+ $output_filename = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name . 'out';
+ $memcheck_filename = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name . 'mem';
+ $sh_filename = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name . 'sh';
+ $temp_file = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name . 'php';
+ $test_file = $test_dir . DIRECTORY_SEPARATOR . $main_file_name . 'php';
+ $temp_skipif = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name . 'skip.php';
+ $test_skipif = $test_dir . DIRECTORY_SEPARATOR . $main_file_name . 'skip.php';
+ $temp_clean = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name . 'clean.php';
+ $test_clean = $test_dir . DIRECTORY_SEPARATOR . $main_file_name . 'clean.php';
+ $tmp_post = $temp_dir . DIRECTORY_SEPARATOR . uniqid('/phpt.');
+ $tmp_relative_file = str_replace(__DIR__ . DIRECTORY_SEPARATOR, '', $test_file) . 't';
+
+ if ($temp_source && $temp_target) {
+ $temp_skipif .= 's';
+ $temp_file .= 's';
+ $temp_clean .= 's';
+ $copy_file = $temp_dir . DIRECTORY_SEPARATOR . basename(is_array($file) ? $file[1] : $file) . '.phps';
+
+ if (!is_dir(dirname($copy_file))) {
+ mkdir(dirname($copy_file), 0777, true) or error("Cannot create output directory - " . dirname($copy_file));
+ }
+
+ if (isset($section_text['FILE'])) {
+ save_text($copy_file, $section_text['FILE']);
+ }
+
+ $temp_filenames = array(
+ 'file' => $copy_file,
+ 'diff' => $diff_filename,
+ 'log' => $log_filename,
+ 'exp' => $exp_filename,
+ 'out' => $output_filename,
+ 'mem' => $memcheck_filename,
+ 'sh' => $sh_filename,
+ 'php' => $temp_file,
+ 'skip' => $temp_skipif,
+ 'clean'=> $temp_clean);
+ }
+
+ if (is_array($IN_REDIRECT)) {
+ $tested = $IN_REDIRECT['prefix'] . ' ' . trim($section_text['TEST']);
+ $tested_file = $tmp_relative_file;
+ }
+
+ // unlink old test results
+ @unlink($diff_filename);
+ @unlink($log_filename);
+ @unlink($exp_filename);
+ @unlink($output_filename);
+ @unlink($memcheck_filename);
+ @unlink($sh_filename);
+ @unlink($temp_file);
+ @unlink($test_file);
+ @unlink($temp_skipif);
+ @unlink($test_skipif);
+ @unlink($tmp_post);
+ @unlink($temp_clean);
+ @unlink($test_clean);
+
+ // Reset environment from any previous test.
+ $env['REDIRECT_STATUS'] = '';
+ $env['QUERY_STRING'] = '';
+ $env['PATH_TRANSLATED'] = '';
+ $env['SCRIPT_FILENAME'] = '';
+ $env['REQUEST_METHOD'] = '';
+ $env['CONTENT_TYPE'] = '';
+ $env['CONTENT_LENGTH'] = '';
+ $env['TZ'] = '';
+
+ if (!empty($section_text['ENV'])) {
+
+ foreach(explode("\n", trim($section_text['ENV'])) as $e) {
+ $e = explode('=', trim($e), 2);
+
+ if (!empty($e[0]) && isset($e[1])) {
+ $env[$e[0]] = $e[1];
+ }
+ }
+ }
+
+ // Default ini settings
+ $ini_settings = array();
+ // additional ini overwrites
+ //$ini_overwrites[] = 'setting=value';
+ settings2array($ini_overwrites, $ini_settings);
+
+ // Any special ini settings
+ // these may overwrite the test defaults...
+ if (array_key_exists('INI', $section_text)) {
+ if (strpos($section_text['INI'], '{PWD}') !== false) {
+ $section_text['INI'] = str_replace('{PWD}', dirname($file), $section_text['INI']);
+ }
+ settings2array(preg_split( "/[\n\r]+/", $section_text['INI']), $ini_settings);
+ }
+
+ settings2params($ini_settings);
+
+ // Check if test should be skipped.
+ $info = '';
+ $warn = false;
+
+ if (array_key_exists('SKIPIF', $section_text)) {
+
+ if (trim($section_text['SKIPIF'])) {
+ show_file_block('skip', $section_text['SKIPIF']);
+ save_text($test_skipif, $section_text['SKIPIF'], $temp_skipif);
+ $extra = substr(PHP_OS, 0, 3) !== "WIN" ?
+ "unset REQUEST_METHOD; unset QUERY_STRING; unset PATH_TRANSLATED; unset SCRIPT_FILENAME; unset REQUEST_METHOD;": "";
+
+ if ($leak_check) {
+ $env['USE_ZEND_ALLOC'] = '0';
+ } else {
+ $env['USE_ZEND_ALLOC'] = '1';
+ }
+
+ $output = system_with_timeout("$extra $php $pass_options -q $ini_settings -d display_errors=0 $test_skipif", $env);
+
+ if (!$cfg['keep']['skip']) {
+ @unlink($test_skipif);
+ }
+
+ if (!strncasecmp('skip', ltrim($output), 4)) {
+
+ if (preg_match('/^\s*skip\s*(.+)\s*/i', $output, $m)) {
+ show_result('SKIP', $tested, $tested_file, "reason: $m[1]", $temp_filenames);
+ } else {
+ show_result('SKIP', $tested, $tested_file, '', $temp_filenames);
+ }
+
+ if (isset($old_php)) {
+ $php = $old_php;
+ }
+
+ if (!$cfg['keep']['skip']) {
+ @unlink($test_skipif);
+ }
+
+ return 'SKIPPED';
+ }
+
+ if (!strncasecmp('info', ltrim($output), 4)) {
+ if (preg_match('/^\s*info\s*(.+)\s*/i', $output, $m)) {
+ $info = " (info: $m[1])";
+ }
+ }
+
+ if (!strncasecmp('warn', ltrim($output), 4)) {
+ if (preg_match('/^\s*warn\s*(.+)\s*/i', $output, $m)) {
+ $warn = true; /* only if there is a reason */
+ $info = " (warn: $m[1])";
+ }
+ }
+ }
+ }
+
+ if (@count($section_text['REDIRECTTEST']) == 1) {
+ $test_files = array();
+
+ $IN_REDIRECT = eval($section_text['REDIRECTTEST']);
+ $IN_REDIRECT['via'] = "via [$shortname]\n\t";
+ $IN_REDIRECT['dir'] = realpath(dirname($file));
+ $IN_REDIRECT['prefix'] = trim($section_text['TEST']);
+
+ if (count($IN_REDIRECT['TESTS']) == 1) {
+
+ if (is_array($org_file)) {
+ $test_files[] = $org_file[1];
+ } else {
+ $GLOBALS['test_files'] = $test_files;
+ find_files($IN_REDIRECT['TESTS']);
+
+ foreach($GLOBALS['test_files'] as $f) {
+ $test_files[] = array($f, $file);
+ }
+ }
+ $test_cnt += @count($test_files) - 1;
+ $test_idx--;
+
+ show_redirect_start($IN_REDIRECT['TESTS'], $tested, $tested_file);
+
+ // set up environment
+ $redirenv = array_merge($environment, $IN_REDIRECT['ENV']);
+ $redirenv['REDIR_TEST_DIR'] = realpath($IN_REDIRECT['TESTS']) . DIRECTORY_SEPARATOR;
+
+ usort($test_files, "test_sort");
+ run_all_tests($test_files, $redirenv, $tested);
+
+ show_redirect_ends($IN_REDIRECT['TESTS'], $tested, $tested_file);
+
+ // a redirected test never fails
+ $IN_REDIRECT = false;
+ return 'REDIR';
+
+ } else {
+
+ $bork_info = "Redirect info must contain exactly one TEST string to be used as redirect directory.";
+ show_result("BORK", $bork_info, '', $temp_filenames);
+ $PHP_FAILED_TESTS['BORKED'][] = array (
+ 'name' => $file,
+ 'test_name' => '',
+ 'output' => '',
+ 'diff' => '',
+ 'info' => "$bork_info [$file]",
+ );
+ }
+ }
+
+ if (is_array($org_file) || @count($section_text['REDIRECTTEST']) == 1) {
+
+ if (is_array($org_file)) {
+ $file = $org_file[0];
+ }
+
+ $bork_info = "Redirected test did not contain redirection info";
+ show_result("BORK", $bork_info, '', $temp_filenames);
+ $PHP_FAILED_TESTS['BORKED'][] = array (
+ 'name' => $file,
+ 'test_name' => '',
+ 'output' => '',
+ 'diff' => '',
+ 'info' => "$bork_info [$file]",
+ );
+ return 'BORKED';
+ }
+
+ // We've satisfied the preconditions - run the test!
+ show_file_block('php', $section_text['FILE'], 'TEST');
+ save_text($test_file, $section_text['FILE'], $temp_file);
+
+ if (array_key_exists('GET', $section_text)) {
+ $query_string = trim($section_text['GET']);
+ } else {
+ $query_string = '';
+ }
+
+ $env['REDIRECT_STATUS'] = '1';
+ $env['QUERY_STRING'] = $query_string;
+ $env['PATH_TRANSLATED'] = $test_file;
+ $env['SCRIPT_FILENAME'] = $test_file;
+
+ if (array_key_exists('COOKIE', $section_text)) {
+ $env['HTTP_COOKIE'] = trim($section_text['COOKIE']);
+ } else {
+ $env['HTTP_COOKIE'] = '';
+ }
+
+ $args = isset($section_text['ARGS']) ? ' -- ' . $section_text['ARGS'] : '';
+
+ if (array_key_exists('POST_RAW', $section_text) && !empty($section_text['POST_RAW'])) {
+
+ $post = trim($section_text['POST_RAW']);
+ $raw_lines = explode("\n", $post);
+
+ $request = '';
+ $started = false;
+
+ foreach ($raw_lines as $line) {
+
+ if (empty($env['CONTENT_TYPE']) && preg_match('/^Content-Type:(.*)/i', $line, $res)) {
+ $env['CONTENT_TYPE'] = trim(str_replace("\r", '', $res[1]));
+ continue;
+ }
+
+ if ($started) {
+ $request .= "\n";
+ }
+
+ $started = true;
+ $request .= $line;
+ }
+
+ $env['CONTENT_LENGTH'] = strlen($request);
+ $env['REQUEST_METHOD'] = 'POST';
+
+ if (empty($request)) {
+ return 'BORKED';
+ }
+
+ save_text($tmp_post, $request);
+ $cmd = "$php $pass_options $ini_settings -f \"$test_file\" 2>&1 < $tmp_post";
+
+ } else if (array_key_exists('POST', $section_text) && !empty($section_text['POST'])) {
+
+ $post = trim($section_text['POST']);
+
+ if (array_key_exists('GZIP_POST', $section_text) && function_exists('gzencode')) {
+ $post = gzencode($post, 9, FORCE_GZIP);
+ $env['HTTP_CONTENT_ENCODING'] = 'gzip';
+ } else if (array_key_exists('DEFLATE_POST', $section_text) && function_exists('gzcompress')) {
+ $post = gzcompress($post, 9);
+ $env['HTTP_CONTENT_ENCODING'] = 'deflate';
+ }
+
+ save_text($tmp_post, $post);
+ $content_length = strlen($post);
+
+ $env['REQUEST_METHOD'] = 'POST';
+ $env['CONTENT_TYPE'] = 'application/x-www-form-urlencoded';
+ $env['CONTENT_LENGTH'] = $content_length;
+
+ $cmd = "$php $pass_options $ini_settings -f \"$test_file\" 2>&1 < $tmp_post";
+
+ } else {
+
+ $env['REQUEST_METHOD'] = 'GET';
+ $env['CONTENT_TYPE'] = '';
+ $env['CONTENT_LENGTH'] = '';
+
+ $cmd = "$php $pass_options $ini_settings -f \"$test_file\" $args 2>&1";
+ }
+
+ if ($leak_check) {
+ $env['USE_ZEND_ALLOC'] = '0';
+
+ if ($valgrind_version >= 330) {
+ /* valgrind 3.3.0+ doesn't have --log-file-exactly option */
+ $cmd = "valgrind -q --tool=memcheck --trace-children=yes --log-file=$memcheck_filename $cmd";
+ } else {
+ $cmd = "valgrind -q --tool=memcheck --trace-children=yes --log-file-exactly=$memcheck_filename $cmd";
+ }
+
+ } else {
+ $env['USE_ZEND_ALLOC'] = '1';
+ }
+
+ if ($DETAILED) echo "
+CONTENT_LENGTH = " . $env['CONTENT_LENGTH'] . "
+CONTENT_TYPE = " . $env['CONTENT_TYPE'] . "
+PATH_TRANSLATED = " . $env['PATH_TRANSLATED'] . "
+QUERY_STRING = " . $env['QUERY_STRING'] . "
+REDIRECT_STATUS = " . $env['REDIRECT_STATUS'] . "
+REQUEST_METHOD = " . $env['REQUEST_METHOD'] . "
+SCRIPT_FILENAME = " . $env['SCRIPT_FILENAME'] . "
+HTTP_COOKIE = " . $env['HTTP_COOKIE'] . "
+COMMAND $cmd
+";
+
+ $out = (binary) system_with_timeout($cmd, $env, isset($section_text['STDIN']) ? $section_text['STDIN'] : null);
+
+ if (array_key_exists('CLEAN', $section_text) && (!$no_clean || $cfg['keep']['clean'])) {
+
+ if (trim($section_text['CLEAN'])) {
+ show_file_block('clean', $section_text['CLEAN']);
+ save_text($test_clean, trim($section_text['CLEAN']), $temp_clean);
+
+ if (!$no_clean) {
+ $clean_params = array();
+ settings2array($ini_overwrites, $clean_params);
+ settings2params($clean_params);
+ $extra = substr(PHP_OS, 0, 3) !== "WIN" ?
+ "unset REQUEST_METHOD; unset QUERY_STRING; unset PATH_TRANSLATED; unset SCRIPT_FILENAME; unset REQUEST_METHOD;": "";
+ system_with_timeout("$extra $php $pass_options -q $clean_params $test_clean", $env);
+ }
+
+ if (!$cfg['keep']['clean']) {
+ @unlink($test_clean);
+ }
+ }
+ }
+
+ @unlink($tmp_post);
+
+ $leaked = false;
+ $passed = false;
+
+ if ($leak_check) { // leak check
+ $leaked = filesize($memcheck_filename) > 0;
+
+ if (!$leaked) {
+ @unlink($memcheck_filename);
+ }
+ }
+
+ // Does the output match what is expected?
+ $output = preg_replace(b"/\r\n/", b"\n", trim($out));
+
+ /* when using CGI, strip the headers from the output */
+ $headers = b"";
+
+ if (isset($old_php) && preg_match(b"/^(.*?)\r?\n\r?\n(.*)/s", $out, $match)) {
+ $output = trim($match[2]);
+ $rh = preg_split(b"/[\n\r]+/", $match[1]);
+ $headers = array();
+
+ foreach ($rh as $line) {
+ if (strpos($line, b':') !== false) {
+ $line = explode(b':', $line, 2);
+ $headers[trim($line[0])] = trim($line[1]);
+ }
+ }
+ }
+
+ $failed_headers = false;
+
+ if (isset($section_text['EXPECTHEADERS'])) {
+ $want = array();
+ $wanted_headers = array();
+ $lines = preg_split(b"/[\n\r]+/", (binary) $section_text['EXPECTHEADERS']);
+
+ foreach($lines as $line) {
+ if (strpos($line, b':') !== false) {
+ $line = explode(b':', $line, 2);
+ $want[trim($line[0])] = trim($line[1]);
+ $wanted_headers[] = trim($line[0]) . b': ' . trim($line[1]);
+ }
+ }
+
+ $org_headers = $headers;
+ $headers = array();
+ $output_headers = array();
+
+ foreach($want as $k => $v) {
+
+ if (isset($org_headers[$k])) {
+ $headers = $org_headers[$k];
+ $output_headers[] = $k . b': ' . $org_headers[$k];
+ }
+
+ if (!isset($org_headers[$k]) || $org_headers[$k] != $v) {
+ $failed_headers = true;
+ }
+ }
+
+ ksort($wanted_headers);
+ $wanted_headers = join(b"\n", $wanted_headers);
+ ksort($output_headers);
+ $output_headers = join(b"\n", $output_headers);
+ }
+
+ show_file_block('out', $output);
+
+ if (isset($section_text['EXPECTF']) || isset($section_text['EXPECTREGEX'])) {
+
+ if (isset($section_text['EXPECTF'])) {
+ $wanted = trim(<