RunTest.php File Reference

Go to the source code of this file.

Data Structures
class	PEAR_RunTest

Namespaces
namespace	PEAR

Functions
	_cleanupOldFiles ($file)
	_processHeaders ($text)
	_processUpload ($section_text, $file)
	_readFile ($file)
	_resetEnv ($section_text, $temp_file)
	_restorePHPBinary ()
	_runSkipIf ($section_text, $temp_skipif, $tested, $ini_settings)
	_savePHPBinary ()
	_stripHeadersCGI ($output)
	_testCleanup ($section_text, $temp_clean)
	_writeLog ($logname, $data)
	generate_diff ($wanted, $output, $rvalue, $wanted_re)
	save_text ($filename, $text)

Variables
const	DETAILED 1

Function Documentation

_cleanupOldFiles()

_cleanupOldFiles

(

$file

)

Definition at line 715 of file RunTest.php.

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

Referenced by PEAR_RunTest\run().

Here is the caller graph for this function:

_processHeaders()

_processHeaders

(

$text

)

Return an array that can be used with array_diff() to compare headers

Parameters

string

$text

Definition at line 798 of file RunTest.php.

    {
        $headers = array();
        $rh = preg_split("/[\n\r]+/", $text);
        foreach ($rh as $line) {
            if (strpos($line, ':')!== false) {
                $line = explode(':', $line, 2);
                $headers[trim($line[0])] = trim($line[1]);
            }
        }
        return $headers;
    }

Referenced by _stripHeadersCGI(), and PEAR_RunTest\run().

Here is the caller graph for this function:

_processUpload()

_processUpload	(		$section_text,
			$file )

Definition at line 898 of file RunTest.php.

    {
        if (array_key_exists('UPLOAD', $section_text) && !empty($section_text['UPLOAD'])) {
            $upload_files = trim($section_text['UPLOAD']);
            $upload_files = explode("\n", $upload_files);
 
            $request = "Content-Type: multipart/form-data; boundary=---------------------------20896060251896012921717172737\n" .
                       "-----------------------------20896060251896012921717172737\n";
            foreach ($upload_files as $fileinfo) {
                $fileinfo = explode('=', $fileinfo);
                if (count($fileinfo) != 2) {
                    return PEAR::raiseError("Invalid UPLOAD section in test file: $file");
                }
                if (!realpath(dirname($file) . '/' . $fileinfo[1])) {
                    return PEAR::raiseError("File for upload does not exist: $fileinfo[1] " .
                        "in test file: $file");
                }
                $file_contents = file_get_contents(dirname($file) . '/' . $fileinfo[1]);
                $fileinfo[1] = basename($fileinfo[1]);
                $request .= "Content-Disposition: form-data; name=\"$fileinfo[0]\"; filename=\"$fileinfo[1]\"\n";
                $request .= "Content-Type: text/plain\n\n";
                $request .= $file_contents . "\n" .
                    "-----------------------------20896060251896012921717172737\n";
            }
 
            if (array_key_exists('POST', $section_text) && !empty($section_text['POST'])) {
                // encode POST raw
                $post = trim($section_text['POST']);
                $post = explode('&', $post);
                foreach ($post as $i => $post_info) {
                    $post_info = explode('=', $post_info);
                    if (count($post_info) != 2) {
                        return PEAR::raiseError("Invalid POST data in test file: $file");
                    }
                    $post_info[0] = rawurldecode($post_info[0]);
                    $post_info[1] = rawurldecode($post_info[1]);
                    $post[$i] = $post_info;
                }
                foreach ($post as $post_info) {
                    $request .= "Content-Disposition: form-data; name=\"$post_info[0]\"\n\n";
                    $request .= $post_info[1] . "\n" .
                        "-----------------------------20896060251896012921717172737\n";
                }
                unset($section_text['POST']);
            }
            $section_text['POST_RAW'] = $request;
        }
 
        return $section_text;
    }

Referenced by PEAR_RunTest\run().

Here is the caller graph for this function:

_readFile()

_readFile

(

$file

)

Definition at line 811 of file RunTest.php.

    {
        // Load the sections of the test file.
        $section_text = array(
            'TEST'   => '(unnamed test)',
            'SKIPIF' => '',
            'GET'    => '',
            'COOKIE' => '',
            'POST'   => '',
            'ARGS'   => '',
            'INI'    => '',
            'CLEAN'  => '',
        );
 
        if (!is_file($file) || !$fp = fopen($file, "r")) {
            return PEAR::raiseError("Cannot open test file: $file");
        }
 
        $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("Invalid sections formats in test file: $file");
            }
 
            // Add to the section text.
            $section_text[$section] .= $line;
        }
        fclose($fp);
 
        return $section_text;
    }

Referenced by PEAR_RunTest\run().

Here is the caller graph for this function:

_resetEnv()

_resetEnv	(		$section_text,
			$temp_file )

Definition at line 860 of file RunTest.php.

    {
        $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("\n", trim($section_text['ENV'])) as $e) {
                $e = explode('=', trim($e), 2);
                if (!empty($e[0]) && 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;
    }

Referenced by PEAR_RunTest\run().

Here is the caller graph for this function:

_restorePHPBinary()

_restorePHPBinary

(

)

Definition at line 971 of file RunTest.php.

    {
        if (isset($this->_savephp))
        {
            $this->_php = $this->_savephp;
            unset($this->_savephp);
        }
    }

References PEAR_RunTest\$_savephp.

Referenced by _testCleanup(), and PEAR_RunTest\run().

Here is the caller graph for this function:

_runSkipIf()

_runSkipIf	(		$section_text,
			$temp_skipif,
			$tested,
			$ini_settings )

Definition at line 741 of file RunTest.php.

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

References save_text(), and PEAR_RunTest\system_with_timeout().

Referenced by PEAR_RunTest\run().

Here is the call graph for this function:

Here is the caller graph for this function:

_savePHPBinary()

_savePHPBinary

(

)

Definition at line 966 of file RunTest.php.

    {
        $this->_savephp = $this->_php;
    }

References PEAR_RunTest\$_php.

Referenced by PEAR_RunTest\run().

Here is the caller graph for this function:

_stripHeadersCGI()

_stripHeadersCGI

(

$output

)

Definition at line 780 of file RunTest.php.

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

References _processHeaders().

Referenced by PEAR_RunTest\run().

Here is the call graph for this function:

Here is the caller graph for this function:

_testCleanup()

_testCleanup	(		$section_text,
			$temp_clean )

Definition at line 949 of file RunTest.php.

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

References _restorePHPBinary(), save_text(), and PEAR_RunTest\system_with_timeout().

Referenced by PEAR_RunTest\run().

Here is the call graph for this function:

Here is the caller graph for this function:

_writeLog()

_writeLog	(		$logname,
			$data )

Definition at line 851 of file RunTest.php.

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

Referenced by PEAR_RunTest\run().

Here is the caller graph for this function:

generate_diff()

generate_diff	(		$wanted,
			$output,
			$rvalue,
			$wanted_re )

Definition at line 674 of file RunTest.php.

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

Referenced by PEAR_RunTest\run().

Here is the caller graph for this function:

save_text()

save_text	(		$filename,
			$text )

Definition at line 701 of file RunTest.php.

    {
        if (!$fp = fopen($filename, 'w')) {
            return PEAR::raiseError("Cannot open file '" . $filename . "' (save_text)");
        }
        fwrite($fp, $text);
        fclose($fp);
    if (1 < DETAILED) echo "
FILE $filename {{{
$text
}}}
";
    }

References DETAILED.

Referenced by _runSkipIf(), _testCleanup(), and PEAR_RunTest\run().

Here is the caller graph for this function:

Variable Documentation

DETAILED

const DETAILED 1

for error handling

Definition at line 23 of file RunTest.php.

Referenced by save_text().