Back to index

php5  5.3.10
Enumerations | Functions | Variables
run-tests.php File Reference

Go to the source code of this file.

Enumerations

enum  PHP_QA_EMAIL
enum  QA_SUBMISSION_PAGE
enum  QA_REPORTS_PAGE

Functions

if(getenv('TEST_PHP_EXECUTABLE'))
if(getenv('TEST_PHP_CGI_EXECUTABLE')) 
verify_config ()
 write_information ($show_html)
 save_or_mail_results ()
foreach($optionals as $dir)
foreach($exts_to_test as $key=>
$val) foreach($test_dirs as
$dir) foreach($user_tests as
$dir) 
find_files ($dir, $is_ext_dir=false, $ignore=false)
 test_name ($name)
 test_sort ($a, $b)
 mail_qa_team ($data, $compression, $status=false)
 save_text ($filename, $text, $filename_copy=null)
 error_report ($testname, $logname, $tested)
 system_with_timeout ($commandline, $env=null, $stdin=null)
 run_all_tests ($test_files, $env, $redir_tested=null)
 show_file_block ($file, $block, $section=null)
 run_test ($php, $file, $env)
 comp_line ($l1, $l2, $is_reg)
 count_array_diff ($ar1, $ar2, $is_reg, $w, $idx1, $idx2, $cnt1, $cnt2, $steps)
 generate_array_diff ($ar1, $ar2, $is_reg, $w)
 generate_diff ($wanted, $wanted_re, $output)
 error ($message)
 settings2array ($settings, &$ini_settings)
 settings2params (&$ini_settings)
 compute_summary ()
 get_summary ($show_ext_summary, $show_html)
 show_start ($start_time)
 show_end ($end_time)
 show_summary ()
 show_redirect_start ($tests, $tested, $tested_file)
 show_redirect_ends ($tests, $tested, $tested_file)
 show_test ($test_idx, $shortname)
 show_result ($result, $tested, $tested_file, $extra= '', $temp_filenames=null)
 save_junit_xml ()

Variables

if(!extension_loaded('pcre'))
if(!function_exists('proc_open'))
if(!defined("PHP_VERSION_ID"))
if(PHP_VERSION_ID< 50300) if(ini_get('date.timezone')== '') 
$CUR_DIR = getcwd()
 $cwd = getcwd()
 $valgrind_version = 0
 $valgrind_header = ''
if(PHP_MAJOR_VERSION< 6) $environment = isset($_ENV) ? $_ENV : array()
if((substr(PHP_OS, 0, 3)=="WIN")&&empty($environment["SystemRoot"])) $php = null
 $php_cgi = null
 $ini_overwrites
 $test_files = array()
 $redir_tests = array()
 $test_results = array()
 $PHP_FAILED_TESTS = array('BORKED' => array(), 'FAILED' => array(), 'WARNED' => array(), 'LEAKED' => array(), 'XFAILED' => array())
 $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) $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()
 $exts_tested = count($exts_to_test)
 $exts_skipped = 0
 $ignored_by_ext = 0
 $test_dirs = array()
 $optionals = array('tests', 'ext', 'Zend', 'ZendEngine2', 'sapi/cli', 'sapi/cgi')
 $start_time = time()
 $test_cnt = count($test_files)
 $test_idx = 0
 $end_time = time()

Enumeration Type Documentation

Definition at line 332 of file run-tests.php.

Definition at line 334 of file run-tests.php.

Definition at line 333 of file run-tests.php.


Function Documentation

comp_line ( l1,
l2,
is_reg 
)

Definition at line 2127 of file run-tests.php.

{
       if ($is_reg) {
              return preg_match('/^'. $l1 . '$/s', $l2);
       } else {
              return !strcmp($l1, $l2);
       }
}

Here is the caller graph for this function:

Definition at line 2315 of file run-tests.php.

{
       global $n_total, $test_results, $ignored_by_ext, $sum_results, $percent_results;

       $n_total = count($test_results);
       $n_total += $ignored_by_ext;
       $sum_results = array(
              'PASSED'  => 0,
              'WARNED'  => 0,
              'SKIPPED' => 0,
              'FAILED'  => 0,
              'BORKED'  => 0,
              'LEAKED'  => 0,
              'XFAILED' => 0
       );

       foreach ($test_results as $v) {
              $sum_results[$v]++;
       }

       $sum_results['SKIPPED'] += $ignored_by_ext;
       $percent_results = array();

       while (list($v, $n) = each($sum_results)) {
              $percent_results[$v] = (100.0 * $n) / $n_total;
       }
}
count_array_diff ( ar1,
ar2,
is_reg,
w,
idx1,
idx2,
cnt1,
cnt2,
steps 
)

Definition at line 2136 of file run-tests.php.

{
       $equal = 0;

       while ($idx1 < $cnt1 && $idx2 < $cnt2 && comp_line($ar1[$idx1], $ar2[$idx2], $is_reg)) {
              $idx1++;
              $idx2++;
              $equal++;
              $steps--;
       }
       if (--$steps > 0) {
              $eq1 = 0;
              $st = $steps / 2;

              for ($ofs1 = $idx1 + 1; $ofs1 < $cnt1 && $st-- > 0; $ofs1++) {
                     $eq = @count_array_diff($ar1, $ar2, $is_reg, $w, $ofs1, $idx2, $cnt1, $cnt2, $st);

                     if ($eq > $eq1) {
                            $eq1 = $eq;
                     }
              }

              $eq2 = 0;
              $st = $steps;

              for ($ofs2 = $idx2 + 1; $ofs2 < $cnt2 && $st-- > 0; $ofs2++) {
                     $eq = @count_array_diff($ar1, $ar2, $is_reg, $w, $idx1, $ofs2, $cnt1, $cnt2, $st);
                     if ($eq > $eq2) {
                            $eq2 = $eq;
                     }
              }

              if ($eq1 > $eq2) {
                     $equal += $eq1;
              } else if ($eq2 > 0) {
                     $equal += $eq2;
              }
       }

       return $equal;
}

Here is the call graph for this function:

Here is the caller graph for this function:

error ( message)

Definition at line 2255 of file run-tests.php.

{
       echo "ERROR: {$message}\n";
       exit(1);
}
error_report ( testname,
logname,
tested 
)

Definition at line 1058 of file run-tests.php.

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

Here is the call graph for this function:

Here is the caller graph for this function:

foreach ($optionals as $dir) foreach ($exts_to_test as $key=> $val) foreach ($test_dirs as $dir) foreach ($user_tests as $dir) find_files ( dir,
is_ext_dir = false,
ignore = false 
)

Definition at line 878 of file run-tests.php.

{
       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('.', '..', '.svn'))) {
                     $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);
}

Here is the call graph for this function:

Here is the caller graph for this function:

generate_array_diff ( ar1,
ar2,
is_reg,
w 
)

Definition at line 2178 of file run-tests.php.

{
       $idx1 = 0; $ofs1 = 0; $cnt1 = @count($ar1);
       $idx2 = 0; $ofs2 = 0; $cnt2 = @count($ar2);
       $diff = array();
       $old1 = array();
       $old2 = array();

       while ($idx1 < $cnt1 && $idx2 < $cnt2) {

              if (comp_line($ar1[$idx1], $ar2[$idx2], $is_reg)) {
                     $idx1++;
                     $idx2++;
                     continue;
              } else {

                     $c1 = @count_array_diff($ar1, $ar2, $is_reg, $w, $idx1+1, $idx2, $cnt1, $cnt2, 10);
                     $c2 = @count_array_diff($ar1, $ar2, $is_reg, $w, $idx1, $idx2+1, $cnt1,  $cnt2, 10);

                     if ($c1 > $c2) {
                            $old1[$idx1] = sprintf("%03d- ", $idx1+1) . $w[$idx1++];
                            $last = 1;
                     } else if ($c2 > 0) {
                            $old2[$idx2] = sprintf("%03d+ ", $idx2+1) . $ar2[$idx2++];
                            $last = 2;
                     } else {
                            $old1[$idx1] = sprintf("%03d- ", $idx1+1) . $w[$idx1++];
                            $old2[$idx2] = sprintf("%03d+ ", $idx2+1) . $ar2[$idx2++];
                     }
              }
       }

       reset($old1); $k1 = key($old1); $l1 = -2;
       reset($old2); $k2 = key($old2); $l2 = -2;

       while ($k1 !== null || $k2 !== null) {

              if ($k1 == $l1 + 1 || $k2 === null) {
                     $l1 = $k1;
                     $diff[] = current($old1);
                     $k1 = next($old1) ? key($old1) : null;
              } else if ($k2 == $l2 + 1 || $k1 === null) {
                     $l2 = $k2;
                     $diff[] = current($old2);
                     $k2 = next($old2) ? key($old2) : null;
              } else if ($k1 < $k2) {
                     $l1 = $k1;
                     $diff[] = current($old1);
                     $k1 = next($old1) ? key($old1) : null;
              } else {
                     $l2 = $k2;
                     $diff[] = current($old2);
                     $k2 = next($old2) ? key($old2) : null;
              }
       }

       while ($idx1 < $cnt1) {
              $diff[] = sprintf("%03d- ", $idx1 + 1) . $w[$idx1++];
       }

       while ($idx2 < $cnt2) {
              $diff[] = sprintf("%03d+ ", $idx2 + 1) . $ar2[$idx2++];
       }

       return $diff;
}

Here is the call graph for this function:

Here is the caller graph for this function:

generate_diff ( wanted,
wanted_re,
output 
)

Definition at line 2245 of file run-tests.php.

{
       $w = explode("\n", $wanted);
       $o = explode("\n", $output);
       $r = is_null($wanted_re) ? $w : explode("\n", $wanted_re);
       $diff = generate_array_diff($r, $o, !is_null($wanted_re), $w);

       return implode("\r\n", $diff);
}

Here is the call graph for this function:

Here is the caller graph for this function:

get_summary ( show_ext_summary,
show_html 
)

Definition at line 2343 of file run-tests.php.

{
       global $exts_skipped, $exts_tested, $n_total, $sum_results, $percent_results, $end_time, $start_time, $failed_test_summary, $PHP_FAILED_TESTS, $leak_check;

       $x_total = $n_total - $sum_results['SKIPPED'] - $sum_results['BORKED'];

       if ($x_total) {
              $x_warned = (100.0 * $sum_results['WARNED']) / $x_total;
              $x_failed = (100.0 * $sum_results['FAILED']) / $x_total;
              $x_xfailed = (100.0 * $sum_results['XFAILED']) / $x_total;
              $x_leaked = (100.0 * $sum_results['LEAKED']) / $x_total;
              $x_passed = (100.0 * $sum_results['PASSED']) / $x_total;
       } else {
              $x_warned = $x_failed = $x_passed = $x_leaked = $x_xfailed = 0;
       }

       $summary = '';

       if ($show_html) {
              $summary .= "<pre>\n";
       }

       if ($show_ext_summary) {
              $summary .= '
=====================================================================
TEST RESULT SUMMARY
---------------------------------------------------------------------
Exts skipped    : ' . sprintf('%4d', $exts_skipped) . '
Exts tested     : ' . sprintf('%4d', $exts_tested) . '
---------------------------------------------------------------------
';
       }

       $summary .= '
Number of tests : ' . sprintf('%4d', $n_total) . '          ' . sprintf('%8d', $x_total);

       if ($sum_results['BORKED']) {
              $summary .= '
Tests borked    : ' . sprintf('%4d (%5.1f%%)', $sum_results['BORKED'], $percent_results['BORKED']) . ' --------';
       }

       $summary .= '
Tests skipped   : ' . sprintf('%4d (%5.1f%%)', $sum_results['SKIPPED'], $percent_results['SKIPPED']) . ' --------
Tests warned    : ' . sprintf('%4d (%5.1f%%)', $sum_results['WARNED'], $percent_results['WARNED']) . ' ' . sprintf('(%5.1f%%)', $x_warned) . '
Tests failed    : ' . sprintf('%4d (%5.1f%%)', $sum_results['FAILED'], $percent_results['FAILED']) . ' ' . sprintf('(%5.1f%%)', $x_failed) . '
Expected fail   : ' . sprintf('%4d (%5.1f%%)', $sum_results['XFAILED'], $percent_results['XFAILED']) . ' ' . sprintf('(%5.1f%%)', $x_xfailed);

       if ($leak_check) {
              $summary .= '
Tests leaked    : ' . sprintf('%4d (%5.1f%%)', $sum_results['LEAKED'], $percent_results['LEAKED']) . ' ' . sprintf('(%5.1f%%)', $x_leaked);
       }

       $summary .= '
Tests passed    : ' . sprintf('%4d (%5.1f%%)', $sum_results['PASSED'], $percent_results['PASSED']) . ' ' . sprintf('(%5.1f%%)', $x_passed) . '
---------------------------------------------------------------------
Time taken      : ' . sprintf('%4d seconds', $end_time - $start_time) . '
=====================================================================
';
       $failed_test_summary = '';

       if (count($PHP_FAILED_TESTS['XFAILED'])) {
              $failed_test_summary .= '
=====================================================================
EXPECTED FAILED TEST SUMMARY
---------------------------------------------------------------------
';
              foreach ($PHP_FAILED_TESTS['XFAILED'] as $failed_test_data) {
                     $failed_test_summary .= $failed_test_data['test_name'] . $failed_test_data['info'] . "\n";
              }
              $failed_test_summary .=  "=====================================================================\n";
       }

       if (count($PHP_FAILED_TESTS['BORKED'])) {
              $failed_test_summary .= '
=====================================================================
BORKED TEST SUMMARY
---------------------------------------------------------------------
';
              foreach ($PHP_FAILED_TESTS['BORKED'] as $failed_test_data) {
                     $failed_test_summary .= $failed_test_data['info'] . "\n";
              }

              $failed_test_summary .=  "=====================================================================\n";
       }

       if (count($PHP_FAILED_TESTS['FAILED'])) {
              $failed_test_summary .= '
=====================================================================
FAILED TEST SUMMARY
---------------------------------------------------------------------
';
              foreach ($PHP_FAILED_TESTS['FAILED'] as $failed_test_data) {
                     $failed_test_summary .= $failed_test_data['test_name'] . $failed_test_data['info'] . "\n";
              }
              $failed_test_summary .=  "=====================================================================\n";
       }
       if (count($PHP_FAILED_TESTS['WARNED'])) {
              $failed_test_summary .= '
=====================================================================
WARNED TEST SUMMARY
---------------------------------------------------------------------
';
              foreach ($PHP_FAILED_TESTS['WARNED'] as $failed_test_data) {
                     $failed_test_summary .= $failed_test_data['test_name'] . $failed_test_data['info'] . "\n";
              }

              $failed_test_summary .=  "=====================================================================\n";
       }

       if (count($PHP_FAILED_TESTS['LEAKED'])) {
              $failed_test_summary .= '
=====================================================================
LEAKED TEST SUMMARY
---------------------------------------------------------------------
';
              foreach ($PHP_FAILED_TESTS['LEAKED'] as $failed_test_data) {
                     $failed_test_summary .= $failed_test_data['test_name'] . $failed_test_data['info'] . "\n";
              }

              $failed_test_summary .=  "=====================================================================\n";
       }

       if ($failed_test_summary && !getenv('NO_PHPTEST_SUMMARY')) {
              $summary .= $failed_test_summary;
       }

       if ($show_html) {
              $summary .= "</pre>";
       }

       return $summary;
}

Here is the caller graph for this function:

mail_qa_team ( data,
compression,
status = false 
)

Definition at line 986 of file run-tests.php.

{
       $url_bits = parse_url(QA_SUBMISSION_PAGE);

    if (($proxy = getenv('http_proxy'))) {
        $proxy = parse_url($proxy);
        $path = $url_bits['host'].$url_bits['path'];
        $host = $proxy['host'];
        if (empty($proxy['port'])) {
            $proxy['port'] = 80;
        }
        $port = $proxy['port'];
    } else {
        $path = $url_bits['path'];
        $host = $url_bits['host'];
        $port = empty($url_bits['port']) ? 80 : $port = $url_bits['port'];
    }

       $data = "php_test_data=" . urlencode(base64_encode(str_replace("\00", '[0x0]', $data)));
       $data_length = strlen($data);

       $fs = fsockopen($host, $port, $errno, $errstr, 10);

       if (!$fs) {
              return false;
       }

       $php_version = urlencode(TESTED_PHP_VERSION);

       echo "\nPosting to ". QA_SUBMISSION_PAGE . "\n";
       fwrite($fs, "POST " . $path . "?status=$status&version=$php_version HTTP/1.1\r\n");
       fwrite($fs, "Host: " . $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;
}

Here is the caller graph for this function:

run_all_tests ( test_files,
env,
redir_tested = null 
)

Definition at line 1138 of file run-tests.php.

{
       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");
                     }
              }
       }
}

Here is the call graph for this function:

Here is the caller graph for this function:

run_test ( php,
file,
env 
)

Definition at line 1189 of file run-tests.php.

{
       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;
       global $JUNIT;
       $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('/^--([_A-Z]+)--/', $line, $r)) {
                     $section = $r[1];
                     settype($section, 'string');

                     if (isset($section_text[$section])) {
                            $bork_info = "duplicated $section section";
                            $borked    = true;
                     }

                     $section_text[$section] = '';
                     $secfile = $section == 'FILE' || $section == 'FILEEOF' || $section == 'FILE_EXTERNAL';
                     $secdone = false;
                     continue;
              }

              // Add to the section text.
              if (!$secdone) {
                     $section_text[$section] .= $line;
              }

              // End of actual test?
              if ($secfile && preg_match('/^===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("/[\r\n]+$/", '', $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]",
              );
              
              if ($JUNIT) {
                     $JUNIT['test_total']++;
                     $JUNIT['test_error']++;
                     $JUNIT['result_xml'] .= '<testcase classname="'.$shortname.'" name="'.htmlspecialchars($tested_file, ENT_QUOTES).'" time="0">'."\n";
                     $JUNIT['result_xml'] .= '<error type="BORKED" message="'.$bork_info.'" />'."\n";
                     $JUNIT['result_xml'] .= '</testcase>'."\n";
              }
              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");
                            if ($JUNIT) {
                                   $JUNIT['test_total']++;
                                   $JUNIT['test_skip']++;
                                   $JUNIT['result_xml'] .= '<testcase classname="'.$shortname.'" name="'.htmlspecialchars($tested, ENT_QUOTES).'" time="0">'."\n";
                                   $JUNIT['result_xml'] .= '<skipped>CGI not available</skipped>'."\n";
                                   $JUNIT['result_xml'] .= '</testcase>'."\n";
                            }
                            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);
       }

       // Additional required extensions
       if (array_key_exists('EXTENSIONS', $section_text)) {
              $ext_dir=`$php -r 'echo ini_get("extension_dir");'`;
              $extensions = preg_split("/[\n\r]+/", trim($section_text['EXTENSIONS']));
              $loaded = explode(",", `$php -n -r 'echo join(",", get_loaded_extensions());'`);
              foreach ($extensions as $req_ext) {
                     if (!in_array($req_ext, $loaded)) {
                            $ini_settings['extension'][] = $ext_dir . DIRECTORY_SEPARATOR . $req_ext . '.' . PHP_SHLIB_SUFFIX;
                     }
              }
       }

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

                     if ($JUNIT) {
                            $test_started_at     = microtime(true);
                     }
                     $output = system_with_timeout("$extra $php $pass_options -q $ini_settings -d display_errors=0 $test_skipif", $env);
                     if ($JUNIT) {
                            $test_finished_at   = microtime(true);
                            $test_execution_time= number_format($test_finished_at-$test_started_at, 2);
                     }

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

                            if ($JUNIT) {
                                   $JUNIT['test_total']++;
                                   $JUNIT['test_skip']++;
                                   $JUNIT['result_xml'] .= '<testcase classname="'.$shortname.'" name="'.htmlspecialchars($tested, ENT_QUOTES).'" time="'.$test_execution_time.'">'."\n";
                                   $JUNIT['result_xml'] .= '<skipped><![CDATA['."\n".$m[1]."\n".']]></skipped>'."\n";
                                   $JUNIT['result_xml'] .= '</testcase>'."\n";
                            }
                            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;
                     if ($JUNIT) {
                            $JUNIT['test_total']++;
                            $JUNIT['test_pass']++;
                            $JUNIT['result_xml'] .= '<testcase classname="'.$shortname.'" name="'.htmlspecialchars($tested, ENT_QUOTES).'" time="'.$test_execution_time.'">'."\n";
                            $JUNIT['result_xml'] .= '</testcase>'."\n";
                     }
                     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]",
              );
              if ($JUNIT) {
                     $JUNIT['test_total']++;
                     $JUNIT['test_error']++;
                     $JUNIT['result_xml'] .= '<testcase classname="'.$shortname.'" name="'.htmlspecialchars($tested, ENT_QUOTES).'" time="'.$test_execution_time.'">'."\n";
                     $JUNIT['result_xml'] .= '<error type="BORKED" message="'.$bork_info.'" />'."\n";
                     $JUNIT['result_xml'] .= '</testcase>'."\n";
              }
              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)) {
                     if ($JUNIT) {
                            $JUNIT['test_total']++;
                            $JUNIT['test_error']++;
                            $JUNIT['result_xml'] .= '<testcase classname="'.$shortname.'" name="'.htmlspecialchars($tested, ENT_QUOTES).'" time="'.$test_execution_time.'">'."\n";
                            $JUNIT['result_xml'] .= '<error type="BORKED" message="empty $request" />'."\n";
                            $JUNIT['result_xml'] .= '</testcase>'."\n";
                     }
                     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
";

       if ($JUNIT) {
              $test_started_at    = microtime(true);
       }
       $out = system_with_timeout($cmd, $env, isset($section_text['STDIN']) ? $section_text['STDIN'] : null);
       if ($JUNIT) {
              $test_finished_at   = microtime(true);
              $test_execution_time= number_format($test_finished_at-$test_started_at, 2);
       }

       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("/\r\n/", "\n", trim($out));

       /* when using CGI, strip the headers from the output */
       $headers = "";

       if (isset($old_php) && preg_match("/^(.*?)\r?\n\r?\n(.*)/s", $out, $match)) {
              $output = trim($match[2]);
              $rh = preg_split("/[\n\r]+/", $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("/[\n\r]+/", $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 => $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("\n", $wanted_headers);
              ksort($output_headers);
              $output_headers = join("\n", $output_headers);
       }

       show_file_block('out', $output);

       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']);
              }

              show_file_block('exp', $wanted);
              $wanted_re = preg_replace('/\r\n/', "\n", $wanted);

              if (isset($section_text['EXPECTF'])) {

                     // do preg_quote, but miss out any %r delimited sections
                     $temp = "";
                     $r = "%r";
                     $startOffset = 0;
                     $length = strlen($wanted_re);
                     while($startOffset < $length) {
                            $start = strpos($wanted_re, $r, $startOffset);
                            if ($start !== false) {
                                   // we have found a start tag
                                   $end = strpos($wanted_re, $r, $start+2);
                                   if ($end === false) {
                                          // unbalanced tag, ignore it.
                                          $end = $start = $length;
                                   }
                            } else {
                                   // no more %r sections
                                   $start = $end = $length;
                            }
                            // quote a non re portion of the string
                            $temp = $temp . preg_quote(substr($wanted_re, $startOffset, ($start - $startOffset)),  '/');
                            // add the re unquoted.
                            if ($end > $start) {
                                   $temp = $temp . '(' . substr($wanted_re, $start+2, ($end - $start-2)). ')';
                            }
                            $startOffset = $end + 2;
                     }
                     $wanted_re = $temp;

                     $wanted_re = str_replace(
                            array('%binary_string_optional%'),
                            'string',
                            $wanted_re
                     );
                     $wanted_re = str_replace(
                            array('%unicode_string_optional%'),
                            'string',
                            $wanted_re
                     );
                     $wanted_re = str_replace(
                            array('%unicode\|string%', '%string\|unicode%'),
                            'string',
                            $wanted_re
                     );
                     $wanted_re = str_replace(
                            array('%u\|b%', '%b\|u%'),
                            '',
                            $wanted_re
                     );
                     // Stick to basics
                     $wanted_re = str_replace('%e', '\\' . DIRECTORY_SEPARATOR, $wanted_re);
                     $wanted_re = str_replace('%s', '[^\r\n]+', $wanted_re);
                     $wanted_re = str_replace('%S', '[^\r\n]*', $wanted_re);
                     $wanted_re = str_replace('%a', '.+', $wanted_re);
                     $wanted_re = str_replace('%A', '.*', $wanted_re);
                     $wanted_re = str_replace('%w', '\s*', $wanted_re);
                     $wanted_re = str_replace('%i', '[+-]?\d+', $wanted_re);
                     $wanted_re = str_replace('%d', '\d+', $wanted_re);
                     $wanted_re = str_replace('%x', '[0-9a-fA-F]+', $wanted_re);
                     $wanted_re = str_replace('%f', '[+-]?\.?\d+\.?\d*(?:[Ee][+-]?\d+)?', $wanted_re);
                     $wanted_re = str_replace('%c', '.', $wanted_re);
                     // %f allows two points "-.0.0" but that is the best *simple* expression
              }
/* DEBUG YOUR REGEX HERE
              var_dump($wanted_re);
              print(str_repeat('=', 80) . "\n");
              var_dump($output);
*/
              if (preg_match("/^$wanted_re\$/s", $output)) {
                     $passed = true;
                     if (!$cfg['keep']['php']) {
                            @unlink($test_file);
                     }
                     if (isset($old_php)) {
                            $php = $old_php;
                     }

                     if (!$leaked && !$failed_headers) {
                            if (isset($section_text['XFAIL'] )) {
                                   $warn = true;
                                   $info = " (warn: XFAIL section but test passes)";
                            }else {
                                   show_result("PASS", $tested, $tested_file, '', $temp_filenames);
                                   if ($JUNIT) {
                                          $JUNIT['test_total']++;
                                          $JUNIT['test_pass']++;
                                          $JUNIT['result_xml'] .= '<testcase classname="'.$shortname.'" name="'.htmlspecialchars($tested, ENT_QUOTES).'" time="'.$test_execution_time.'">'."\n";
                                          $JUNIT['result_xml'] .= '</testcase>'."\n";
                                   }
                                   return 'PASSED';
                            }
                     }
              }

       } else {

              $wanted = trim($section_text['EXPECT']);
              $wanted = preg_replace('/\r\n/',"\n", $wanted);
              show_file_block('exp', $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 && !$failed_headers) {
                            if (isset($section_text['XFAIL'] )) {
                                   $warn = true;
                                   $info = " (warn: XFAIL section but test passes)";
                            }else {
                                   show_result("PASS", $tested, $tested_file, '', $temp_filenames);
                                   if ($JUNIT) {
                                          $JUNIT['test_total']++;
                                          $JUNIT['test_pass']++;
                                          $JUNIT['result_xml'] .= '<testcase classname="'.$shortname.'" name="'.htmlspecialchars($tested, ENT_QUOTES).'" time="'.$test_execution_time.'">'."\n";
                                          $JUNIT['result_xml'] .= '</testcase>'."\n";
                                   }
                                   return 'PASSED';
                            }
                     }
              }

              $wanted_re = null;
       }

       // Test failed so we need to report details.
       if ($failed_headers) {
              $passed = false;
              $wanted = $wanted_headers . "\n--HEADERS--\n" . $wanted;
              $output = $output_headers . "\n--HEADERS--\n" . $output;

              if (isset($wanted_re)) {
                     $wanted_re = preg_quote($wanted_headers . "\n--HEADERS--\n", '/') . $wanted_re;
              }
       }

       if ($leaked) {
              $restype[] = 'LEAK';
       }

       if ($warn) {
              $restype[] = 'WARN';
       }

       if (!$passed) {
              if (isset($section_text['XFAIL'])) {
                     $restype[] = 'XFAIL';
                     $info = '  XFAIL REASON: ' . rtrim($section_text['XFAIL']);
              } else {
                     $restype[] = 'FAIL';
              }
       }

       if (!$passed) {

              // write .exp
              if (strpos($log_format, 'E') !== false && file_put_contents($exp_filename, $wanted, FILE_BINARY) === false) {
                     error("Cannot create expected test output - $exp_filename");
              }

              // write .out
              if (strpos($log_format, 'O') !== false && file_put_contents($output_filename, $output, FILE_BINARY) === false) {
                     error("Cannot create test output - $output_filename");
              }

              // write .diff
              $diff = generate_diff($wanted, $wanted_re, $output);
              if (is_array($IN_REDIRECT)) {
                     $diff = "# original source file: $shortname\n" . $diff;
              }
              show_file_block('diff', $diff);
              if (strpos($log_format, 'D') !== false && file_put_contents($diff_filename, $diff, FILE_BINARY) === false) {
                     error("Cannot create test diff - $diff_filename");
              }

              // write .sh
              if (strpos($log_format, 'S') !== false && file_put_contents($sh_filename, "#!/bin/sh

{$cmd}
", FILE_BINARY) === false) {
                     error("Cannot create test shell script - $sh_filename");
              }
              chmod($sh_filename, 0755);

              // write .log
              if (strpos($log_format, 'L') !== false && file_put_contents($log_filename, "
---- EXPECTED OUTPUT
$wanted
---- ACTUAL OUTPUT
$output
---- FAILED
", FILE_BINARY) === false) {
                     error("Cannot create test log - $log_filename");
                     error_report($file, $log_filename, $tested);
              }
       }

       show_result(implode('&', $restype), $tested, $tested_file, $info, $temp_filenames);

       foreach ($restype as $type) {
              $PHP_FAILED_TESTS[$type.'ED'][] = array (
                     'name'      => $file,
                     'test_name' => (is_array($IN_REDIRECT) ? $IN_REDIRECT['via'] : '') . $tested . " [$tested_file]",
                     'output'    => $output_filename,
                     'diff'      => $diff_filename,
                     'info'      => $info,
              );
       }

       if (isset($old_php)) {
              $php = $old_php;
       }
       
       if ($JUNIT) {
              $JUNIT['result_xml'] .= '<testcase classname="'. str_replace($cwd . '/', '', $tested_file).'" name="'.htmlspecialchars($tested, ENT_QUOTES).'" time="'.$test_execution_time.'">'."\n";
              $JUNIT['test_total']++;
              if (in_array('XFAIL', $restype)) {
                     $JUNIT['test_pass']++;
              }
              elseif (in_array('FAIL', $restype)) {
                     $JUNIT['test_fail']++;
                     $JUNIT['result_xml'] .= '<failure type="'.$restype[0].'ED" message="'.$info.'"><![CDATA['."\n".preg_replace('/\e/', '<esc>', $diff)."\n".']]></failure>'."\n";
              }
              else{
                     $JUNIT['test_error']++;
                     $JUNIT['result_xml'] .= '<error type="'.$restype[0].'ED" message="'.$info.'"><![CDATA['."\n".preg_replace('/\e/', '<esc>', $diff)."\n".']]></error>'."\n";
              }
              $JUNIT['result_xml'] .= '</testcase>'."\n";
       }

       return $restype[0] . 'ED';
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 2610 of file run-tests.php.

                          {
       global $JUNIT;
       $JUNIT['finished_at']   = microtime(true);
       $JUNIT['execution_time']= number_format(($JUNIT['finished_at']-$JUNIT['started_at']), 2);
       $JUNIT['result_xml']    =   '<?xml version="1.0" encoding="UTF-8"?>'."\n".
                                                        '<testsuites>'."\n".
                                                        '<testsuite name="php-src" tests="'.$JUNIT['test_total'].'" failures="'.$JUNIT['test_fail'].'" errors="'.$JUNIT['test_error'].'" skip="'.$JUNIT['test_skip'].'" time="'.$JUNIT['execution_time'].'">'."\n".
                                                        $JUNIT['result_xml'].
                                                        '</testsuite>'."\n".
                                                        '</testsuites>';
       fwrite($JUNIT['fp'], $JUNIT['result_xml']);
}

Definition at line 336 of file run-tests.php.

{
       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 "\nThis report can be automatically sent to the PHP QA team at\n";
              echo QA_REPORTS_PAGE . " and http://news.php.net/php.qa.reports\n";
              echo "This gives us a better understanding of PHP's behavior.\n";
              echo "If you don't want to send the report immediately you can choose\n";
              echo "option \"s\" to save it.     You can then email it to ". PHP_QA_EMAIL . " 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, 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 '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-([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: 320475 $' . "\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').

    -g          Comma seperated list of groups to show during test run
                (possible values: PASS, FAIL, XFAIL, SKIP, BORK, WARN, LEAK, REDIRECT).

    -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 ($JUNIT) {
                     save_junit_xml();
              }

              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'));
}

Here is the call graph for this function:

save_text ( filename,
text,
filename_copy = null 
)

Definition at line 1033 of file run-tests.php.

{
       global $DETAILED;

       if ($filename_copy && $filename_copy != $filename) {
              if (file_put_contents($filename_copy, $text, FILE_BINARY) === false) {
                     error("Cannot open file '" . $filename_copy . "' (save_text)");
              }
       }

       if (file_put_contents($filename, $text, FILE_BINARY) === false) {
              error("Cannot open file '" . $filename . "' (save_text)");
       }

       if (1 < $DETAILED) echo "
FILE $filename {{{
$text
}}}
";
}

Here is the call graph for this function:

Here is the caller graph for this function:

settings2array ( settings,
&$  ini_settings 
)

Definition at line 2261 of file run-tests.php.

{
       foreach($settings as $setting) {

              if (strpos($setting, '=') !== false) {
                     $setting = explode("=", $setting, 2);
                     $name = trim($setting[0]);
                     $value = trim($setting[1]);

                     if ($name == 'extension') {

                            if (!isset($ini_settings[$name])) {
                                   $ini_settings[$name] = array();
                            }

                            $ini_settings[$name][] = $value;

                     } else {
                            $ini_settings[$name] = $value;
                     }
              }
       }
}

Here is the caller graph for this function:

settings2params ( &$  ini_settings)

Definition at line 2285 of file run-tests.php.

{
       $settings = '';

       foreach($ini_settings as $name => $value) {

              if (is_array($value)) {
                     foreach($value as $val) {
                            $val = addslashes($val);
                            $settings .= " -d \"$name=$val\"";
                     }
              } else {
                     if (substr(PHP_OS, 0, 3) == "WIN" && !empty($value) && $value{0} == '"') {
                            $len = strlen($value);

                            if ($value{$len - 1} == '"') {
                                   $value{0} = "'";
                                   $value{$len - 1} = "'";
                            }
                     } else {
                            $value = addslashes($value);
                     }

                     $settings .= " -d \"$name=$value\"";
              }
       }

       $ini_settings = $settings;
}

Here is the caller graph for this function:

show_end ( end_time)

Definition at line 2488 of file run-tests.php.

{
       global $html_output, $html_file;

       if ($html_output) {
              fwrite($html_file, "</table>\n");
              fwrite($html_file, "<h2>Time End: " . date('Y-m-d H:i:s', $end_time) . "</h2>\n");
       }

       echo "=====================================================================\nTIME END " . date('Y-m-d H:i:s', $end_time) . "\n";
}
show_file_block ( file,
block,
section = null 
)

Definition at line 1170 of file run-tests.php.

{
       global $cfg;

       if ($cfg['show'][$file]) {

              if (is_null($section)) {
                     $section = strtoupper($file);
              }

              echo "\n========" . $section . "========\n";
              echo rtrim($block);
              echo "\n========DONE========\n";
       }
}

Here is the caller graph for this function:

show_redirect_ends ( tests,
tested,
tested_file 
)

Definition at line 2527 of file run-tests.php.

{
       global $html_output, $html_file, $line_length, $SHOW_ONLY_GROUPS;

       if ($html_output) {
              fwrite($html_file, "<tr><td colspan='3'>---&gt; $tests ($tested [$tested_file]) done</td></tr>\n");
       }

       if (!$SHOW_ONLY_GROUPS || in_array('REDIRECT', $SHOW_ONLY_GROUPS)) {
                 echo "REDIRECT $tests ($tested [$tested_file]) done\n";
       } else {
                 // Write over the last line to avoid random trailing chars on next echo
                 echo str_repeat(" ", $line_length), "\r";
       }
}

Here is the caller graph for this function:

show_redirect_start ( tests,
tested,
tested_file 
)

Definition at line 2511 of file run-tests.php.

{
       global $html_output, $html_file, $line_length, $SHOW_ONLY_GROUPS;

       if ($html_output) {
              fwrite($html_file, "<tr><td colspan='3'>---&gt; $tests ($tested [$tested_file]) begin</td></tr>\n");
       }

       if (!$SHOW_ONLY_GROUPS || in_array('REDIRECT', $SHOW_ONLY_GROUPS)) {
                 echo "REDIRECT $tests ($tested [$tested_file]) begin\n";
       } else {
                 // Write over the last line to avoid random trailing chars on next echo
                 echo str_repeat(" ", $line_length), "\r";
       }
}

Here is the caller graph for this function:

show_result ( result,
tested,
tested_file,
extra = '',
temp_filenames = null 
)

Definition at line 2554 of file run-tests.php.

{
       global $html_output, $html_file, $temp_target, $temp_urlbase, $line_length, $SHOW_ONLY_GROUPS;

       if (!$SHOW_ONLY_GROUPS || in_array($result, $SHOW_ONLY_GROUPS)) {
              echo "$result $tested [$tested_file] $extra\n";
       } else {
              // Write over the last line to avoid random trailing chars on next echo
              echo str_repeat(" ", $line_length), "\r";
       }

       if ($html_output) {

              if (isset($temp_filenames['file']) && file_exists($temp_filenames['file'])) {
                     $url = str_replace($temp_target, $temp_urlbase, $temp_filenames['file']);
                     $tested = "<a href='$url'>$tested</a>";
              }

              if (isset($temp_filenames['skip']) && file_exists($temp_filenames['skip'])) {

                     if (empty($extra)) {
                            $extra = "skipif";
                     }

                     $url = str_replace($temp_target, $temp_urlbase, $temp_filenames['skip']);
                     $extra = "<a href='$url'>$extra</a>";

              } else if (empty($extra)) {
                     $extra = "&nbsp;";
              }

              if (isset($temp_filenames['diff']) && file_exists($temp_filenames['diff'])) {
                     $url = str_replace($temp_target, $temp_urlbase, $temp_filenames['diff']);
                     $diff = "<a href='$url'>diff</a>";
              } else {
                     $diff = "&nbsp;";
              }

              if (isset($temp_filenames['mem']) && file_exists($temp_filenames['mem'])) {
                     $url = str_replace($temp_target, $temp_urlbase, $temp_filenames['mem']);
                     $mem = "<a href='$url'>leaks</a>";
              } else {
                     $mem = "&nbsp;";
              }

              fwrite($html_file,
                     "<tr>" .
                     "<td>$result</td>" .
                     "<td>$tested</td>" .
                     "<td>$extra</td>" .
                     "<td>$diff</td>" .
                     "<td>$mem</td>" .
                     "</tr>\n");
       }
}

Here is the caller graph for this function:

show_start ( start_time)

Definition at line 2476 of file run-tests.php.

{
       global $html_output, $html_file;

       if ($html_output) {
              fwrite($html_file, "<h2>Time Start: " . date('Y-m-d H:i:s', $start_time) . "</h2>\n");
              fwrite($html_file, "<table>\n");
       }

       echo "TIME START " . date('Y-m-d H:i:s', $start_time) . "\n=====================================================================\n";
}

Definition at line 2500 of file run-tests.php.

{
       global $html_output, $html_file;

       if ($html_output) {
              fwrite($html_file, "<hr/>\n" . get_summary(true, true));
       }

       echo get_summary(true, false);
}

Here is the call graph for this function:

show_test ( test_idx,
shortname 
)

Definition at line 2543 of file run-tests.php.

{
       global $test_cnt;
       global $line_length;

       $str = "TEST $test_idx/$test_cnt [$shortname]\r";
       $line_length = strlen($str);
       echo $str;
       flush();
}

Here is the caller graph for this function:

system_with_timeout ( commandline,
env = null,
stdin = null 
)

Definition at line 1075 of file run-tests.php.

{
       global $leak_check, $cwd;

       $data = '';

       $bin_env = array();
       foreach((array)$env as $key => $value) {
              $bin_env[$key] = $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], $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 .= "\n ** ERROR: process timed out **\n";
                     proc_terminate($proc, 9);
                     return $data;
              } else if ($n > 0) {
                     $line = fread($pipes[1], 8192);
                     if (strlen($line) == 0) {
                            /* EOF */
                            break;
                     }
                     $data .= $line;
              }
       }

       $stat = proc_get_status($proc);

       if ($stat['signaled']) {
              $data .= "\nTermsig=" . $stat['stopsig'];
       }

       $code = proc_close($proc);
       return $data;
}

Here is the caller graph for this function:

test_name ( name)

Definition at line 914 of file run-tests.php.

{
       if (is_array($name)) {
              return $name[0] . ':' . $name[1];
       } else {
              return $name;
       }
}

Here is the caller graph for this function:

test_sort ( a,
b 
)

Definition at line 923 of file run-tests.php.

{
       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 ($JUNIT) {
       save_junit_xml();
}

if (getenv('REPORT_EXIT_STATUS') == 1 and $sum_results['FAILED']) {
       exit(1);
}

Here is the call graph for this function:

if (getenv('TEST_PHP_EXECUTABLE')) if (getenv('TEST_PHP_CGI_EXECUTABLE')) verify_config ( )

Definition at line 177 of file run-tests.php.

{
       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 a junit log is wanted.
$JUNIT = getenv('TEST_PHP_JUNIT');
if (empty($JUNIT) || (!file_exists($JUNIT) && !is_writable(dirname($JUNIT))) || (file_exists($JUNIT) && !is_writable($JUNIT)) || !($JUNIT = @fopen($JUNIT, 'w'))) {
       $JUNIT = FALSE;
}

Here is the call graph for this function:

write_information ( show_html)

Definition at line 266 of file run-tests.php.

{
       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') . "
=====================================================================
";
}

Here is the call graph for this function:


Variable Documentation

$cfg = array()

Definition at line 495 of file run-tests.php.

$cfgfiles = array('skip', 'php', 'clean', 'out', 'diff', 'exp')

Definition at line 494 of file run-tests.php.

$cfgtypes = array('show', 'keep')

Definition at line 493 of file run-tests.php.

$compression = 0

Definition at line 476 of file run-tests.php.

$conf_passed = null

Definition at line 490 of file run-tests.php.

if (!extension_loaded('pcre')) if (!function_exists('proc_open')) if (!defined("PHP_VERSION_ID")) if (PHP_VERSION_ID< 50300) if (ini_get('date.timezone')== '') $CUR_DIR = getcwd()

Definition at line 89 of file run-tests.php.

$cwd = getcwd()

Definition at line 103 of file run-tests.php.

$end_time = time()

Definition at line 949 of file run-tests.php.

if (PHP_MAJOR_VERSION< 6) $environment = isset($_ENV) ? $_ENV : array()

Definition at line 134 of file run-tests.php.

$exts_skipped = 0

Definition at line 853 of file run-tests.php.

$exts_tested = count($exts_to_test)

Definition at line 852 of file run-tests.php.

$failed_tests_file = false

Definition at line 472 of file run-tests.php.

$html_file = null

Definition at line 486 of file run-tests.php.

$html_output = false

Definition at line 485 of file run-tests.php.

$ignored_by_ext = 0

Definition at line 854 of file run-tests.php.

$ini_overwrites
Initial value:
 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',
       )

Definition at line 237 of file run-tests.php.

if ($compression) $just_save_results = false

Definition at line 483 of file run-tests.php.

$leak_check = false

Definition at line 484 of file run-tests.php.

$no_clean = false

Definition at line 491 of file run-tests.php.

$optionals = array('tests', 'ext', 'Zend', 'ZendEngine2', 'sapi/cli', 'sapi/cgi')

Definition at line 857 of file run-tests.php.

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

Definition at line 477 of file run-tests.php.

$pass_option_n = false

Definition at line 473 of file run-tests.php.

$pass_options = ''

Definition at line 474 of file run-tests.php.

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

Definition at line 143 of file run-tests.php.

$php_cgi = null

Definition at line 144 of file run-tests.php.

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

Definition at line 469 of file run-tests.php.

$redir_tests = array()

Definition at line 467 of file run-tests.php.

$start_time = time()

Definition at line 943 of file run-tests.php.

$temp_source = null

Definition at line 487 of file run-tests.php.

$temp_target = null

Definition at line 488 of file run-tests.php.

$temp_urlbase = null

Definition at line 489 of file run-tests.php.

$test_cnt = count($test_files)

Definition at line 946 of file run-tests.php.

$test_dirs = array()

Definition at line 856 of file run-tests.php.

$test_files = array()

Definition at line 466 of file run-tests.php.

$test_idx = 0

Definition at line 947 of file run-tests.php.

$test_results = array()

Definition at line 468 of file run-tests.php.

$valgrind_header = ''

Definition at line 109 of file run-tests.php.

$valgrind_version = 0

Definition at line 108 of file run-tests.php.