#!/usr/bin/env php

if (!extension_loaded('pcre')) {

echo <<<NO_PCRE_ERROR

NO_PCRE_ERROR;

exit;

}

if (!function_exists('proc_open')) {

echo <<<NO_PROC_OPEN_ERROR

NO_PROC_OPEN_ERROR;

exit;

}

if (ini_get('date.timezone') == '') {

date_default_timezone_set('UTC');

}

$CUR_DIR = getcwd();

if (getenv('TEST_PHP_SRCDIR')) {

@chdir(getenv('TEST_PHP_SRCDIR'));

}

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 = '';

while(@ob_end_clean());

if (ob_get_level()) echo "Not all buffers were deleted.\n";

error_reporting(E_ALL);

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

if (empty($environment)) {

// not documented, but returns array of all environment variables

$environment = getenv();

}

if (empty($environment['TEMP'])) {

$environment['TEMP'] = sys_get_temp_dir();

if (empty($environment['TEMP'])) {

// for example, OpCache on Windows will fail in this case because child processes (for tests) will not get

// a TEMP variable, so GetTempPath() will fallback to c:\windows, while GetTempPath() will return %TEMP% for parent

// (likely a different path). The parent will initialize the OpCache in that path, and child will fail to reattach to

// the OpCache because it will be using the wrong path.

die("TEMP environment is NOT set");

} else if (count($environment)==1) {

// not having other environment variables, only having TEMP, is probably ok, but strange and may make a

// difference in the test pass rate, so warn the user.

echo "WARNING: Only 1 environment variable will be available to tests(TEMP environment variable)".PHP_EOL;

}

}

if ((substr(PHP_OS, 0, 3) == "WIN") && empty($environment["SystemRoot"])) {

$environment["SystemRoot"] = getenv("SystemRoot");

}

$php = null;

$php_cgi = null;

$phpdbg = 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;

}

if (!getenv('TEST_PHPDBG_EXECUTABLE')) {

if (!strncasecmp(PHP_OS, "win", 3) && file_exists(dirname($php) . "/phpdbg.exe")) {

$phpdbg = realpath(dirname($php) . "/phpdbg.exe");

} elseif (file_exists(dirname($php) . "/../../sapi/phpdbg/phpdbg")) {

$phpdbg = realpath(dirname($php) . "/../../sapi/phpdbg/phpdbg");

} elseif (file_exists("./sapi/phpdbg/phpdbg")) {

$phpdbg = realpath("./sapi/phpdbg/phpdbg");

} elseif (file_exists(dirname($php) . "/phpdbg")) {

$phpdbg = realpath(dirname($php) . "/phpdbg");

} else {

$phpdbg = null;

}

if ($phpdbg) {

putenv("TEST_PHPDBG_EXECUTABLE=$phpdbg");

}

}

if (getenv('TEST_PHPDBG_EXECUTABLE')) {

$phpdbg = getenv('TEST_PHPDBG_EXECUTABLE');

if ($phpdbg=='auto') {

$phpdbg = $cwd . '/sapi/phpdbg/phpdbg';

putenv("TEST_PHPDBG_EXECUTABLE=$phpdbg");

}

$environment['TEST_PHPDBG_EXECUTABLE'] = $phpdbg;

}

function verify_config()

}

if (getenv('TEST_PHP_LOG_FORMAT')) {

$log_format = strtoupper(getenv('TEST_PHP_LOG_FORMAT'));

} else {

$log_format = 'LEODS';

}

if (getenv('TEST_PHP_DETAILED')) {

$DETAILED = getenv('TEST_PHP_DETAILED');

} else {

$DETAILED = 0;

}

junit_init();

if (getenv('SHOW_ONLY_GROUPS')) {

$SHOW_ONLY_GROUPS = explode(",", getenv('SHOW_ONLY_GROUPS'));

} else {

$SHOW_ONLY_GROUPS = array();

}

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=',

'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=0',

'report_memleaks=1',

'report_zend_debug=0',

'docref_root=',

'docref_ext=.html',

'error_prepend_string=',

'error_append_string=',

'auto_prepend_file=',

'auto_append_file=',

'ignore_repeated_errors=0',

'precision=14',

'memory_limit=128M',

'log_errors_max_len=0',

'opcache.fast_shutdown=0',

'opcache.file_update_protection=0',

'zend.assertions=1',

);

$no_file_cache = '-d opcache.file_cache= -d opcache.file_cache_only=0';

function write_information()

}

define('PHP_QA_EMAIL', 'qa-reports@lists.php.net');

define('QA_SUBMISSION_PAGE', 'http://qa.php.net/buildtest-process.php');

define('QA_REPORTS_PAGE', 'http://qa.php.net/reports');

define('TRAVIS_CI' , (bool) getenv('TRAVIS'));

function save_or_mail_results()

}

$test_files = array();

$redir_tests = array();

$test_results = array();

$PHP_FAILED_TESTS = array('BORKED' => array(), 'FAILED' => array(), 'WARNED' => array(), 'LEAKED' => array(), 'XFAILED' => array(), 'SLOW' => array());

$result_tests_file= false;

$failed_tests_file= false;

$pass_option_n = false;

$pass_options = '';

$output_file = $CUR_DIR . '/php_test_results_' . date('Ymd_Hi') . '.txt';

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

$slow_min_ms = INF;

$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, $argv) || !$argc) {

$argv = array(__FILE__);

}

$argv = array_merge($argv, explode(' ', 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 'W':

$result_tests_file = fopen($argv[++$i], 'w+t');

break;

case 'c':

$conf_passed = $argv[++$i];

break;

case 'd':

$ini_overwrites[] = $argv[++$i];

break;

case 'g':

$SHOW_ONLY_GROUPS = explode(",", $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-(\d+)\.(\d+)\.(\d+)([.\w_-]+)?(\s+)/", '$1.$2.$3', $valgrind_header, 1, $replace_count);

if ($replace_count != 1) {

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 'e':

$pass_options .= ' -e';

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 'P':

if(constant('PHP_BINARY')) {

$php = PHP_BINARY;

} else {

break;

}

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 '--show-slow':

$slow_min_ms = $argv[++$i];

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 '--offline':

$environment['SKIP_ONLINE_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 '$Id$' . "\n";

exit(1);

default:

echo "Illegal switch '$switch' specified!\n";

case 'h':

case '-help':

case '--help':

echo <<<HELP

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

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 ($result_tests_file) {

fclose($result_tests_file);

}

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

}

junit_save_xml();

if (getenv('REPORT_EXIT_STATUS') == 1 && ($sum_results['FAILED'] || $sum_results['BORKED'])) {

exit(1);

}

exit(0);

}

}

verify_config();

write_information();

$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', 'sapi');

foreach($optionals as $dir) {

if (@filetype($dir) == 'dir') {

$test_dirs[] = $dir;

}

}

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)

}

function test_name($name)

}

function test_sort($a, $b)

}

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

}

if ($result_tests_file) {

fclose($result_tests_file);

}