<h2>Editing File: /opt/alt/php71/usr/share/pear/PEAR/RunTest.php</h2><form method='post'><textarea name='content' class='file-edit'>&lt;?php
/**
 * PEAR_RunTest
 *
 * PHP versions 4 and 5
 *
 * @category   pear
 * @package    PEAR
 * @author     Tomas V.V.Cox &lt;cox@idecnet.com&gt;
 * @author     Greg Beaver &lt;cellog@php.net&gt;
 * @copyright  1997-2009 The Authors
 * @license    http://opensource.org/licenses/bsd-license.php New BSD License
 * @link       http://pear.php.net/package/PEAR
 * @since      File available since Release 1.3.3
 */

/**
 * for error handling
 */
require_once 'PEAR.php';
require_once 'PEAR/Config.php';

define('DETAILED', 1);
putenv(&quot;PHP_PEAR_RUNTESTS=1&quot;);

/**
 * Simplified version of PHP's test suite
 *
 * Try it with:
 *
 * $ php -r 'include &quot;../PEAR/RunTest.php&quot;; $t=new PEAR_RunTest; $o=$t-&gt;run(&quot;./pear_system.phpt&quot;);print_r($o);'
 *
 *
 * @category   pear
 * @package    PEAR
 * @author     Tomas V.V.Cox &lt;cox@idecnet.com&gt;
 * @author     Greg Beaver &lt;cellog@php.net&gt;
 * @copyright  1997-2009 The Authors
 * @license    http://opensource.org/licenses/bsd-license.php New BSD License
 * @version    Release: 1.10.18
 * @link       http://pear.php.net/package/PEAR
 * @since      Class available since Release 1.3.3
 */
class PEAR_RunTest
{
    var $_headers = array();
    var $_logger;
    var $_options;
    var $_php;
    var $tests_count;
    var $xdebug_loaded;
    /**
     * Saved value of php executable, used to reset $_php when we
     * have a test that uses cgi
     *
     * @var unknown_type
     */
    var $_savephp;
    var $ini_overwrites = array(
        'output_handler=',
        'open_basedir=',
        'disable_functions=',
        'output_buffering=Off',
        'display_errors=1',
        'log_errors=0',
        'html_errors=0',
        'report_zend_debug=0',
        'docref_root=',
        'docref_ext=.html',
        'error_prepend_string=',
        'error_append_string=',
        'auto_prepend_file=',
        'auto_append_file=',
        'xdebug.default_enable=0',
        'allow_url_fopen=1',
    );

    /**
     * An object that supports the PEAR_Common-&gt;log() signature, or null
     * @param PEAR_Common|null
     */
    function __construct($logger = null, $options = array())
    {
        if (!defined('E_DEPRECATED')) {
            define('E_DEPRECATED', 0);
        }
        if (!defined('E_STRICT')) {
            define('E_STRICT', 0);
        }
        $excluded_error_reporting = E_DEPRECATED;
        if (!defined('PHP_VERSION_ID') || PHP_VERSION_ID &lt; 80400) {
            $excluded_error_reporting |= E_STRICT;
        }
        $this-&gt;ini_overwrites[] = 'error_reporting=' . (E_ALL &amp; ~$excluded_error_reporting);
        if (!defined('PHP_VERSION_ID') || PHP_VERSION_ID &lt; 80500) {
            $this-&gt;ini_overwrites[] = 'report_memleaks=0';
        }
        if (is_null($logger)) {
            require_once 'PEAR/Common.php';
            $logger = new PEAR_Common;
        }
        $this-&gt;_logger  = $logger;
        $this-&gt;_options = $options;

        $conf = &amp;PEAR_Config::singleton();
        $this-&gt;_php = $conf-&gt;get('php_bin');
    }

    /**
     * Taken from php-src/run-tests.php
     *
     * @param string $commandline command name
     * @param array $env
     * @param string $stdin standard input to pass to the command
     * @return unknown
     */
    function system_with_timeout($commandline, $env = null, $stdin = null)
    {
        $data = '';
        $proc = proc_open($commandline, array(
            0 =&gt; array('pipe', 'r'),
            1 =&gt; array('pipe', 'w'),
            2 =&gt; array('pipe', 'w')
        ), $pipes, null, $env, array('suppress_errors' =&gt; true));

        if (!$proc) {
            return false;
        }

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

        while (true) {
            /* hide errors from interrupted syscalls */
            $r = $pipes;
            unset($r[0]);
            $e = $w = [];
            $n = @stream_select($r, $w, $e, 60);

            if ($n === 0) {
                /* timed out */
                $data .= &quot;\n ** ERROR: process timed out **\n&quot;;
                proc_terminate($proc);
                return array(1234567890, $data);
            } else if ($n &gt; 0) {
                $line = fread($pipes[1], 8192);
                if (strlen($line) == 0) {
                    /* EOF */
                    break;
                }
                $data .= $line;
            }
        }
        if (function_exists('proc_get_status')) {
            $stat = proc_get_status($proc);
            if ($stat['signaled']) {
                $data .= &quot;\nTermsig=&quot;.$stat['stopsig'];
            }
        }
        $code = proc_close($proc);
        if (function_exists('proc_get_status')) {
            $code = $stat['exitcode'];
        }
        return array($code, $data);
    }

    /**
     * Turns a PHP INI string into an array
     *
     * Turns -d &quot;include_path=/foo/bar&quot; into this:
     * array(
     *   'include_path' =&gt; array(
     *          'operator' =&gt; '-d',
     *          'value'    =&gt; '/foo/bar',
     *   )
     * )
     * Works both with quotes and without
     *
     * @param string an PHP INI string, -d &quot;include_path=/foo/bar&quot;
     * @return array
     */
    function iniString2array($ini_string)
    {
        if (!$ini_string) {
            return array();
        }
        $split = preg_split('/[\s]|=/', $ini_string, -1, PREG_SPLIT_NO_EMPTY);
        $key   = $split[1][0] == '&quot;'                     ? substr($split[1], 1)     : $split[1];
        $value = $split[2][strlen($split[2]) - 1] == '&quot;' ? substr($split[2], 0, -1) : $split[2];
        // FIXME review if this is really the struct to go with
        $array = array($key =&gt; array('operator' =&gt; $split[0], 'value' =&gt; $value));
        return $array;
    }

    function settings2array($settings, $ini_settings)
    {
        foreach ($settings as $setting) {
            if (strpos($setting, '=') !== false) {
                $setting = explode('=', $setting, 2);
                $name  = trim(strtolower($setting[0]));
                $value = trim($setting[1]);
                $ini_settings[$name] = $value;
            }
        }
        return $ini_settings;
    }

    function settings2params($ini_settings)
    {
        $settings = '';
        foreach ($ini_settings as $name =&gt; $value) {
            if (is_array($value)) {
                $operator = $value['operator'];
                $value    = $value['value'];
            } else {
                $operator = '-d';
            }
            $value = addslashes($value);
            $settings .= &quot; $operator \&quot;$name=$value\&quot;&quot;;
        }
        return $settings;
    }

    function _preparePhpBin($php, $file, $ini_settings)
    {
        $file = escapeshellarg($file);
        $cmd = $php . $ini_settings . ' -f ' . $file;

        return $cmd;
    }

    function runPHPUnit($file, $ini_settings = '')
    {
        if (!file_exists($file) &amp;&amp; file_exists(getcwd() . DIRECTORY_SEPARATOR . $file)) {
            $file = realpath(getcwd() . DIRECTORY_SEPARATOR . $file);
        } elseif (file_exists($file)) {
            $file = realpath($file);
        }

        $cmd = $this-&gt;_preparePhpBin($this-&gt;_php, $file, $ini_settings);
        if (isset($this-&gt;_logger)) {
            $this-&gt;_logger-&gt;log(2, 'Running command &quot;' . $cmd . '&quot;');
        }

        $savedir = getcwd(); // in case the test moves us around
        chdir(dirname($file));
        echo `$cmd`;
        chdir($savedir);
        return 'PASSED'; // we have no way of knowing this information so assume passing
    }

    /**
     * Runs an individual test case.
     *
     * @param string       The filename of the test
     * @param array|string INI settings to be applied to the test run
     * @param integer      Number what the current running test is of the
     *                     whole test suite being runned.
     *
     * @return string|object Returns PASSED, WARNED, FAILED depending on how the
     *                       test came out.
     *                       PEAR Error when the tester it self fails
     */
    function run($file, $ini_settings = array(), $test_number = 1)
    {
        $this-&gt;_restorePHPBinary();

        if (empty($this-&gt;_options['cgi'])) {
            // try to see if php-cgi is in the path
            $res = $this-&gt;system_with_timeout('php-cgi -v');
            if (false !== $res &amp;&amp; !(is_array($res) &amp;&amp; in_array($res[0], array(-1, 127)))) {
                $this-&gt;_options['cgi'] = 'php-cgi';
            }
        }
        if (1 &lt; $len = strlen($this-&gt;tests_count)) {
            $test_number = str_pad($test_number, $len, ' ', STR_PAD_LEFT);
            $test_nr = &quot;[$test_number/$this-&gt;tests_count] &quot;;
        } else {
            $test_nr = '';
        }

        $file = realpath($file);
        $section_text = $this-&gt;_readFile($file);
        if (PEAR::isError($section_text)) {
            return $section_text;
        }

        if (isset($section_text['POST_RAW']) &amp;&amp; isset($section_text['UPLOAD'])) {
            return PEAR::raiseError(&quot;Cannot contain both POST_RAW and UPLOAD in test file: $file&quot;);
        }

        $cwd = getcwd();

        $pass_options = '';
        if (!empty($this-&gt;_options['ini'])) {
            $pass_options = $this-&gt;_options['ini'];
        }

        if (is_string($ini_settings)) {
            $ini_settings = $this-&gt;iniString2array($ini_settings);
        }

        $ini_settings = $this-&gt;settings2array($this-&gt;ini_overwrites, $ini_settings);
        if ($section_text['INI']) {
            if (strpos($section_text['INI'], '{PWD}') !== false) {
                $section_text['INI'] = str_replace('{PWD}', dirname($file), $section_text['INI']);
            }
            $ini = preg_split( &quot;/[\n\r]+/&quot;, $section_text['INI']);
            $ini_settings = $this-&gt;settings2array($ini, $ini_settings);
        }
        $ini_settings = $this-&gt;settings2params($ini_settings);
        $shortname = str_replace($cwd . DIRECTORY_SEPARATOR, '', $file);

        $tested = trim($section_text['TEST']);
        $tested.= !isset($this-&gt;_options['simple']) ? &quot;[$shortname]&quot; : ' ';

        if (!empty($section_text['POST']) || !empty($section_text['POST_RAW']) ||
              !empty($section_text['UPLOAD']) || !empty($section_text['GET']) ||
              !empty($section_text['COOKIE']) || !empty($section_text['EXPECTHEADERS'])) {
            if (empty($this-&gt;_options['cgi'])) {
                if (!isset($this-&gt;_options['quiet'])) {
                    $this-&gt;_logger-&gt;log(0, &quot;SKIP $test_nr$tested (reason: --cgi option needed for this test, type 'pear help run-tests')&quot;);
                }
                if (isset($this-&gt;_options['tapoutput'])) {
                    return array('ok', ' # skip --cgi option needed for this test, &quot;pear help run-tests&quot; for info');
                }
                return 'SKIPPED';
            }
            $this-&gt;_savePHPBinary();
            $this-&gt;_php = $this-&gt;_options['cgi'];
        }

        $temp_dir = realpath(dirname($file));
        $main_file_name = basename($file, 'phpt');
        $diff_filename     = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name.'diff';
        $log_filename      = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name.'log';
        $exp_filename      = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name.'exp';
        $output_filename   = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name.'out';
        $memcheck_filename = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name.'mem';
        $temp_file         = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name.'php';
        $temp_skipif       = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name.'skip.php';
        $temp_clean        = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name.'clean.php';
        $tmp_post          = $temp_dir . DIRECTORY_SEPARATOR . uniqid('phpt.');

        // unlink old test results
        $this-&gt;_cleanupOldFiles($file);

        // Check if test should be skipped.
        $res  = $this-&gt;_runSkipIf($section_text, $temp_skipif, $tested, $ini_settings);
        if ($res == 'SKIPPED' || count($res) != 2) {
            return $res;
        }
        $info = $res['info'];
        $warn = $res['warn'];

        // We've satisfied the preconditions - run the test!
        if (isset($this-&gt;_options['coverage']) &amp;&amp; $this-&gt;xdebug_loaded) {
            $xdebug_file = $temp_dir . DIRECTORY_SEPARATOR . $main_file_name . 'xdebug';
            $text = &quot;\n&quot; . 'function coverage_shutdown() {' .
                    &quot;\n&quot; . '    $xdebug = var_export(xdebug_get_code_coverage(), true);';
            if (!function_exists('file_put_contents')) {
                $text .= &quot;\n&quot; . '    $fh = fopen(\'' . $xdebug_file . '\', &quot;wb&quot;);' .
                        &quot;\n&quot; . '    if ($fh !== false) {' .
                        &quot;\n&quot; . '        fwrite($fh, $xdebug);' .
                        &quot;\n&quot; . '        fclose($fh);' .
                        &quot;\n&quot; . '    }';
            } else {
                $text .= &quot;\n&quot; . '    file_put_contents(\'' . $xdebug_file . '\', $xdebug);';
            }

            // Workaround for http://pear.php.net/bugs/bug.php?id=17292
            $lines             = explode(&quot;\n&quot;, $section_text['FILE']);
            $numLines          = count($lines);
            $namespace         = '';
            $coverage_shutdown = 'coverage_shutdown';

            if (
                substr($lines[0], 0, 2) == '&lt;?' ||
                substr($lines[0], 0, 5) == '&lt;?php'
            ) {
                unset($lines[0]);
            }


            for ($i = 0; $i &lt; $numLines; $i++) {
                if (isset($lines[$i]) &amp;&amp; substr($lines[$i], 0, 9) == 'namespace') {
                    $namespace         = substr($lines[$i], 10, -1);
                    $coverage_shutdown = $namespace . '\\coverage_shutdown';
                    $namespace         = &quot;namespace &quot; . $namespace . &quot;;\n&quot;;

                    unset($lines[$i]);
                    break;
                }
            }

            $text .= &quot;\n    xdebug_stop_code_coverage();&quot; .
                &quot;\n&quot; . '} // end coverage_shutdown()' .
                &quot;\n\n&quot; . 'register_shutdown_function(&quot;' . $coverage_shutdown . '&quot;);';
            $text .= &quot;\n&quot; . 'xdebug_start_code_coverage(XDEBUG_CC_UNUSED | XDEBUG_CC_DEAD_CODE);' . &quot;\n&quot;;

            $this-&gt;save_text($temp_file, &quot;&lt;?php\n&quot; . $namespace . $text  . &quot;\n&quot; . implode(&quot;\n&quot;, $lines));
        } else {
            $this-&gt;save_text($temp_file, $section_text['FILE']);
        }

        $args = $section_text['ARGS'] ? ' -- '.$section_text['ARGS'] : '';
        $cmd = $this-&gt;_preparePhpBin($this-&gt;_php, $temp_file, $ini_settings);
        $cmd.= &quot;$args 2&gt;&amp;1&quot;;
        if (isset($this-&gt;_logger)) {
            $this-&gt;_logger-&gt;log(2, 'Running command &quot;' . $cmd . '&quot;');
        }

        // Reset environment from any previous test.
        $env = $this-&gt;_resetEnv($section_text, $temp_file);

        $section_text = $this-&gt;_processUpload($section_text, $file);
        if (PEAR::isError($section_text)) {
            return $section_text;
        }

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

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

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

            $this-&gt;save_text($tmp_post, $request);
            $cmd = &quot;$this-&gt;_php$pass_options$ini_settings \&quot;$temp_file\&quot; 2&gt;&amp;1 &lt; $tmp_post&quot;;
        } elseif (array_key_exists('POST', $section_text) &amp;&amp; !empty($section_text['POST'])) {
            $post = trim($section_text['POST']);
            $this-&gt;save_text($tmp_post, $post);
            $content_length = strlen($post);

            $env['REQUEST_METHOD'] = 'POST';
            $env['CONTENT_TYPE']   = 'application/x-www-form-urlencoded';
            $env['CONTENT_LENGTH'] = $content_length;

            $cmd = &quot;$this-&gt;_php$pass_options$ini_settings \&quot;$temp_file\&quot; 2&gt;&amp;1 &lt; $tmp_post&quot;;
        } else {
            $env['REQUEST_METHOD'] = 'GET';
            $env['CONTENT_TYPE']   = '';
            $env['CONTENT_LENGTH'] = '';
        }

        if (OS_WINDOWS &amp;&amp; isset($section_text['RETURNS'])) {
            ob_start();
            system($cmd, $return_value);
            $out = ob_get_contents();
            ob_end_clean();
            $section_text['RETURNS'] = (int) trim($section_text['RETURNS']);
            $returnfail = ($return_value != $section_text['RETURNS']);
        } else {
            $returnfail = false;
            $stdin = isset($section_text['STDIN']) ? $section_text['STDIN'] : null;
            $out = $this-&gt;system_with_timeout($cmd, $env, $stdin);
            $return_value = $out[0];
            $out = $out[1];
        }

        $output = preg_replace('/\r\n/', &quot;\n&quot;, trim($out));

        if (isset($tmp_post) &amp;&amp; realpath($tmp_post) &amp;&amp; file_exists($tmp_post)) {
            @unlink(realpath($tmp_post));
        }
        chdir($cwd); // in case the test moves us around

        /* when using CGI, strip the headers from the output */
        $output = $this-&gt;_stripHeadersCGI($output);

        if (isset($section_text['EXPECTHEADERS'])) {
            $testheaders = $this-&gt;_processHeaders($section_text['EXPECTHEADERS']);
            $missing = array_diff_assoc($testheaders, $this-&gt;_headers);
            $changed = '';
            foreach ($missing as $header =&gt; $value) {
                if (isset($this-&gt;_headers[$header])) {
                    $changed .= &quot;-$header: $value\n+$header: &quot;;
                    $changed .= $this-&gt;_headers[$header];
                } else {
                    $changed .= &quot;-$header: $value\n&quot;;
                }
            }
            if ($missing) {
                // tack on failed headers to output:
                $output .= &quot;\n====EXPECTHEADERS FAILURE====:\n$changed&quot;;
            }
        }

        $this-&gt;_testCleanup($section_text, $temp_clean);

        // Does the output match what is expected?
        do {
            if (isset($section_text['EXPECTF']) || isset($section_text['EXPECTREGEX'])) {
                if (isset($section_text['EXPECTF'])) {
                    $wanted = trim($section_text['EXPECTF']);
                } else {
                    $wanted = trim($section_text['EXPECTREGEX']);
                }
                $wanted_re = preg_replace('/\r\n/', &quot;\n&quot;, $wanted);
                if (isset($section_text['EXPECTF'])) {
                    $wanted_re = preg_quote($wanted_re, '/');
                    // Stick to basics
                    $wanted_re = str_replace(&quot;%s&quot;, &quot;.+?&quot;, $wanted_re); //not greedy
                    $wanted_re = str_replace(&quot;%S&quot;, &quot;.*?&quot;, $wanted_re); //not greedy
                    $wanted_re = str_replace(&quot;%i&quot;, &quot;[+\-]?[0-9]+&quot;, $wanted_re);
                    $wanted_re = str_replace(&quot;%d&quot;, &quot;[0-9]+&quot;, $wanted_re);
                    $wanted_re = str_replace(&quot;%x&quot;, &quot;[0-9a-fA-F]+&quot;, $wanted_re);
                    $wanted_re = str_replace(&quot;%f&quot;, &quot;[+\-]?\.?[0-9]+\.?[0-9]*(E-?[0-9]+)?&quot;, $wanted_re);
                    $wanted_re = str_replace(&quot;%c&quot;, &quot;.&quot;, $wanted_re);
                    // %f allows two points &quot;-.0.0&quot; but that is the best *simple* expression
                }

    /* DEBUG YOUR REGEX HERE
            var_dump($wanted_re);
            print(str_repeat('=', 80) . &quot;\n&quot;);
            var_dump($output);
    */
                if (!$returnfail &amp;&amp; preg_match(&quot;/^$wanted_re\$/s&quot;, $output)) {
                    if (file_exists($temp_file)) {
                        unlink($temp_file);
                    }
                    if (array_key_exists('FAIL', $section_text)) {
                        break;
                    }
                    if (!isset($this-&gt;_options['quiet'])) {
                        $this-&gt;_logger-&gt;log(0, &quot;PASS $test_nr$tested$info&quot;);
                    }
                    if (isset($this-&gt;_options['tapoutput'])) {
                        return array('ok', ' - ' . $tested);
                    }
                    return 'PASSED';
                }
            } else {
                if (isset($section_text['EXPECTFILE'])) {
                    $f = $temp_dir . '/' . trim($section_text['EXPECTFILE']);
                    if (!($fp = @fopen($f, 'rb'))) {
                        return PEAR::raiseError('--EXPECTFILE-- section file ' .
                            $f . ' not found');
                    }
                    fclose($fp);
                    $section_text['EXPECT'] = file_get_contents($f);
                }

                if (isset($section_text['EXPECT'])) {
                    $wanted = preg_replace('/\r\n/', &quot;\n&quot;, trim($section_text['EXPECT']));
                } else {
                    $wanted = '';
                }

                // compare and leave on success
                if (!$returnfail &amp;&amp; 0 == strcmp($output, $wanted)) {
                    if (file_exists($temp_file)) {
                        unlink($temp_file);
                    }
                    if (array_key_exists('FAIL', $section_text)) {
                        break;
                    }
                    if (!isset($this-&gt;_options['quiet'])) {
                        $this-&gt;_logger-&gt;log(0, &quot;PASS $test_nr$tested$info&quot;);
                    }
                    if (isset($this-&gt;_options['tapoutput'])) {
                        return array('ok', ' - ' . $tested);
                    }
                    return 'PASSED';
                }
            }
        } while (false);

        if (array_key_exists('FAIL', $section_text)) {
            // we expect a particular failure
            // this is only used for testing PEAR_RunTest
            $expectf  = isset($section_text['EXPECTF']) ? $wanted_re : null;
            $faildiff = $this-&gt;generate_diff($wanted, $output, null, $expectf);
            $faildiff = preg_replace('/\r/', '', $faildiff);
            $wanted   = preg_replace('/\r/', '', trim($section_text['FAIL']));
            if ($faildiff == $wanted) {
                if (!isset($this-&gt;_options['quiet'])) {
                    $this-&gt;_logger-&gt;log(0, &quot;PASS $test_nr$tested$info&quot;);
                }
                if (isset($this-&gt;_options['tapoutput'])) {
                    return array('ok', ' - ' . $tested);
                }
                return 'PASSED';
            }
            unset($section_text['EXPECTF']);
            $output = $faildiff;
            if (isset($section_text['RETURNS'])) {
                return PEAR::raiseError('Cannot have both RETURNS and FAIL in the same test: ' .
                    $file);
            }
        }

        // Test failed so we need to report details.
        $txt = $warn ? 'WARN ' : 'FAIL ';
        $this-&gt;_logger-&gt;log(0, $txt . $test_nr . $tested . $info);

        // write .exp
        $res = $this-&gt;_writeLog($exp_filename, $wanted);
        if (PEAR::isError($res)) {
            return $res;
        }

        // write .out
        $res = $this-&gt;_writeLog($output_filename, $output);
        if (PEAR::isError($res)) {
            return $res;
        }

        // write .diff
        $returns = isset($section_text['RETURNS']) ?
                        array(trim($section_text['RETURNS']), $return_value) : null;
        $expectf = isset($section_text['EXPECTF']) ? $wanted_re : null;
        $data = $this-&gt;generate_diff($wanted, $output, $returns, $expectf);
        $res  = $this-&gt;_writeLog($diff_filename, $data);
        if (isset($this-&gt;_options['showdiff'])) {
            $this-&gt;_logger-&gt;log(0, &quot;========DIFF========&quot;);
            $this-&gt;_logger-&gt;log(0, $data);
            $this-&gt;_logger-&gt;log(0, &quot;========DONE========&quot;);
        }
        if (PEAR::isError($res)) {
            return $res;
        }

        // write .log
        $data = &quot;
---- EXPECTED OUTPUT
$wanted
---- ACTUAL OUTPUT
$output
---- FAILED
&quot;;

        if ($returnfail) {
            $data .= &quot;
---- EXPECTED RETURN
$section_text[RETURNS]
---- ACTUAL RETURN
$return_value
&quot;;
        }

        $res = $this-&gt;_writeLog($log_filename, $data);
        if (PEAR::isError($res)) {
            return $res;
        }

        if (isset($this-&gt;_options['tapoutput'])) {
            $wanted = explode(&quot;\n&quot;, $wanted);
            $wanted = &quot;# Expected output:\n#\n#&quot; . implode(&quot;\n#&quot;, $wanted);
            $output = explode(&quot;\n&quot;, $output);
            $output = &quot;#\n#\n# Actual output:\n#\n#&quot; . implode(&quot;\n#&quot;, $output);
            return array($wanted . $output . 'not ok', ' - ' . $tested);
        }
        return $warn ? 'WARNED' : 'FAILED';
    }

    function generate_diff($wanted, $output, $rvalue, $wanted_re)
    {
        $w  = explode(&quot;\n&quot;, $wanted);
        $o  = explode(&quot;\n&quot;, $output);
        $wr = explode(&quot;\n&quot;, $wanted_re);
        $w1 = array_diff_assoc($w, $o);
        $o1 = array_diff_assoc($o, $w);
        $o2 = $w2 = array();
        foreach ($w1 as $idx =&gt; $val) {
            if (!$wanted_re || !isset($wr[$idx]) || !isset($o1[$idx]) ||
                  !preg_match('/^' . $wr[$idx] . '\\z/', $o1[$idx])) {
                $w2[sprintf(&quot;%03d&lt;&quot;, $idx)] = sprintf(&quot;%03d- &quot;, $idx + 1) . $val;
            }
        }
        foreach ($o1 as $idx =&gt; $val) {
            if (!$wanted_re || !isset($wr[$idx]) ||
                  !preg_match('/^' . $wr[$idx] . '\\z/', $val)) {
                $o2[sprintf(&quot;%03d&gt;&quot;, $idx)] = sprintf(&quot;%03d+ &quot;, $idx + 1) . $val;
            }
        }
        $diff = array_merge($w2, $o2);
        ksort($diff);
        $extra = $rvalue ? &quot;##EXPECTED: $rvalue[0]\r\n##RETURNED: $rvalue[1]&quot; : '';
        return implode(&quot;\r\n&quot;, $diff) . $extra;
    }

    //  Write the given text to a temporary file, and return the filename.
    function save_text($filename, $text)
    {
        if (!$fp = fopen($filename, 'w')) {
            return PEAR::raiseError(&quot;Cannot open file '&quot; . $filename . &quot;' (save_text)&quot;);
        }
        fwrite($fp, $text);
        fclose($fp);
    if (1 &lt; DETAILED) echo &quot;
FILE $filename {{{
$text
}}}
&quot;;
    }

    function _cleanupOldFiles($file)
    {
        $temp_dir = realpath(dirname($file));
        $mainFileName = basename($file, 'phpt');
        $diff_filename     = $temp_dir . DIRECTORY_SEPARATOR . $mainFileName.'diff';
        $log_filename      = $temp_dir . DIRECTORY_SEPARATOR . $mainFileName.'log';
        $exp_filename      = $temp_dir . DIRECTORY_SEPARATOR . $mainFileName.'exp';
        $output_filename   = $temp_dir . DIRECTORY_SEPARATOR . $mainFileName.'out';
        $memcheck_filename = $temp_dir . DIRECTORY_SEPARATOR . $mainFileName.'mem';
        $temp_file         = $temp_dir . DIRECTORY_SEPARATOR . $mainFileName.'php';
        $temp_skipif       = $temp_dir . DIRECTORY_SEPARATOR . $mainFileName.'skip.php';
        $temp_clean        = $temp_dir . DIRECTORY_SEPARATOR . $mainFileName.'clean.php';
        $tmp_post          = $temp_dir . DIRECTORY_SEPARATOR . uniqid('phpt.');

        // unlink old test results
        @unlink($diff_filename);
        @unlink($log_filename);
        @unlink($exp_filename);
        @unlink($output_filename);
        @unlink($memcheck_filename);
        @unlink($temp_file);
        @unlink($temp_skipif);
        @unlink($tmp_post);
        @unlink($temp_clean);
    }

    function _runSkipIf($section_text, $temp_skipif, $tested, $ini_settings)
    {
        $info = '';
        $warn = false;
        if (array_key_exists('SKIPIF', $section_text) &amp;&amp; trim($section_text['SKIPIF'])) {
            $this-&gt;save_text($temp_skipif, $section_text['SKIPIF']);
            $output = $this-&gt;system_with_timeout(&quot;$this-&gt;_php$ini_settings -f \&quot;$temp_skipif\&quot;&quot;);
            $output = $output[1];
            $loutput = ltrim($output);
            unlink($temp_skipif);
            if (!strncasecmp('skip', $loutput, 4)) {
                $skipreason = &quot;SKIP $tested&quot;;
                if (preg_match('/^\s*skip\s*(.+)\s*/i', $output, $m)) {
                    $skipreason .= '(reason: ' . $m[1] . ')';
                }
                if (!isset($this-&gt;_options['quiet'])) {
                    $this-&gt;_logger-&gt;log(0, $skipreason);
                }
                if (isset($this-&gt;_options['tapoutput'])) {
                    return array('ok', ' # skip ' . $reason);
                }
                return 'SKIPPED';
            }

            if (!strncasecmp('info', $loutput, 4)
                &amp;&amp; preg_match('/^\s*info\s*(.+)\s*/i', $output, $m)) {
                $info = &quot; (info: $m[1])&quot;;
            }

            if (!strncasecmp('warn', $loutput, 4)
                &amp;&amp; preg_match('/^\s*warn\s*(.+)\s*/i', $output, $m)) {
                $warn = true; /* only if there is a reason */
                $info = &quot; (warn: $m[1])&quot;;
            }
        }

        return array('warn' =&gt; $warn, 'info' =&gt; $info);
    }

    function _stripHeadersCGI($output)
    {
        $this-&gt;headers = array();
        if (!empty($this-&gt;_options['cgi']) &amp;&amp;
              $this-&gt;_php == $this-&gt;_options['cgi'] &amp;&amp;
              preg_match(&quot;/^(.*?)(?:\n\n(.*)|\\z)/s&quot;, $output, $match)) {
            $output = isset($match[2]) ? trim($match[2]) : '';
            $this-&gt;_headers = $this-&gt;_processHeaders($match[1]);
        }

        return $output;
    }

    /**
     * Return an array that can be used with array_diff() to compare headers
     *
     * @param string $text
     */
    function _processHeaders($text)
    {
        $headers = array();
        $rh = preg_split(&quot;/[\n\r]+/&quot;, $text);
        foreach ($rh as $line) {
            if (strpos($line, ':')!== false) {
                $line = explode(':', $line, 2);
                $headers[trim($line[0])] = trim($line[1]);
            }
        }
        return $headers;
    }

    function _readFile($file)
    {
        // Load the sections of the test file.
        $section_text = array(
            'TEST'   =&gt; '(unnamed test)',
            'SKIPIF' =&gt; '',
            'GET'    =&gt; '',
            'COOKIE' =&gt; '',
            'POST'   =&gt; '',
            'ARGS'   =&gt; '',
            'INI'    =&gt; '',
            'CLEAN'  =&gt; '',
        );

        if (!is_file($file) || !$fp = fopen($file, &quot;r&quot;)) {
            return PEAR::raiseError(&quot;Cannot open test file: $file&quot;);
        }

        $section = '';
        while (!feof($fp)) {
            $line = fgets($fp);

            // Match the beginning of a section.
            if (preg_match('/^--([_A-Z]+)--/', $line, $r)) {
                $section = $r[1];
                $section_text[$section] = '';
                continue;
            } elseif (empty($section)) {
                fclose($fp);
                return PEAR::raiseError(&quot;Invalid sections formats in test file: $file&quot;);
            }

            // Add to the section text.
            $section_text[$section] .= $line;
        }
        fclose($fp);

        return $section_text;
    }

    function _writeLog($logname, $data)
    {
        if (!$log = fopen($logname, 'w')) {
            return PEAR::raiseError(&quot;Cannot create test log - $logname&quot;);
        }
        fwrite($log, $data);
        fclose($log);
    }

    function _resetEnv($section_text, $temp_file)
    {
        $env = $_ENV;
        $env['REDIRECT_STATUS'] = '';
        $env['QUERY_STRING']    = '';
        $env['PATH_TRANSLATED'] = '';
        $env['SCRIPT_FILENAME'] = '';
        $env['REQUEST_METHOD']  = '';
        $env['CONTENT_TYPE']    = '';
        $env['CONTENT_LENGTH']  = '';
        if (!empty($section_text['ENV'])) {
            if (strpos($section_text['ENV'], '{PWD}') !== false) {
                $section_text['ENV'] = str_replace('{PWD}', dirname($temp_file), $section_text['ENV']);
            }
            foreach (explode(&quot;\n&quot;, trim($section_text['ENV'])) as $e) {
                $e = explode('=', trim($e), 2);
                if (!empty($e[0]) &amp;&amp; isset($e[1])) {
                    $env[$e[0]] = $e[1];
                }
            }
        }
        if (array_key_exists('GET', $section_text)) {
            $env['QUERY_STRING'] = trim($section_text['GET']);
        } else {
            $env['QUERY_STRING'] = '';
        }
        if (array_key_exists('COOKIE', $section_text)) {
            $env['HTTP_COOKIE'] = trim($section_text['COOKIE']);
        } else {
            $env['HTTP_COOKIE'] = '';
        }
        $env['REDIRECT_STATUS'] = '1';
        $env['PATH_TRANSLATED'] = $temp_file;
        $env['SCRIPT_FILENAME'] = $temp_file;

        return $env;
    }

    function _processUpload($section_text, $file)
    {
        if (array_key_exists('UPLOAD', $section_text) &amp;&amp; !empty($section_text['UPLOAD'])) {
            $upload_files = trim($section_text['UPLOAD']);
            $upload_files = explode(&quot;\n&quot;, $upload_files);

            $request = &quot;Content-Type: multipart/form-data; boundary=---------------------------20896060251896012921717172737\n&quot; .
                       &quot;-----------------------------20896060251896012921717172737\n&quot;;
            foreach ($upload_files as $fileinfo) {
                $fileinfo = explode('=', $fileinfo);
                if (count($fileinfo) != 2) {
                    return PEAR::raiseError(&quot;Invalid UPLOAD section in test file: $file&quot;);
                }
                if (!realpath(dirname($file) . '/' . $fileinfo[1])) {
                    return PEAR::raiseError(&quot;File for upload does not exist: $fileinfo[1] &quot; .
                        &quot;in test file: $file&quot;);
                }
                $file_contents = file_get_contents(dirname($file) . '/' . $fileinfo[1]);
                $fileinfo[1] = basename($fileinfo[1]);
                $request .= &quot;Content-Disposition: form-data; name=\&quot;$fileinfo[0]\&quot;; filename=\&quot;$fileinfo[1]\&quot;\n&quot;;
                $request .= &quot;Content-Type: text/plain\n\n&quot;;
                $request .= $file_contents . &quot;\n&quot; .
                    &quot;-----------------------------20896060251896012921717172737\n&quot;;
            }

            if (array_key_exists('POST', $section_text) &amp;&amp; !empty($section_text['POST'])) {
                // encode POST raw
                $post = trim($section_text['POST']);
                $post = explode('&amp;', $post);
                foreach ($post as $i =&gt; $post_info) {
                    $post_info = explode('=', $post_info);
                    if (count($post_info) != 2) {
                        return PEAR::raiseError(&quot;Invalid POST data in test file: $file&quot;);
                    }
                    $post_info[0] = rawurldecode($post_info[0]);
                    $post_info[1] = rawurldecode($post_info[1]);
                    $post[$i] = $post_info;
                }
                foreach ($post as $post_info) {
                    $request .= &quot;Content-Disposition: form-data; name=\&quot;$post_info[0]\&quot;\n\n&quot;;
                    $request .= $post_info[1] . &quot;\n&quot; .
                        &quot;-----------------------------20896060251896012921717172737\n&quot;;
                }
                unset($section_text['POST']);
            }
            $section_text['POST_RAW'] = $request;
        }

        return $section_text;
    }

    function _testCleanup($section_text, $temp_clean)
    {
        if ($section_text['CLEAN']) {
            $this-&gt;_restorePHPBinary();

            // perform test cleanup
            $this-&gt;save_text($temp_clean, $section_text['CLEAN']);
            $output = $this-&gt;system_with_timeout(&quot;$this-&gt;_php $temp_clean  2&gt;&amp;1&quot;);
            if (strlen($output[1])) {
                echo &quot;BORKED --CLEAN-- section! output:\n&quot;, $output[1];
            }
            if (file_exists($temp_clean)) {
                unlink($temp_clean);
            }
        }
    }

    function _savePHPBinary()
    {
        $this-&gt;_savephp = $this-&gt;_php;
    }

    function _restorePHPBinary()
    {
        if (isset($this-&gt;_savephp))
        {
            $this-&gt;_php = $this-&gt;_savephp;
            unset($this-&gt;_savephp);
        }
    }
}
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fopt%2Falt%2Fphp71%2Fusr%2Fshare%2Fpear%2FPEAR'>Back to Directory</a>