run-tests.php | searchcode

/opensource.apple.com/source/apache_mod_php/apache_mod_php-43/php/run-tests.php

Large files files are truncated, but you can click here to view the full file

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>run-tests.php</title>
<style type="text/css">
.enscript-comment { font-style: italic; color: rgb(178,34,34); }
.enscript-function-name { font-weight: bold; color: rgb(0,0,255); }
.enscript-variable-name { font-weight: bold; color: rgb(184,134,11); }
.enscript-keyword { font-weight: bold; color: rgb(160,32,240); }
.enscript-reference { font-weight: bold; color: rgb(95,158,160); }
.enscript-string { font-weight: bold; color: rgb(188,143,143); }
.enscript-builtin { font-weight: bold; color: rgb(218,112,214); }
.enscript-type { font-weight: bold; color: rgb(34,139,34); }
.enscript-highlight { text-decoration: underline; color: 0; }
</style>
</head>
<body id="top">
<h1 style="margin:8px;" id="f1">run-tests.php&nbsp;&nbsp;&nbsp;<span style="font-weight: normal; font-size: 0.5em;">[<a href="?txt">plain text</a>]</span></h1>
<hr/>
<div></div>
<pre>
&lt;?php
/*
   +----------------------------------------------------------------------+
   | PHP Version 5                                                        |
   +----------------------------------------------------------------------+
   | Copyright (c) 1997-2007 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:           |
   | <a href="http://www.php.net/license/3_01.txt">http://www.php.net/license/3_01.txt</a>                                  |
   | 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          |
   | <a href="mailto:license@php.net">license@php.net</a> so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
   | Authors: Ilia Alshanetsky &lt;<a href="mailto:iliaa@php.net">iliaa@php.net</a>&gt;                            |
   |          Preston L. Bannister &lt;<a href="mailto:pbannister@php.net">pbannister@php.net</a>&gt;                   |
   |          Marcus Boerger &lt;<a href="mailto:helly@php.net">helly@php.net</a>&gt;                              |
   |          Derick Rethans &lt;<a href="mailto:derick@php.net">derick@php.net</a>&gt;                             |
   |          Sander Roobol &lt;<a href="mailto:sander@php.net">sander@php.net</a>&gt;                              |
   | (based on version by: Stig Bakken &lt;<a href="mailto:ssb@php.net">ssb@php.net</a>&gt;)                     |
   | (based on the PHP 3 test framework by Rasmus Lerdorf)                |
   +----------------------------------------------------------------------+
 */

/* $Id: run-tests.php,v 1.226.2.37.2.34 2007/07/31 21:29:21 jani Exp $ */

/* 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(&quot;pcre&quot;)) {
	echo &lt;&lt;&lt;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(&quot;proc_open&quot;)) {
	echo &lt;&lt;&lt;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;
}

// 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);

// delete as much output buffers as possible
while(@ob_end_clean());
if (ob_get_level()) echo &quot;Not all buffers were deleted.\n&quot;;

error_reporting(E_ALL);
ini_set('magic_quotes_runtime',0); // this would break tests by modifying EXPECT sections

if (ini_get('safe_mode')) {
	echo &lt;&lt;&lt; SAFE_MODE_WARNING

+-----------------------------------------------------------+
|                       ! WARNING !                         |
| You are running the test-suite with &quot;safe_mode&quot; ENABLED ! |
|                                                           |
| Chances are high that no test will work at all,           |
| depending on how you configured &quot;safe_mode&quot; !             |
+-----------------------------------------------------------+


SAFE_MODE_WARNING;
}

$environment = isset($_ENV) ? $_ENV : array();

// Don't ever guess at the PHP executable location.
// Require the explicit specification.
// Otherwise we could end up testing the wrong file!

if (getenv('TEST_PHP_EXECUTABLE')) {
	$php = getenv('TEST_PHP_EXECUTABLE');
	if ($php=='auto') {
		$php = $cwd.'/sapi/cli/php';
		putenv(&quot;TEST_PHP_EXECUTABLE=$php&quot;);
	}
	$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(&quot;TEST_PHP_CGI_EXECUTABLE=$php_cgi&quot;);
	}
	$environment['TEST_PHP_CGI_EXECUTABLE'] = $php_cgi;
}

if ($argc !=2 || ($argv[1] != '-h' &amp;&amp; $argv[1] != '-help' &amp;&amp; $argv != '--help'))
{
	if (empty($php) || !file_exists($php)) {
		error(&quot;environment variable TEST_PHP_EXECUTABLE must be set to specify PHP executable!&quot;);
	}
	if (function_exists('is_executable') &amp;&amp; !@is_executable($php)) {
		error(&quot;invalid PHP executable specified by TEST_PHP_EXECUTABLE  = &quot; . $php);
	}
}

if (getenv('TEST_PHP_LOG_FORMAT')) {
	$log_format = strtoupper(getenv('TEST_PHP_LOG_FORMAT'));
} else {
	$log_format = 'LEOD';
}

// 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=8191',
		'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',
	);

function write_information($show_html)
{
	global $cwd, $php, $php_info, $user_tests, $ini_overwrites, $pass_options, $exts_to_test;

	// Get info from php
	$info_file = realpath(dirname(__FILE__)) . '/run-test-info.php';
	@unlink($info_file);
	$php_info = '&lt;?php echo &quot;
PHP_SAPI    : &quot; . PHP_SAPI . &quot;
PHP_VERSION : &quot; . phpversion() . &quot;
ZEND_VERSION: &quot; . zend_version() . &quot;
PHP_OS      : &quot; . PHP_OS . &quot; - &quot; . php_uname() . &quot;
INI actual  : &quot; . realpath(get_cfg_var(&quot;cfg_file_path&quot;)) . &quot;
More .INIs  : &quot; . (function_exists(\'php_ini_scanned_files\') ? str_replace(&quot;\n&quot;,&quot;&quot;, php_ini_scanned_files()) : &quot;** not determined **&quot;); ?&gt;';
	save_text($info_file, $php_info);
	$info_params = array();
	settings2array($ini_overwrites,$info_params);
	settings2params($info_params);
	$php_info = `$php $pass_options $info_params &quot;$info_file&quot;`;
	@unlink($info_file);
	define('TESTED_PHP_VERSION', `$php -r &quot;echo PHP_VERSION;&quot;`);

	// load list of enabled extensions
	save_text($info_file, '&lt;?php echo join(&quot;,&quot;,get_loaded_extensions()); ?&gt;');
	$exts_to_test = explode(',',`$php $pass_options $info_params &quot;$info_file&quot;`);
	// check for extensions that need special handling and regenerate
	$info_params_ex = array(
		'session' =&gt; array('session.auto_start=0'),
		'tidy' =&gt; array('tidy.clean_output=0'),
		'zlib' =&gt; array('zlib.output_compression=Off'),
		'xdebug' =&gt; array('xdebug.default_enable=0'),
	);
	foreach($info_params_ex as $ext =&gt; $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 &quot;
=====================================================================
CWD         : $cwd
PHP         : $php $php_info
Extra dirs  : &quot;;
	foreach ($user_tests as $test_dir) {
		echo &quot;{$test_dir}\n              &quot;;
	}
	echo &quot;
=====================================================================
&quot;;
}

// Determine the tests to be run.

$test_files = array();
$redir_tests = array();
$test_results = array();
$PHP_FAILED_TESTS = array('BORKED' =&gt; array(), 'FAILED' =&gt; array(), 'WARNED' =&gt; array(), 'LEAKED' =&gt; 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');
$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) &amp;&amp; $argc &gt; 1) {
	for ($i=1; $i&lt;$argc; $i++) {
		$is_switch = false;
		$switch = substr($argv[$i],1,1);
		$repeat = substr($argv[$i],0,1) == '-';
		while ($repeat) {
			$repeat = false;
			if (!$is_switch) {
				$switch = substr($argv[$i],1,1);
			}
			$is_switch = true;
			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 '--keep-skip':
					$cfg['keep']['skip'] = true;
					break;
				case '--keep-php':
					$cfg['keep']['php'] = true;
					break;
				case '--keep-clean':
					$cfg['keep']['clean'] = true;
					break;
				//case 'l'
				case 'm':
					$leak_check = true;
					break;
				case 'n':
					if (!$pass_option_n) {
						$pass_options .= ' -n';
					}
					$pass_option_n = true;
					break;
				case 'N':
					// this is always native
					break;
				case '--no-clean':
					$no_clean = true;
					break;
				case 'q':
					putenv('NO_INTERACTION=1');
					break;
				//case 'r'
				case 's':
					$output_file = $argv[++$i];
					$just_save_results = true;
					break;
				case '--show-all':
					foreach($cfgfiles as $file) {
						$cfg['show'][$file] = true;
					}
					break;
				case '--show-skip':
					$cfg['show']['skip'] = true;
					break;
				case '--show-php':
					$cfg['show']['php'] = true;
					break;
				case '--show-clean':
					$cfg['show']['clean'] = 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 '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: 1.226.2.37.2.34 $'.&quot;\n&quot;;
					exit(1);

				case 'u':
				case 'U':
					// Allow using u or U for forward compatibility
					break;
					
				default:
					echo &quot;Illegal switch '$switch' specified!\n&quot;;
				case 'h':
				case '-help':
				case '--help':
					echo &lt;&lt;&lt;HELP
Synopsis:
    php run-tests.php [options] [files] [directories]

Options:
    -l &lt;file&gt;   Read the testfiles to be executed from &lt;file&gt;. After the test 
                has finished all failed tests are written to the same &lt;file&gt;. 
                If the list is empty and no further test is specified then
                all tests are executed (same as: -r &lt;file&gt; -w &lt;file&gt;).

    -r &lt;file&gt;   Read the testfiles to be executed from &lt;file&gt;.

    -w &lt;file&gt;   Write a list of all failed tests to &lt;file&gt;.

    -a &lt;file&gt;   Same as -w but append rather then truncating &lt;file&gt;.

    -c &lt;file&gt;   Look for php.ini in directory &lt;file&gt; or use &lt;file&gt; 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.
    
    -N          Always set (Test with unicode_semantics set off in PHP 6).
    
    -s &lt;file&gt;   Write output to &lt;file&gt;.

    -q          Quiet, no user interaction (same as environment NO_INTERACTION).

    --verbose
    -v          Verbose mode.

    --help
    -h          This Help.

    --html &lt;file&gt; Generate HTML output.
	
    --temp-source &lt;sdir&gt;  --temp-target &lt;tdir&gt; [--temp-urlbase &lt;url&gt;]
                Write temporary files to &lt;tdir&gt; by replacing &lt;sdir&gt; from the 
                filenames to generate with &lt;tdir&gt;. If --html is being used and 
                &lt;url&gt; given then the generated links are relative and prefixed
                with the given url. In general you want to make &lt;sdir&gt; the path
                to your source files and &lt;tdir&gt; some pach in your web page 
                hierarchy with &lt;url&gt; pointing to &lt;tdir&gt;.

    --keep-[all|php|skip|clean]
                Do not delete 'all' files, 'php' test file, 'skip' or 'clean' 
                file.

    --show-[all|php|skip|clean]
                Show 'all' files, 'php' test file, 'skip' or 'clean' file.

    --no-clean  Do not execute clean section if any.

HELP;
					exit(1);
			}
		}
		if (!$is_switch) {
			$testfile = realpath($argv[$i]);
			if (!$testfile &amp;&amp; strpos($argv[$i], '*') !== false &amp;&amp; function_exists('glob')) {
				if (preg_match(&quot;/\.phpt$/&quot;, $argv[$i])) {
					$pattern_match = glob($argv[$i]);
				} else if (preg_match(&quot;/\*$/&quot;, $argv[$i])) {
					$pattern_match = glob($argv[$i] . '.phpt');
				} else {
					die(&quot;bogus test name &quot; . $argv[$i] . &quot;\n&quot;);
				}
				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(&quot;/\.phpt$/&quot;, $testfile)) {
				$test_files[] = $testfile;
			} else {
				die(&quot;bogus test name &quot; . $argv[$i] . &quot;\n&quot;);
			}
		}
	}
	if (strlen($conf_passed))
	{
		$pass_options .= &quot; -c '$conf_passed'&quot;;
	}
	$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) {
		write_information($html_output);
		usort($test_files, &quot;test_sort&quot;);
		$start_time = time();
		if (!$html_output) {
			echo &quot;Running selected tests.\n&quot;;
		} 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, &quot;&lt;hr/&gt;\n&quot; . get_summary(false, true));
			}
			echo &quot;=====================================================================&quot;;
			echo get_summary(false, false);
		}
		if ($html_output) {
			fclose($html_file);
		}
		if (getenv('REPORT_EXIT_STATUS') == 1 and preg_match('/FAILED(?: |$)/', implode(' ', $test_results))) {
			exit(1);
		}
		exit(0);
	}
}

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 =&gt; $val) {
	$exts_to_test[$key] = strtolower($val);
}

foreach ($test_dirs as $dir) {
	find_files(&quot;{$cwd}/{$dir}&quot;, ($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(&quot;cannot open directory: $dir&quot;);
	while (($name = readdir($o)) !== FALSE) {
		if (is_dir(&quot;{$dir}/{$name}&quot;) &amp;&amp; !in_array($name, array('.', '..', 'CVS'))) {
			$skip_ext = ($is_ext_dir &amp;&amp; !in_array(strtolower($name), $exts_to_test));
			if ($skip_ext) {
				$exts_skipped++;
			}
			find_files(&quot;{$dir}/{$name}&quot;, FALSE, $ignore || $skip_ext);
		}

		// Cleanup any left-over tmp files from last run.
		if (substr($name, -4) == '.tmp') {
			@unlink(&quot;$dir/$name&quot;);
			continue;
		}

		// Otherwise we're only interested in *.phpt files.
		if (substr($name, -5) == '.phpt') {
			if ($ignore) {
				$ignored_by_ext++;
			} else {
				$testfile = realpath(&quot;{$dir}/{$name}&quot;);
				$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, &quot;{$cwd}/tests&quot;)===0 ? 1 + (strpos($a, &quot;{$cwd}/tests/run-test&quot;)===0 ? 1 : 0) : 0;
	$tb = strpos($b, &quot;{$cwd}/tests&quot;)===0 ? 1 + (strpos($b, &quot;{$cwd}/tests/run-test&quot;)===0 ? 1 : 0) : 0;
	if ($ta == $tb) {
		return strcmp($a, $b);
	} else {
		return $tb - $ta;
	}
}

$test_files = array_unique($test_files);
usort($test_files, &quot;test_sort&quot;);

$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 &quot;No tests were run.\n&quot;;
	return;
}

compute_summary();

show_end($end_time);
show_summary();

if ($html_output) {
	fclose($html_file);
}

define('PHP_QA_EMAIL', '<a href="mailto:qa-reports@lists.php.net">qa-reports@lists.php.net</a>');
define('QA_SUBMISSION_PAGE', '<a href="http://qa.php.net/buildtest-process.php">http://qa.php.net/buildtest-process.php</a>');

/* 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(&quot;php://stdin&quot;, &quot;r+&quot;);
	if ($sum_results['FAILED'] || $sum_results['BORKED'] || $sum_results['WARNED'] || $sum_results['LEAKED']) {
		echo &quot;\nYou may have found a problem in PHP.&quot;;
	}
	echo &quot;\nWe would like to send this report automatically to the\n&quot;;
	echo &quot;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&quot;;
	echo &quot;immediately, you can choose \&quot;s\&quot; to save the report to\na file that you can send us later.\n&quot;;
	echo &quot;Do you want to send this report now? [Yns]: &quot;;
	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 &quot;\nPlease enter your email address.\n(Your address will be mangled so that it will not go out on any\nmailinglist in plain text): &quot;;
			flush();
			$user_email = trim(fgets($fp, 1024));
			$user_email = str_replace(&quot;@&quot;, &quot; at &quot;, str_replace(&quot;.&quot;, &quot; dot &quot;, $user_email));
		}
		
		$failed_tests_data = '';
		$sep = &quot;\n&quot; . str_repeat('=', 80) . &quot;\n&quot;;
		
		$failed_tests_data .= $failed_test_summary . &quot;\n&quot;;
		$failed_tests_data .= get_summary(true, false) . &quot;\n&quot;;

		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']));
				$failed_tests_data .= $sep . file_get_contents(realpath($test_info['diff']));
				$failed_tests_data .= $sep . &quot;\n\n&quot;;
			}
			$status = &quot;failed&quot;;
		} else {
			$status = &quot;success&quot;;
		}
		
		$failed_tests_data .= &quot;\n&quot; . $sep . 'BUILD ENVIRONMENT' . $sep;
		$failed_tests_data .= &quot;OS:\n&quot; . PHP_OS . &quot; - &quot; . php_uname() . &quot;\n\n&quot;;
		$ldd = $autoconf = $sys_libtool = $libtool = $compiler = 'N/A';

		if (substr(PHP_OS, 0, 3) != &quot;WIN&quot;) {
			/* 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(dirname(__FILE__) . '/build/shtool path glibtool libtool');
			if ($sys_libtool_path) {
				$sys_libtool = shell_exec(str_replace(&quot;\n&quot;, &quot;&quot;, $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').&quot; $flag &gt;/dev/null 2&gt;&amp;1&quot;, $cc_status);
				if ($cc_status == 0) {
					$compiler = shell_exec(getenv('CC').&quot; $flag 2&gt;&amp;1&quot;);
					break;
				}
			}
			$ldd = shell_exec(&quot;ldd $php 2&gt;/dev/null&quot;);
		}
		$failed_tests_data .= &quot;Autoconf:\n$autoconf\n&quot;;
		$failed_tests_data .= &quot;Bundled Libtool:\n$libtool\n&quot;;
		$failed_tests_data .= &quot;System Libtool:\n$sys_libtool\n&quot;;
		$failed_tests_data .= &quot;Compiler:\n$compiler\n&quot;;
		$failed_tests_data .= &quot;Bison:\n&quot;. @shell_exec('bison --version 2&gt;/dev/null'). &quot;\n&quot;;
		$failed_tests_data .= &quot;Libraries:\n$ldd\n&quot;;
		$failed_tests_data .= &quot;\n&quot;;
		
		if (isset($user_email)) {
			$failed_tests_data .= &quot;User's E-mail: &quot;.$user_email.&quot;\n\n&quot;;
		}	
		
		$failed_tests_data .= $sep . &quot;PHPINFO&quot; . $sep;
		$failed_tests_data .= shell_exec($php.' -dhtml_errors=0 -i');
		
		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 &quot;\nThe test script was unable to automatically send the report to PHP's QA Team\n&quot;;
			}

			echo &quot;Please send &quot;.$output_file.&quot; to &quot;.PHP_QA_EMAIL.&quot; manually, thank you.\n&quot;;
		} else {
			fwrite($fp, &quot;\nThank you for helping to make PHP better.\n&quot;);
			fclose($fp);
		}	
	}
}
 
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 = &quot;php_test_data=&quot; . urlencode(base64_encode(str_replace(&quot;\00&quot;, '[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 &quot;\nPosting to {$url_bits['host']} {$url_bits['path']}\n&quot;;
	fwrite($fs, &quot;POST &quot;.$url_bits['path'].&quot;?status=$status&amp;version=$php_version HTTP/1.1\r\n&quot;);
	fwrite($fs, &quot;Host: &quot;.$url_bits['host'].&quot;\r\n&quot;);
	fwrite($fs, &quot;User-Agent: QA Browser 0.1\r\n&quot;);
	fwrite($fs, &quot;Content-Type: application/x-www-form-urlencoded\r\n&quot;);
	fwrite($fs, &quot;Content-Length: &quot;.$data_length.&quot;\r\n\r\n&quot;);
	fwrite($fs, $data);
	fwrite($fs, &quot;\r\n\r\n&quot;);
	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 &amp;&amp; $filename_copy != $filename) {
		if (@file_put_contents($filename_copy, $text) === false) {
			error(&quot;Cannot open file '&quot; . $filename_copy . &quot;' (save_text)&quot;);
		}
	}
	if (@file_put_contents($filename, $text) === false) {
		error(&quot;Cannot open file '&quot; . $filename . &quot;' (save_text)&quot;);
	}
	if (1 &lt; $DETAILED) echo &quot;
FILE $filename {{{
$text
}}} 
&quot;;
}

//
//  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 . &quot;(1) : $tested\n&quot;;
		echo $logname . &quot;(1) :  $tested\n&quot;;
		break;
	case 'EMACS':
		echo $testname . &quot;:1: $tested\n&quot;;
		echo $logname . &quot;:1:  $tested\n&quot;;
		break;
	}
}

function system_with_timeout($commandline, $env = null, $stdin = null)
{
	global $leak_check;

	$data = &quot;&quot;;
	
	$proc = proc_open($commandline, array(
		0 =&gt; array('pipe', 'r'),
		1 =&gt; array('pipe', 'w'),
		2 =&gt; array('pipe', 'w')
		), $pipes, null, $env, array(&quot;suppress_errors&quot; =&gt; true));

	if (!$proc)
		return false;

	if (is_string($stdin)) {
		fwrite($pipes[0], $stdin);
	}
	fclose($pipes[0]);

	while (true) {
		/* hide errors from interrupted syscalls */
		$r = $pipes;
		$w = null;
		$e = null;
		$n = @stream_select($r, $w, $e, $leak_check ? 300 : 60);

		if ($n === 0) {
			/* timed out */
			$data .= &quot;\n ** ERROR: process timed out **\n&quot;;
			proc_terminate($proc);
			return $data;
		} else if ($n &gt; 0) {
			$line = fread($pipes[1], 8192);
			if (strlen($line) == 0) {
				/* EOF */
				break;
			}
			$data .= $line;
		}
	}
	$stat = proc_get_status($proc);
	if ($stat['signaled']) {
		$data .= &quot;\nTermsig=&quot;.$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 = &quot;# $name[1]: $name[0]&quot;;
			if ($redir_tested)
			{
				$name = $name[0];
			}
		}
		else if ($redir_tested)
		{
			$index = &quot;# $redir_tested: $name&quot;;
		}
		else
		{
			$index = $name;
		}
		$test_idx++;
		$result = run_test($php, $name, $env);
		if (!is_array($name) &amp;&amp; $result != 'REDIR')
		{
			$test_results[$index] = $result;
			if ($failed_tests_file &amp;&amp; ($result == 'FAILED' || $result == 'WARNED' || $result == 'LEAKED'))
			{
				fwrite($failed_tests_file, &quot;$index\n&quot;);
			}
		}
	}
}

//
//  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;

	$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 &quot;
=================
TEST $file
&quot;;

	// Load the sections of the test file.
	$section_text = array(
		'TEST'   =&gt; '',
		'SKIPIF' =&gt; '',
		'GET'    =&gt; '',
		'COOKIE' =&gt; '',
		'POST_RAW' =&gt; '',
		'POST'   =&gt; '',
		'UPLOAD' =&gt; '',
		'ARGS'   =&gt; '',
	);

	$fp = fopen($file, &quot;rt&quot;) or error(&quot;Cannot open test file: $file&quot;);

	$borked = false;
	$bork_info = '';
	if (!feof($fp)) {
		$line = fgets($fp);
	} else {
		$bork_info = &quot;empty test [$file]&quot;;
		$borked = true;
	}
	if (strncmp('--TEST--', $line, 8)) {
		$bork_info = &quot;tests must start with --TEST-- [$file]&quot;;
		$borked = true;
	}
	$section = 'TEST';
	$secfile = false;
	$secdone = false;
	while (!feof($fp)) {
		$line = fgets($fp);

		// Match the beginning of a section.
		if (preg_match('/^--([_A-Z]+)--/', $line, $r)) {
			$section = $r[1];
			$section_text[$section] = '';
			$secfile = $section == 'FILE' || $section == 'FILEEOF';
			$secdone = false;
			continue;
		}
		
		// Add to the section text.
		if (!$secdone) {
			$section_text[$section] .= $line;
		}

		// End of actual test?
		if ($secfile &amp;&amp; preg_match('/^===DONE===$/', $line)) {
			$secdone = true;
		}
	}

	// the redirect section allows a set of tests to be reused outside of
	// a given test dir
	if (@count($section_text['REDIRECTTEST']) == 1) {
		if ($IN_REDIRECT) {
			$borked = true;
			$bork_info = &quot;Can't redirect a test from within a redirected test&quot;;
		} else {
			$borked = false;
		}
	} else {
		if (@count($section_text['FILE']) + @count($section_text['FILEEOF']) != 1) {
			$bork_info = &quot;missing section --FILE--&quot;;
			$borked = true;
		}
		if (@count($section_text['FILEEOF']) == 1) {
			$section_text['FILE'] = preg_replace(&quot;/[\r\n]+$/&quot;, '', $section_text['FILEEOF']);
			unset($section_text['FILEEOF']);
		}
		if ((@count($section_text['EXPECT']) + @count($section_text['EXPECTF']) + @count($section_text['EXPECTREGEX'])) != 1) {
			$bork_info = &quot;missing section --EXPECT--, --EXPECTF-- or --EXPECTREGEX--&quot;;
			$borked = true;
		}
	}
	fclose($fp);

	$shortname = str_replace($cwd.'/', '', $file);
	$tested_file = $shortname;

	if ($borked) {
		show_result(&quot;BORK&quot;, $bork_info, $tested_file);
		$PHP_FAILED_TESTS['BORKED'][] = array (
								'name' =&gt; $file,
								'test_name' =&gt; '',
								'output' =&gt; '',
								'diff'   =&gt; '',
								'info'   =&gt; &quot;$bork_info [$file]&quot;,
		);
		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'])) {
		if (isset($php_cgi)) {
			$old_php = $php;
			$php = $php_cgi .' -C ';
		} elseif (!strncasecmp(PHP_OS, &quot;win&quot;, 3) &amp;&amp; file_exists(dirname($php) .&quot;/php-cgi.exe&quot;)) {
			$old_php = $php;
			$php = realpath(dirname($php) .&quot;/php-cgi.exe&quot;) .' -C ';
		} else {
			if (file_exists(dirname($php).&quot;/../../sapi/cgi/php-cgi&quot;)) {
				$old_php = $php;
				$php = realpath(dirname($php).&quot;/../../sapi/cgi/php-cgi&quot;) . ' -C ';
			} else if (file_exists(&quot;./sapi/cgi/php-cgi&quot;)) {
				$old_php = $php;
				$php = realpath(&quot;./sapi/cgi/php-cgi&quot;) . ' -C ';
			} else {
				show_result(&quot;SKIP&quot;, $tested, $tested_file, &quot;reason: CGI not available&quot;);
				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 &amp;&amp; $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';
	$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(dirname(__FILE__).DIRECTORY_SEPARATOR, '', $test_file) . 't';

	if ($temp_source &amp;&amp; $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(&quot;Cannot create output directory - &quot; . dirname($copy_file));
		}
		if (isset($section_text['FILE'])) {
			save_text($copy_file, $section_text['FILE']);
		}
		$temp_filenames = array(
			'file' =&gt; $copy_file,
			'diff' =&gt; $diff_filename, 
			'log'  =&gt; $log_filename,
			'exp'  =&gt; $exp_filename,
			'out'  =&gt; $output_filename,
			'mem'  =&gt; $memcheck_filename,
			'php'  =&gt; $temp_file,
			'skip' =&gt; $temp_skipif,
			'clean'=&gt; $temp_clean);
	}

	if (is_array($IN_REDIRECT)) {
		$tested = $IN_REDIRECT['prefix'] . ' ' . trim($section_text['TEST']);
		$tested_file = $tmp_relative_file;
		$section_text['FILE'] = &quot;# original source file: $shortname\n&quot; . $section_text['FILE'];
	}

	// unlink old test results	
	@unlink($diff_filename);
	@unlink($log_filename);
	@unlink($exp_filename);
	@unlink($output_filename);
	@unlink($memcheck_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']='';
	if (!empty($section_text['ENV'])) {
		foreach(explode(&quot;\n&quot;, trim($section_text['ENV'])) as $e) {
			$e = explode('=',trim($e),2);
			if (!empty($e[0]) &amp;&amp; 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( &quot;/[\n\r]+/&quot;, $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'])) {
			if ($cfg['show']['skip']) {
				echo &quot;\n========SKIP========\n&quot;;
				echo $section_text['SKIPIF'];
				echo &quot;========DONE========\n&quot;;
			}
			save_text($test_skipif, $section_text['SKIPIF'], $temp_skipif);
			$extra = substr(PHP_OS, 0, 3) !== &quot;WIN&quot; ?
				&quot;unset REQUEST_METHOD; unset QUERY_STRING; unset PATH_TRANSLATED; unset SCRIPT_FILENAME; unset REQUEST_METHOD;&quot;: &quot;&quot;;

			if ($leak_check) {
				$env['USE_ZEND_ALLOC'] = '0';
			} else {
				$env['USE_ZEND_ALLOC'] = '1';
			}
			$output = system_with_timeout(&quot;$extra $php $pass_options -q $ini_settings $test_skipif&quot;, $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(&quot;SKIP&quot;, $tested, $tested_file, &quot;reason: $m[1]&quot;, $temp_filenames);
				} else {
					show_result(&quot;SKIP&quot;, $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 = &quot; (info: $m[1])&quot;;
				}
			}
			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 = &quot; (warn: $m[1])&quot;;
				}
			}
		}
	}

	if (@count($section_text['REDIRECTTEST']) == 1) {
		$test_files = array();

		$IN_REDIRECT = eval($section_text['REDIRECTTEST']);
		$IN_REDIRECT['via'] = &quot;via [$shortname]\n\t&quot;;
		$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, &quot;test_sort&quot;);
			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 = &quot;Redirect info must contain exactly one TEST string to be used as redirect directory.&quot;;
			show_result(&quot;BORK&quot;, $bork_info, '', $temp_filenames);
			$PHP_FAILED_TESTS['BORKED'][] = array (
									'name' =&gt; $file,
									'test_name' =&gt; '',
									'output' =&gt; '',
									'diff'   =&gt; '',
									'info'   =&gt; &quot;$bork_info [$file]&quot;,
									'unicode'=&gt; $unicode_semantics,
			);
		}
	}
	if (is_array($org_file) || @count($section_text['REDIRECTTEST']) == 1) {
		if (is_array($org_file)) $file = $org_file[0];
		$bork_info = &quot;Redirected test did not contain redirection info&quot;;
		show_result(&quot;BORK&quot;, $bork_info, '', $temp_filenames);
		$PHP_FAILED_TESTS['BORKED'][] = array (
								'name' =&gt; $file,
								'test_name' =&gt; '',
								'output' =&gt; '',
								'diff'   =&gt; '',
								'info'   =&gt; &quot;$bork_info [$file]&quot;,
		);
		//$test_cnt -= 1;  // Only if is_array($org_file) ?
		//$test_idx--;
		return 'BORKED';
	}
	
	// We've satisfied the preconditions - run the test!
	if ($cfg['show']['php']) {
		echo &quot;\n========TEST========\n&quot;;
		echo $section_text['FILE'];
		echo &quot;========DONE========\n&quot;;
	}
	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 = $section_text['ARGS'] ? ' -- '.$section_text['ARGS'] : '';

	if (array_key_exists('POST_RAW', $section_text) &amp;&amp; !empty($section_text['POST_RAW'])) {
		$post = trim($section_text['POST_RAW']);
		$raw_lines = explode(&quot;\n&quot;, $post);

		$request = '';
		foreach ($raw_lines as $line) {
			if (empty($env['CONTENT_TYPE']) &amp;&amp; preg_match('/^Content-Type:(.*)/i', $line, $res)) {
				$env['CONTENT_TYPE'] = trim(str_replace(&quot;\r&quot;, '', $res[1]));
				continue;
			}
			$request .= $line . &quot;\n&quot;;
		}

		$env['CONTENT_LENGTH'] = strlen($request);
		$env['REQUEST_METHOD'] = 'POST';

		if (empty($request)) {
			return 'BORKED';
		}
		save_text($tmp_post, $request);
		$cmd = &quot;$php$pass_options$ini_settings -f \&quot;$test_file\&quot; 2&gt;&amp;1 &lt; $tmp_post&quot;;
	} elseif (array_key_exists('POST', $section_text) &amp;&amp; !empty($section_text['POST'])) {

		$post = trim($section_text['POST']);

		if (array_key_exists('GZIP_POST', $section_text) &amp;&amp; function_exists('gzencode')) {
			$post = gzencode($post, 9, FORCE_GZIP);
			$env['HTTP_CONTENT_ENCODING'] = 'gzip';
		} else if (array_key_exists('DEFLATE_POST', $section_text) &amp;&amp; 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 = &quot;$php$pass_options$ini_settings -f \&quot;$test_file\&quot; 2&gt;&amp;1 &lt; $tmp_post&quot;;

	} else {

		$env['REQUEST_METHOD'] = 'GET';
		$env['CONTENT_TYPE']   = '';
		$env['CONTENT_LENGTH'] = '';

		$cmd = &quot;$php$pass_options$ini_settings -f \&quot;$test_file\&quot; $args 2&gt;&amp;1&quot;;
	}

	if ($leak_check) {
		$env['USE_ZEND_ALLOC'] = '0';
		$cmd = &quot;valgrind -q --tool=memcheck --trace-children=yes --log-file-exactly=$memcheck_filename $cmd&quot;;
	} else {
		$env['USE_ZEND_ALLOC'] = '1';
	}

	if ($DETAILED) echo &quot;
CONTENT_LENGTH  = &quot; . $env['CONTENT_LENGTH'] . &quot;
CONTENT_TYPE    = &quot; . $env['CONTENT_TYPE'] . &quot;
PATH_TRANSLATED = &quot; . $env['PATH_TRANSLATED'] . &quot;
QUERY_STRING    = &quot; . $env['QUERY_STRING'] . &quot;
REDIRECT_STATUS = &quot; . $env['REDIRECT_STATUS'] . &quot;
REQUEST_METHOD  = &quot; . $env['REQUEST_METHOD'] . &quot;
SCRIPT_FILENAME = &quot; . $env['SCRIPT_FILENAME'] . &quot;
HTTP_COOKIE     = &quot; . $env['HTTP_COOKIE'] . &quot;
COMMAND $cmd
&quot;;

	$out = system_with_timeout($cmd, $env, isset($section_text['STDIN']) ? $section_text['STDIN'] : null);

	if (array_key_exists('CLEAN', $section_text) &amp;&amp; (!$no_clean || $cfg['keep']['clean'])) {
		if (trim($section_text['CLEAN'])) {
			if ($cfg['show']['clean']) {
				echo &quot;\n========CLEAN=======\n&quot;;
				echo $section_text['CLEAN'];
				echo &quot;========DONE========\n&quot;;
			}
			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) !== &quot;WIN&quot; ?
					&quot;unset REQUEST_METHOD; unset QUERY_STRING; unset PATH_TRANSLATED; unset SCRIPT_FILENAME; unset REQUEST_METHOD;&quot;: &quot;&quot;;
				system_with_timeout(&quot;$extra $php $pass_options -q $clean_params $test_clean&quot;, $env);
			}
			if (!$cfg['keep']['clean']) {
				@unlink($test_clean);
			}
		}
	}

	@unlink($tmp_post);

	$leaked = false;
	$passed = false;

	if ($leak_check) { // leak check
		$leaked = @filesize($memcheck_filename) &gt; 0;
		if (!$leaked) {
			@unlink($memcheck_filename);
		}
	}

	// Does the output match what is expected?
	$output = str_replace(&quot;\r\n&quot;, &quot;\n&quot;, trim($out));

	/* when using CGI, strip the headers from the output */
	$headers = &quot;&quot;;
	if (isset($old_php) &amp;&amp; preg_match(&quot;/^(.*?)\r?\n\r?\n(.*)/s&quot;, $out, $match)) {
		$output = trim($match[2]);
		$rh = preg_split(&quot;/[\n\r]+/&quot;,$match[1]);
		$headers = array();
		foreach ($rh as $line) {
			if (strpos($line, ':')!==false) {
				$line = explode(':', $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(&quot;/[\n\r]+/&quot;,$section_text['EXPECTHEADERS']);
		foreach($lines as $line) {
			if (strpos($line, ':') !== false) {
				$line = explode(':', $line, 2);
				$want[trim($line[0])] = trim($line[1]);
				$wanted_headers[] = trim($line[0]) . ': ' . trim($line[1]);
			}
		}
		$org_headers = $headers;
		$headers = array();
		$output_headers = array();
		foreach($want as $k =&gt; $v) {
			if (isset($org_headers[$k])) {
				$headers = $org_headers[$k];
				$output_headers[] = $k . ': ' . $org_headers[$k];
			}
			if (!isset($org_headers[$k]) || $org_headers[$k] != $v) {
				$failed_headers = true;
			}
		}
		ksort($wanted_headers);
		$wanted_headers = join(&quot;\n&quot;, $wanted_headers);
		ksort($output_headers);
		$output_headers = join(&quot;\n&quot;, $output_headers);
	}

	if (isset($section_text['EXPECTF']) || isset($section_text['EXPECTREGEX'])) {
		if (isset($section_text['EXPECTF'])) {
			$wanted = trim($section_text['EXPECTF']);
		} else {
			$wanted = trim($section_text['EXPECTREGEX']);
		}
		$wanted_re = preg_replace('/\r\n/',&quot;\n&quot;,$wanted);
		if (isset($section_text['EXPECTF'])) {
			$wanted_re = preg_quote($wanted_re, '/');
			// Stick to basics
			$wanted_re = str_replace(&quot;%e&quot;, '\\' . DIRECTORY_SEPARATOR, $wanted_re);
			$wanted_re = str_replace(&quot;%s&quot;, &quot;.+?&quot;, $wanted_re); //not greedy
			$wanted_re = str_replace(&quot;%w&quot;, &quot;\s*&quot;, $wanted_re);
			$wanted_re = str_replace(&quot;%i&quot;, &quot;[+\-]?[0-9]+&quot;, $wanted_re);
			$wanted_re = str_replace(&quot;%d&quot;, &quot;[0-9]+&quot;, $wanted_re);
			$wanted_re = str_replace(&quot;%x&quot;, &quot;[0-9a-fA-F]+&quot;, $wanted_re);
			$wanted_re = str_replace(&quot;%f&quot;, &quot;[+\-]?\.?[0-9]+\.?[0-9]*(E-?[0-9]+)?&quot;, $wanted_re);
			$wanted_re = str_replace(&quot;%c&quot;, &quot;.&quot;, $wanted_re);
			// %f allows two points &quot;-.0.0&quot; but that is the best *simple* expression
		}
/* DEBUG YOUR REGEX HERE
		var_dump($wanted_re);
		print(str_repeat('=', 80) . &quot;\n&quot;);
		var_dump($output);
*/
		if (preg_match(&quot;/^$wanted_re\$/s&quot;, $output)) {
			$passed = true;
			if (!$cfg['keep']['php']) {
				@unlink($test_file);
			}
			if (isset($old_php)) {
				$php = $old_php;
			}
			if (!$leaked &amp;&amp; !$failed_headers) {
				show_result(&quot;PASS&quot;, $tested, $tested_file, '', $temp_filenames);
				return 'PASSED';
			}
		}
	} else {
		$wanted = trim($section_text['EXPECT']);
		$wanted = preg_replace('/\r\n/',&quot;\n&quot;,$wanted);
		// compare and leave on success
		if (!strcmp($output, $wanted)) {
			$passed = true;
			if (!$cfg['keep']['php']) {
				@unlink($test_file);
			}
			if (isset($old_php)) {
				$php = $old_php;
			}
			if (!$leaked &amp;&amp; !$failed_headers) {
				show_result(&quot;PASS&quot;, $tested, $tested_file, '', $temp_filenames);
				return 'PASSED';
			}
		}
		$wanted_re = NULL;
	}

	// Test failed so we need to report details.
	if ($failed_headers) {
		$passed = false…
Large files files are truncated, but you can click here to view the full file