diff options
Diffstat (limited to 'run-tests.php')
| -rwxr-xr-x | run-tests.php | 424 |
1 files changed, 0 insertions, 424 deletions
diff --git a/run-tests.php b/run-tests.php deleted file mode 100755 index 697de2460e..0000000000 --- a/run-tests.php +++ /dev/null @@ -1,424 +0,0 @@ -<?php -/* - +----------------------------------------------------------------------+ - | PHP Version 4 | - +----------------------------------------------------------------------+ - | Copyright (c) 1997-2002 The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 2.02 of the PHP license, | - | that is bundled with this package in the file LICENSE, and is | - | available at through the world-wide-web at | - | http://www.php.net/license/2_02.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: Preston L. Bannister <pbannister@php.net> | - | Sander Roobol <sander@php.net> | - | (based on version by: Stig Bakken <ssb@fast.no>) | - | (based on the PHP 3 test framework by Rasmus Lerdorf) | - +----------------------------------------------------------------------+ - */ - -/* - - Require exact specification of PHP executable to test (no guessing!). - - Die if any internal errors encountered in test script. - - Regularized output for simpler post-processing of output. - - Optionally output error lines indicating the failing test source and log - for direct jump with MSVC or Emacs. - -*/ - -/* - * TODO: - * - do not test PEAR components if base class and/or component class cannot be instanciated - */ - -set_time_limit(0); -ob_implicit_flush(); -error_reporting(E_ALL); - -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; -} - -// Don't ever guess at the PHP executable location. -// Require the explicit specification. -// Otherwise we could end up testing the wrong file! - -if(isset($_ENV['TEST_PHP_EXECUTABLE'])) { - $php = $_ENV['TEST_PHP_EXECUTABLE']; -} else { - error("environment variable TEST_PHP_EXECUTABLE must be set to specify PHP executable!"); -} - -if(!@is_executable($php)) { - error("invalid PHP executable specified by TEST_PHP_EXECUTABLE = " . $php); -} - -// Check whether a detailed log is wanted. - -if(isset($_ENV['TEST_PHP_DETAILED'])) { - define('DETAILED', $_ENV['TEST_PHP_DETAILED']); -} else { - define('DETAILED', 0); -} - -// Write test context information. - -echo " -===================================================================== -CWD : " . getcwd() . " -PHP : $php -PHP_SAPI : " . PHP_SAPI . " -PHP_VERSION : " . PHP_VERSION . " -PHP_OS : " . PHP_OS . " -INI actual : " . realpath(get_cfg_var('cfg_file_path')) . " -INI wanted : " . realpath('php.ini-dist') . " -===================================================================== -"; - -// Make sure we are using the proper php.ini. - -$php_ini = realpath("php.ini-dist"); -if(realpath(get_cfg_var('cfg_file_path')) != $php_ini) { - error("php.ini-dist was not used!"); -} - -// Determine the tests to be run. - -$test_to_run = array(); -$test_files = array(); -$test_results = array(); - -// If parameters given assume they represent selected tests to run. -if ($argc>1) { - for ($i=1; $i<$argc; $i++) { - $testfile = realpath($argv[$i]); - $test_to_run[$testfile] = 1; - } -} - -// Compile a list of all test files (*.phpt). -$module_of_test = $test_files = array(); -find_files(getcwd()); - -function find_files($dir) { - global $test_files, $module_of_test; - - /* FIXME: this messes up if you unpack PHP in /ext/pear :) */ - if (ereg('/ext/([^/]+)/',"$dir/",$r)) { - $module = $r[1]; - } else if (ereg('/pear/',"$dir/")) { - $module = 'pear'; - } else { - $module = ''; - } - - $o = opendir($dir) or error("cannot open directory: $dir"); - while (($name = readdir($o))!==false) { - if (is_dir("{$dir}/{$name}") && !in_array($name, array('.', '..', 'CVS'))) { - find_files("{$dir}/{$name}"); - } - - // 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') { - $testfile = realpath("{$dir}/{$name}"); - $test_files[] = $testfile; -// $module_of_test[$testfile] = $module; - } - } - - closedir($o); -} - -// Run only selected tests, if specified. -if (count($test_to_run)) { - echo "Running selected tests.\n"; - foreach($test_to_run AS $name=>$runnable) { - echo "test: $name runnable: $runnable\n"; - if ($runnable) { - $test_results[$name] = run_test($php,$name); - } - } - exit(0); -} - -sort($test_files); - -$start_time = time(); - -echo "TIME START " . date('Y-m-d H:i:s', $start_time) . " -===================================================================== -"; - -$path_current = ''; -foreach ($test_files as $name) { - - $path = dirname($name); - if ($path_current != $path) { - $path_current = $path; - echo " entering directory $path\n"; - } - - $test_results[$name] = run_test($php,$name); -} - -$end_time = time(); - -// Summarize results - -if (0 == count($test_results)) { - echo "No tests were run.\n"; - return; -} - -$n_total = count($test_results); -$sum_results = array('PASSED'=>0, 'SKIPPED'=>0, 'FAILED'=>0); -foreach ($test_results as $v) { - $sum_results[$v]++; -} -$percent_results = array(); -while (list($v,$n) = each($sum_results)) { - $percent_results[$v] = (100.0 * $n) / $n_total; -} - -echo " -===================================================================== -TIME END " . date('Y-m-d H:i:s', $end_time) . " -===================================================================== -TEST RESULT SUMMARY ---------------------------------------------------------------------- -Number of tests : " . sprintf("%4d",$n_total) . " -Tests skipped : " . sprintf("%4d (%2.1f%%)",$sum_results['SKIPPED'],$percent_results['SKIPPED']) . " -Tests failed : " . sprintf("%4d (%2.1f%%)",$sum_results['FAILED'],$percent_results['FAILED']) . " -Tests passed : " . sprintf("%4d (%2.1f%%)",$sum_results['PASSED'],$percent_results['PASSED']) . " -Time taken : " . sprintf("%4d seconds", $end_time - $start_time) . " -===================================================================== -"; - -// -// Write the given text to a temporary file, and return the filename. -// - -function save_text($filename,$text) { - $fp = @fopen($filename,'w') - or error("Cannot open file '" . $filename . "' (save_text)"); - fwrite($fp,$text); - fclose($fp); - 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; - } -} - -// -// Run an individual test case. -// - -function run_test($php,$file) -{ - if (DETAILED) echo " -================= -TEST $file -"; - - // Load the sections of the test file. - - $section_text = array( - 'TEST' => '(unnamed test)', - 'SKIPIF' => '', - 'GET' => '', - ); - - $fp = @fopen($file, "r") - or error("Cannot open test file: $file"); - - $section = ''; - while (!feof($fp)) { - $line = fgets($fp); - - // Match the beginning of a section. - if (ereg('^--([A-Z]+)--',$line,$r)) { - $section = $r[1]; - $section_text[$section] = ''; - continue; - } - - // Add to the section text. - $section_text[$section] .= $line; - } - fclose($fp); - - $tested = trim($section_text['TEST']).' ('.basename($file).')'; - - $tmp = realpath(dirname($file)); - $tmp_skipif = $tmp.uniqid('/phpt.'); - $tmp_file = $tmp.uniqid('/phpt.'); - $tmp_post = $tmp.uniqid('/phpt.'); - - @unlink($tmp_skipif); - @unlink($tmp_file); - @unlink($tmp_post); - - // Reset environment from any previous test. - - putenv("REDIRECT_STATUS="); - putenv("QUERY_STRING="); - putenv("PATH_TRANSLATED="); - putenv("SCRIPT_FILENAME="); - putenv("REQUEST_METHOD="); - putenv("CONTENT_TYPE="); - putenv("CONTENT_LENGTH="); - - // Check if test should be skipped. - - if (trim($section_text['SKIPIF'])) { - save_text($tmp_skipif, $section_text['SKIPIF']); - $output = `$php $tmp_skipif`; - @unlink($tmp_skipif); - if(trim($output)=='skip') { - echo "SKIP $tested\n"; - return 'SKIPPED'; - } - } - - // We've satisfied the preconditions - run the test! - - save_text($tmp_file,$section_text['FILE']); - $query_string = trim($section_text['GET']); - - putenv("REDIRECT_STATUS=1"); - putenv("QUERY_STRING=$query_string"); - putenv("PATH_TRANSLATED=$tmp_file"); - putenv("SCRIPT_FILENAME=$tmp_file"); - - if (!empty($section_text['POST'])) { - - $post = trim($section_text['POST']); - save_text($tmp_post,$post); - $content_length = strlen($post); - - putenv("REQUEST_METHOD=POST"); - putenv("CONTENT_TYPE=application/x-www-form-urlencoded"); - putenv("CONTENT_LENGTH=$content_length"); - - $cmd = "$php -f $tmp_file 2>&1 < $tmp_post"; - - } else { - - putenv("REQUEST_METHOD=GET"); - putenv("CONTENT_TYPE="); - putenv("CONTENT_LENGTH="); - - $cmd = "$php -f $tmp_file 2>&1"; - - } - - if (DETAILED) echo " -CONTENT_LENGTH = " . getenv("CONTENT_LENGTH") . " -CONTENT_TYPE = " . getenv("CONTENT_TYPE") . " -PATH_TRANSLATED = " . getenv("PATH_TRANSLATED") . " -QUERY_STRING = " . getenv("QUERY_STRING") . " -REDIRECT_STATUS = " . getenv("REDIRECT_STATUS") . " -REQUEST_METHOD = " . getenv("REQUEST_METHOD") . " -SCRIPT_FILENAME = " . getenv("SCRIPT_FILENAME") . " -COMMAND $cmd -"; - - $out = `$cmd`; - - @unlink($tmp_post); - @unlink($tmp_file); - - // Does the output match what is expected? - - $output = trim(preg_replace('/^(..+\n)+\n/','',$out)); - $wanted = trim($section_text['EXPECT']); - - $output = preg_replace('/\r\n/',"\n",$output); - $wanted = preg_replace('/\r\n/',"\n",$wanted); - - $ok = (0 == strcmp($output,$wanted)); - if ($ok) { - echo "PASS $tested\n"; - return 'PASSED'; - } - - // Test failed so we need to report details. - - echo "FAIL $tested\n"; - - $logname = ereg_replace('\.phpt$','.log',$file); - $log = fopen($logname,'w') - or error("Cannot create test log - $logname"); - - fwrite($log," ----- EXPECTED OUTPUT -$wanted ----- ACTUAL OUTPUT -$output ----- FAILED -"); - fclose($log); - - error_report($file,$logname,$tested); - - return 'FAILED'; -} - -function error($message) { - echo "ERROR: {$message}\n"; - exit(1); -} - -/* - * Local variables: - * tab-width: 4 - * c-basic-offset: 4 - * indent-tabs-mode: t - * End: - */ -?> |