Date: Wednesday, February 1, 2006 @ 12:43:04
Author: csaba
Path: /cvsroot/carob/libmysequoia/test-suite/php4
Added: mysql/001.phpt (1.1) mysql/002.phpt (1.1) mysql/003.phpt (1.1)
mysql/connect.inc (1.1) mysql/skipif.inc (1.1) run-tests.php
(1.1)
Adding php4 v4.3.9 testsuite.
-------------------+
mysql/001.phpt | 30 +
mysql/002.phpt | 53 +++
mysql/003.phpt | 56 +++
mysql/connect.inc | 10
mysql/skipif.inc | 8
run-tests.php | 888 ++++++++++++++++++++++++++++++++++++++++++++++++++++
6 files changed, 1045 insertions(+)
Index: libmysequoia/test-suite/php4/mysql/001.phpt
diff -u /dev/null libmysequoia/test-suite/php4/mysql/001.phpt:1.1
--- /dev/null Wed Feb 1 12:43:04 2006
+++ libmysequoia/test-suite/php4/mysql/001.phpt Wed Feb 1 12:43:04 2006
@@ -0,0 +1,30 @@
+--TEST--
+mysql connect
+--SKIPIF--
+<?php include 'skipif.inc'; ?>
+--FILE--
+<?php
+
+include 'connect.inc';
+$test = '';
+
+/*** test mysql_connect 127.0.0.1 ***/
+$db = mysql_connect('127.0.0.1', $user, $passwd);
+$test .= ($db) ? '1' : '0';
+mysql_close($db);
+
+/*** test mysql_connect localhost ***/
+$db = mysql_connect($host, $user, $passwd);
+$test .= ($db) ? '1' : '0';
+mysql_close($db);
+
+/*** test mysql_connect localhost:port ***/
+$db = mysql_connect("{$host}:3306", $user, $passwd, '');
+$test .= ($db) ? '1' : '0';
+mysql_close($db);
+
+var_dump($test);
+
+?>
+--EXPECT--
+string(3) "111"
Index: libmysequoia/test-suite/php4/mysql/002.phpt
diff -u /dev/null libmysequoia/test-suite/php4/mysql/002.phpt:1.1
--- /dev/null Wed Feb 1 12:43:04 2006
+++ libmysequoia/test-suite/php4/mysql/002.phpt Wed Feb 1 12:43:04 2006
@@ -0,0 +1,53 @@
+--TEST--
+mysql_fetch_array
+--SKIPIF--
+<?php include 'skipif.inc'; ?>
+--FILE--
+<?php
+
+include 'connect.inc';
+
+$db = mysql_connect($host, $user, $passwd);
+
+var_dump($db);
+
+var_dump(mysql_select_db('test'));
+
+var_dump(mysql_query('DROP TABLE IF EXISTS test'));
+
+var_dump(mysql_query('CREATE TABLE test(col1 int PRIMARY KEY, col2
varchar(50), col3 char(5))'));
+
+var_dump(mysql_query("INSERT INTO test(col1, col2, col3) VALUES(1, 'foo',
'bar'),(2, 'foo', 'bar')"));
+
+var_dump($res = mysql_query('SELECT col1, col2, col3 FROM test ORDER BY col1
ASC'));
+
+while ($data = mysql_fetch_array($res, MYSQL_ASSOC)) {
+ var_dump($data);
+}
+
+mysql_close($db);
+
+?>
+--EXPECTF--
+resource(%d) of type (mysql link)
+bool(true)
+bool(true)
+bool(true)
+bool(true)
+resource(%d) of type (mysql result)
+array(3) {
+ ["col1"]=>
+ string(1) "1"
+ ["col2"]=>
+ string(3) "foo"
+ ["col3"]=>
+ string(3) "bar"
+}
+array(3) {
+ ["col1"]=>
+ string(1) "2"
+ ["col2"]=>
+ string(3) "foo"
+ ["col3"]=>
+ string(3) "bar"
+}
Index: libmysequoia/test-suite/php4/mysql/003.phpt
diff -u /dev/null libmysequoia/test-suite/php4/mysql/003.phpt:1.1
--- /dev/null Wed Feb 1 12:43:04 2006
+++ libmysequoia/test-suite/php4/mysql/003.phpt Wed Feb 1 12:43:04 2006
@@ -0,0 +1,56 @@
+--TEST--
+mysql_fetch_object
+--SKIPIF--
+<?php include 'skipif.inc'; ?>
+--FILE--
+<?php
+
+include 'connect.inc';
+
+$data = array(
+ "one",
+ "two",
+ "three"
+ );
+
+$db = mysql_connect($host, $user, $passwd);
+
+mysql_select_db("test");
+
+mysql_query('DROP TABLE IF EXISTS test');
+
+mysql_query("CREATE TABLE test(a varchar(10))");
+
+foreach ($data as $str) {
+ mysql_query("INSERT INTO test VALUES('$str')");
+ var_dump($str);
+}
+
+echo "==stdClass==\n";
+$res = mysql_query("SELECT a FROM test");
+while ($obj = mysql_fetch_object($res)) {
+ var_dump($obj);
+}
+
+mysql_close($db);
+
+?>
+==DONE==
+--EXPECTF--
+string(3) "one"
+string(3) "two"
+string(5) "three"
+==stdClass==
+object(stdClass)(1) {
+ ["a"]=>
+ string(3) "one"
+}
+object(stdClass)(1) {
+ ["a"]=>
+ string(3) "two"
+}
+object(stdClass)(1) {
+ ["a"]=>
+ string(5) "three"
+}
+==DONE==
Index: libmysequoia/test-suite/php4/mysql/connect.inc
diff -u /dev/null libmysequoia/test-suite/php4/mysql/connect.inc:1.1
--- /dev/null Wed Feb 1 12:43:04 2006
+++ libmysequoia/test-suite/php4/mysql/connect.inc Wed Feb 1 12:43:04 2006
@@ -0,0 +1,10 @@
+<?php
+
+ /* default values are localhost, root and empty password
+ Change the values if you use another configuration */
+
+ $host = "localhost";
+ $user = "root";
+ $passwd = "rootpass";
+
+?>
Index: libmysequoia/test-suite/php4/mysql/skipif.inc
diff -u /dev/null libmysequoia/test-suite/php4/mysql/skipif.inc:1.1
--- /dev/null Wed Feb 1 12:43:04 2006
+++ libmysequoia/test-suite/php4/mysql/skipif.inc Wed Feb 1 12:43:04 2006
@@ -0,0 +1,8 @@
+<?php
+
+include 'connect.inc';
+$link = @mysql_connect($host, $user, $passwd);
+if (!$link) die('skip cannot connect');
+mysql_close($link);
+
+?>
\ No newline at end of file
Index: libmysequoia/test-suite/php4/run-tests.php
diff -u /dev/null libmysequoia/test-suite/php4/run-tests.php:1.1
--- /dev/null Wed Feb 1 12:43:04 2006
+++ libmysequoia/test-suite/php4/run-tests.php Wed Feb 1 12:43:04 2006
@@ -0,0 +1,888 @@
+<?php
+/*
+ +----------------------------------------------------------------------+
+ | PHP Version 4 |
+ +----------------------------------------------------------------------+
+ | Copyright (c) 1997-2002 The PHP Group |
+ +----------------------------------------------------------------------+
+ | This source file is subject to version 2.02 of the PHP license, |
+ | that is bundled with this package in the file LICENSE, and is |
+ | available at through the world-wide-web at |
+ | http://www.php.net/license/2_02.txt. |
+ | If you did not receive a copy of the PHP license and are unable to |
+ | obtain it through the world-wide-web, please send a note to |
+ | [EMAIL PROTECTED] so we can mail you a copy immediately. |
+ +----------------------------------------------------------------------+
+ | Authors: Ilia Alshanetsky <[EMAIL PROTECTED]> |
+ | Preston L. Bannister <[EMAIL PROTECTED]> |
+ | Marcus Boerger <[EMAIL PROTECTED]> |
+ | Derick Rethans <[EMAIL PROTECTED]> |
+ | Sander Roobol <[EMAIL PROTECTED]> |
+ | (based on version by: Stig Bakken <[EMAIL PROTECTED]>)
|
+ | (based on the PHP 3 test framework by Rasmus Lerdorf) |
+ +----------------------------------------------------------------------+
+ */
+
+/*
+ Require exact specification of PHP executable to test (no guessing!).
+ Die if any internal errors encountered in test script.
+ Regularized output for simpler post-processing of output.
+ Optionally output error lines indicating the failing test source and log
+ for direct jump with MSVC or Emacs.
+*/
+
+/*
+ * TODO:
+ * - do not test PEAR components if base class and/or component class cannot
be instanciated
+ */
+
+
+/* Sanity check to ensure that pcre extension needed by this script is
avaliable.
+ * In the event it is not, print a nice error message indicating that this
script will
+ * not run without it.
+ */
+
+if (!extension_loaded("pcre")) {
+ echo <<<NO_PCRE_ERROR
+
++-----------------------------------------------------------+
+| ! ERROR ! |
+| The test-suite requires that you have pcre extension |
+| enabled. To enable this extension either compile your PHP |
+| with --with-pcre-regex or if you've compiled pcre as a |
+| shared module load it via php.ini. |
++-----------------------------------------------------------+
+
+NO_PCRE_ERROR;
+exit;
+}
+
+// change into the PHP source directory.
+
+if (getenv('TEST_PHP_SRCDIR')) {
+ @chdir(getenv('TEST_PHP_SRCDIR'));
+}
+
+$cwd = getcwd();
+set_time_limit(0);
+
+// delete as much output buffers as possible
+while(@ob_end_clean());
+if (ob_get_level()) echo "Not all buffers were deleted.\n";
+
+error_reporting(E_ALL);
+ini_set('magic_quotes_runtime',0); // this would break tests by modifying
EXPECT sections
+
+if (ini_get('safe_mode')) {
+ echo <<< SAFE_MODE_WARNING
+
++-----------------------------------------------------------+
+| ! WARNING ! |
+| You are running the test-suite with "safe_mode" ENABLED ! |
+| |
+| Chances are high that no test will work at all, |
+| depending on how you configured "safe_mode" ! |
++-----------------------------------------------------------+
+
+
+SAFE_MODE_WARNING;
+}
+
+// Don't ever guess at the PHP executable location.
+// Require the explicit specification.
+// Otherwise we could end up testing the wrong file!
+
+if (getenv('TEST_PHP_EXECUTABLE')) {
+ $php = getenv('TEST_PHP_EXECUTABLE');
+ if ($php=='auto') {
+ $php = $cwd.'/sapi/cli/php';
+ putenv("TEST_PHP_EXECUTABLE=$php");
+ }
+}
+if (empty($php) || !file_exists($php)) {
+ error("environment variable TEST_PHP_EXECUTABLE must be set to specify
PHP executable!");
+}
+
+if (getenv('TEST_PHP_LOG_FORMAT')) {
+ $log_format = strtoupper(getenv('TEST_PHP_LOG_FORMAT'));
+} else {
+ $log_format = 'LEOD';
+}
+
+if (function_exists('is_executable') && [EMAIL PROTECTED]($php)) {
+ error("invalid PHP executable specified by TEST_PHP_EXECUTABLE = " .
$php);
+}
+
+// Don't scan system ini files, this may load in extensions from the
+// system /usr/lib/php4 (which may be broken, or an old version, or...)
+$php .= " -n ";
+
+// Check whether a detailed log is wanted.
+if (getenv('TEST_PHP_DETAILED')) {
+ define('DETAILED', getenv('TEST_PHP_DETAILED'));
+} else {
+ define('DETAILED', 0);
+}
+
+// Check whether user test dirs are requested.
+if (getenv('TEST_PHP_USER')) {
+ $user_tests = explode (',', getenv('TEST_PHP_USER'));
+} else {
+ $user_tests = array();
+}
+
+// Get info from php
+$info_file = realpath(dirname(__FILE__)) . '/run-test-info.php';
[EMAIL PROTECTED]($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);
+$ini_overwrites = array(
+ 'mbstring.script_encoding=pass',
+ 'output_handler=',
+ 'zlib.output_compression=Off',
+ 'open_basedir=',
+ 'safe_mode=0',
+ 'disable_functions=',
+ 'output_buffering=Off',
+ 'error_reporting=2047',
+ 'display_errors=1',
+ 'log_errors=0',
+ 'html_errors=0',
+ 'track_errors=1',
+ 'report_memleaks=1',
+ 'docref_root=/phpmanual/',
+ 'docref_ext=.html',
+ 'error_prepend_string=',
+ 'error_append_string=',
+ 'auto_prepend_file=',
+ 'auto_append_file=',
+ 'magic_quotes_runtime=0',
+ 'session.auto_start=0'
+ );
+$info_params = array();
+settings2array($ini_overwrites,$info_params);
+settings2params($info_params);
+$php_info = `$php $info_params $info_file`;
[EMAIL PROTECTED]($info_file);
+define('TESTED_PHP_VERSION', `$php -r 'echo PHP_VERSION;'`);
+
+// Write test context information.
+
+echo "
+=====================================================================
+CWD : $cwd
+PHP : $php $php_info
+Extra dirs : ";
+foreach ($user_tests as $test_dir) {
+ echo "{$test_dir}\n ";
+}
+echo "
+=====================================================================
+";
+
+// Determine the tests to be run.
+
+$test_files = array();
+$test_results = array();
+$GLOBALS['__PHP_FAILED_TESTS__'] = array();
+
+// If parameters given assume they represent selected tests to run.
+if (isset($argc) && $argc > 1) {
+ for ($i=1; $i<$argc; $i++) {
+ $testfile = realpath($argv[$i]);
+ if (is_dir($testfile)) {
+ find_files($testfile);
+ } else if (preg_match("/\.phpt$/", $testfile)) {
+ $test_files[] = $testfile;
+ }
+ }
+ $test_files = array_unique($test_files);
+
+ // Run selected tests.
+ if (count($test_files)) {
+ usort($test_files, "test_sort");
+ echo "Running selected tests.\n";
+ foreach($test_files AS $name) {
+ $test_results[$name] = run_test($php,$name);
+ }
+ if (getenv('REPORT_EXIT_STATUS') == 1 and ereg('FAILED( |$)',
implode(' ', $test_results))) {
+ exit(1);
+ }
+ exit(0);
+ }
+}
+
+// Compile a list of all test files (*.phpt).
+$test_files = array();
+$exts_to_test = get_loaded_extensions();
+$exts_tested = count($exts_to_test);
+$exts_skipped = 0;
+$ignored_by_ext = 0;
+sort($exts_to_test);
+$test_dirs = array('tests', 'pear', 'ext');
+
+foreach ($test_dirs as $dir) {
+ find_files("{$cwd}/{$dir}", ($dir == 'ext'));
+}
+
+foreach ($user_tests as $dir) {
+ find_files($dir, ($dir == 'ext'));
+}
+
+function find_files($dir,$is_ext_dir=FALSE,$ignore=FALSE)
+{
+ 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('.',
'..', 'CVS'))) {
+ $skip_ext = ($is_ext_dir && !in_array($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);
+}
+
+function test_sort($a, $b) {
+ global $cwd;
+
+ $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();
+
+echo "TIME START " . date('Y-m-d H:i:s', $start_time) . "
+=====================================================================
+";
+
+foreach ($test_files as $name) {
+ $test_results[$name] = run_test($php,$name);
+}
+
+$end_time = time();
+
+// Summarize results
+
+if (0 == count($test_results)) {
+ echo "No tests were run.\n";
+ return;
+}
+
+$n_total = count($test_results);
+$n_total += $ignored_by_ext;
+
+$sum_results = array('PASSED'=>0, 'WARNED'=>0, 'SKIPPED'=>0, 'FAILED'=>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;
+}
+
+echo "
+=====================================================================
+TIME END " . date('Y-m-d H:i:s', $end_time);
+
+$summary = "
+=====================================================================
+TEST RESULT SUMMARY
+---------------------------------------------------------------------
+Exts skipped : " . sprintf("%4d",$exts_skipped) . "
+Exts tested : " . sprintf("%4d",$exts_tested) . "
+---------------------------------------------------------------------
+Number of tests : " . sprintf("%4d",$n_total) . "
+Tests skipped : " . sprintf("%4d
(%2.1f%%)",$sum_results['SKIPPED'],$percent_results['SKIPPED']) . "
+Tests warned : " . sprintf("%4d
(%2.1f%%)",$sum_results['WARNED'],$percent_results['WARNED']) . "
+Tests failed : " . sprintf("%4d
(%2.1f%%)",$sum_results['FAILED'],$percent_results['FAILED']) . "
+Tests passed : " . sprintf("%4d
(%2.1f%%)",$sum_results['PASSED'],$percent_results['PASSED']) . "
+---------------------------------------------------------------------
+Time taken : " . sprintf("%4d seconds", $end_time - $start_time) . "
+=====================================================================
+";
+echo $summary;
+
+$failed_test_summary = '';
+if (count($GLOBALS['__PHP_FAILED_TESTS__'])) {
+ $failed_test_summary .= "
+=====================================================================
+FAILED TEST SUMMARY
+---------------------------------------------------------------------
+";
+ foreach ($GLOBALS['__PHP_FAILED_TESTS__'] 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')) {
+ echo $failed_test_summary;
+}
+
+define('PHP_QA_EMAIL', '[EMAIL PROTECTED]');
+define('QA_SUBMISSION_PAGE', 'http://qa.php.net/buildtest-process.php');
+
+/* We got failed Tests, offer the user to send and e-mail to QA team, unless
NO_INTERACTION is set */
+if (!getenv('NO_INTERACTION')) {
+ $fp = fopen("php://stdin", "r+");
+ echo "\nPlease allow this report to be sent to the PHP QA\nteam. This
will give us a better understanding in how\n";
+ echo "PHP's test cases are doing. Note that the report will
include\ndetailed configuration data about your system\n";
+ echo "so if you are worried about exposing sensitive data,\nsave this
to a file first and remove any sensitive data\n";
+ echo "and then send this file to [EMAIL PROTECTED]";
+ echo "(choose \"s\" to just save the results to a file)? [Yns]: ";
+ flush();
+ $user_input = fgets($fp, 10);
+ $just_save_results = (strtolower($user_input[0]) == 's');
+
+ 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
+ */
+
+ /* 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(You address
will be mangled so that it will not go out on any\nmailinglist in plain text):
";
+ flush();
+ $fp = fopen("php://stdin", "r+");
+ $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 .= $summary . "\n";
+
+ if ($sum_results['FAILED']) {
+ foreach ($GLOBALS['__PHP_FAILED_TESTS__'] as
$test_info) {
+ $failed_tests_data .= $sep . $test_info['name']
. $test_info['info'];
+ $failed_tests_data .= $sep .
file_get_contents(realpath($test_info['output']));
+ $failed_tests_data .= $sep .
file_get_contents(realpath($test_info['diff']));
+ $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 = $automake = $autoconf = $libtool = $compiler = 'N/A';
+
+ if (substr(PHP_OS, 0, 3) != "WIN") {
+ $automake = shell_exec('automake --version');
+ $autoconf = shell_exec('autoconf --version');
+ /* Always use the generated libtool - Mac OSX uses
'glibtool' */
+ $libtool = shell_exec('./libtool --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");
+ }
+ $failed_tests_data .= "Automake:\n$automake\n";
+ $failed_tests_data .= "Autoconf:\n$autoconf\n";
+ $failed_tests_data .= "Libtool:\n$libtool\n";
+ $failed_tests_data .= "Compiler:\n$compiler\n";
+ $failed_tests_data .= "Bison:\n". @shell_exec('bison
--version'). "\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.' -dhtml_errors=0 -i');
+
+ $compression = 0;
+
+ if ($just_save_results || !mail_qa_team($failed_tests_data,
$compression, $status)) {
+ $output_file = 'php_test_results_' . date('Ymd') . (
$compression ? '.txt.gz' : '.txt' );
+ $fp = fopen($output_file, "w");
+ fwrite($fp, $failed_tests_data);
+ fclose($fp);
+
+ 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);
+ }
+ }
+}
+
+if (getenv('REPORT_EXIT_STATUS') == 1 and $sum_results['FAILED']) {
+ exit(1);
+}
+
+//
+// Send Email to QA Team
+//
+
+function mail_qa_team($data, $compression, $status = FALSE)
+{
+ $url_bits = parse_url(QA_SUBMISSION_PAGE);
+ if (empty($url_bits['port'])) $url_bits['port'] = 80;
+
+ $data = "php_test_data=" .
urlencode(base64_encode(preg_replace("/[\\x00]/", "[0x0]", $data)));
+ $data_length = strlen($data);
+
+ $fs = fsockopen($url_bits['host'], $url_bits['port'], $errno, $errstr,
10);
+ if (!$fs) {
+ return FALSE;
+ }
+
+ $php_version = urlencode(TESTED_PHP_VERSION);
+
+ echo "\nPosting to {$url_bits['host']} {$url_bits['path']}\n";
+ fwrite($fs, "POST
".$url_bits['path']."?status=$status&version=$php_version HTTP/1.1\r\n");
+ fwrite($fs, "Host: ".$url_bits['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;
+}
+
+
+//
+// Write the given text to a temporary file, and return the filename.
+//
+
+function save_text($filename,$text)
+{
+ $fp = @fopen($filename,'w') or error("Cannot open file '" . $filename .
"' (save_text)");
+ fwrite($fp,$text);
+ fclose($fp);
+ if (1 < DETAILED) echo "
+FILE $filename {{{
+$text
+}}}
+";
+}
+
+//
+// Write an error in a format recognizable to Emacs or MSVC.
+//
+
+function error_report($testname,$logname,$tested)
+{
+ $testname = realpath($testname);
+ $logname = realpath($logname);
+ switch (strtoupper(getenv('TEST_PHP_ERROR_STYLE'))) {
+ case 'MSVC':
+ echo $testname . "(1) : $tested\n";
+ echo $logname . "(1) : $tested\n";
+ break;
+ case 'EMACS':
+ echo $testname . ":1: $tested\n";
+ echo $logname . ":1: $tested\n";
+ break;
+ }
+}
+
+//
+// Run an individual test case.
+//
+
+function run_test($php,$file)
+{
+ global $log_format, $info_params, $ini_overwrites;
+
+ if (DETAILED) echo "
+=================
+TEST $file
+";
+
+ // Load the sections of the test file.
+ $section_text = array(
+ 'TEST' => '(unnamed test)',
+ 'SKIPIF' => '',
+ 'GET' => '',
+ 'ARGS' => '',
+ );
+
+ $fp = @fopen($file, "r") or error("Cannot open test file: $file");
+
+ $section = '';
+ while (!feof($fp)) {
+ $line = fgets($fp);
+
+ // Match the beginning of a section.
+ if (ereg('^--([A-Z]+)--',$line,$r)) {
+ $section = $r[1];
+ $section_text[$section] = '';
+ continue;
+ }
+
+ // Add to the section text.
+ $section_text[$section] .= $line;
+ }
+ fclose($fp);
+
+ /* For GET/POST tests, check if cgi sapi is avaliable and if it is, use
it. */
+ if ((!empty($section_text['GET']) || !empty($section_text['POST']))) {
+ if (file_exists("./sapi/cgi/php")) {
+ $old_php = $php;
+ $php = realpath("./sapi/cgi/php") . ' -C ';
+ }
+ }
+
+ $shortname = str_replace($GLOBALS['cwd'].'/', '', $file);
+ $tested = trim($section_text['TEST'])." [$shortname]";
+
+ $tmp = realpath(dirname($file));
+ $tmp_skipif = $tmp . uniqid('/phpt.');
+ $tmp_file = ereg_replace('\.phpt$','.php',$file);
+ $tmp_post = $tmp . uniqid('/phpt.');
+
+ @unlink($tmp_skipif);
+ @unlink($tmp_file);
+ @unlink($tmp_post);
+
+ // unlink old test results
+ @unlink(ereg_replace('\.phpt$','.diff',$file));
+ @unlink(ereg_replace('\.phpt$','.log',$file));
+ @unlink(ereg_replace('\.phpt$','.exp',$file));
+ @unlink(ereg_replace('\.phpt$','.out',$file));
+
+ // Reset environment from any previous test.
+ putenv("REDIRECT_STATUS=");
+ putenv("QUERY_STRING=");
+ putenv("PATH_TRANSLATED=");
+ putenv("SCRIPT_FILENAME=");
+ putenv("REQUEST_METHOD=");
+ putenv("CONTENT_TYPE=");
+ putenv("CONTENT_LENGTH=");
+
+ // Check if test should be skipped.
+ $info = '';
+ $warn = false;
+ if (array_key_exists('SKIPIF', $section_text)) {
+ if (trim($section_text['SKIPIF'])) {
+ save_text($tmp_skipif, $section_text['SKIPIF']);
+ $extra = substr(PHP_OS, 0, 3) !== "WIN" ?
+ "unset REQUEST_METHOD;": "";
+
+ $output = `$extra $php $info_params -f $tmp_skipif`;
+ @unlink($tmp_skipif);
+ if (eregi("^skip", trim($output))) {
+ echo "SKIP $tested";
+ $reason = (eregi("^skip[[:space:]]*(.+)\$",
trim($output))) ? eregi_replace("^skip[[:space:]]*(.+)\$", "\\1",
trim($output)) : FALSE;
+ if ($reason) {
+ echo " (reason: $reason)\n";
+ } else {
+ echo "\n";
+ }
+ if (isset($old_php)) {
+ $php = $old_php;
+ }
+ return 'SKIPPED';
+ }
+ if (eregi("^info", trim($output))) {
+ $reason = (ereg("^info[[:space:]]*(.+)\$",
trim($output))) ? ereg_replace("^info[[:space:]]*(.+)\$", "\\1", trim($output))
: FALSE;
+ if ($reason) {
+ $info = " (info: $reason)";
+ }
+ }
+ if (eregi("^warn", trim($output))) {
+ $reason = (ereg("^warn[[:space:]]*(.+)\$",
trim($output))) ? ereg_replace("^warn[[:space:]]*(.+)\$", "\\1", trim($output))
: FALSE;
+ if ($reason) {
+ $warn = true; /* only if there is a
reason */
+ $info = " (warn: $reason)";
+ }
+ }
+ }
+ }
+
+ // 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)) {
+ settings2array(preg_split( "/[\n\r]+/", $section_text['INI']),
$ini_settings);
+ }
+ settings2params($ini_settings);
+
+ // We've satisfied the preconditions - run the test!
+ save_text($tmp_file,$section_text['FILE']);
+ if (array_key_exists('GET', $section_text)) {
+ $query_string = trim($section_text['GET']);
+ } else {
+ $query_string = '';
+ }
+
+ putenv("REDIRECT_STATUS=1");
+ putenv("QUERY_STRING=$query_string");
+ putenv("PATH_TRANSLATED=$tmp_file");
+ putenv("SCRIPT_FILENAME=$tmp_file");
+
+ $args = $section_text['ARGS'] ? ' -- '.$section_text['ARGS'] : '';
+
+ if (array_key_exists('POST', $section_text) &&
!empty($section_text['POST'])) {
+
+ $post = trim($section_text['POST']);
+ save_text($tmp_post,$post);
+ $content_length = strlen($post);
+
+ putenv("REQUEST_METHOD=POST");
+ putenv("CONTENT_TYPE=application/x-www-form-urlencoded");
+ putenv("CONTENT_LENGTH=$content_length");
+
+ $cmd = "$php$ini_settings -f \"$tmp_file\" 2>&1 < $tmp_post";
+
+ } else {
+
+ putenv("REQUEST_METHOD=GET");
+ putenv("CONTENT_TYPE=");
+ putenv("CONTENT_LENGTH=");
+
+ $cmd = "$php$ini_settings -f \"$tmp_file\" $args 2>&1";
+ }
+
+ if (DETAILED) echo "
+CONTENT_LENGTH = " . getenv("CONTENT_LENGTH") . "
+CONTENT_TYPE = " . getenv("CONTENT_TYPE") . "
+PATH_TRANSLATED = " . getenv("PATH_TRANSLATED") . "
+QUERY_STRING = " . getenv("QUERY_STRING") . "
+REDIRECT_STATUS = " . getenv("REDIRECT_STATUS") . "
+REQUEST_METHOD = " . getenv("REQUEST_METHOD") . "
+SCRIPT_FILENAME = " . getenv("SCRIPT_FILENAME") . "
+COMMAND $cmd
+";
+
+ $out = `$cmd`;
+
+ @unlink($tmp_post);
+
+ // Does the output match what is expected?
+ $output = trim($out);
+ $output = preg_replace('/\r\n/',"\n",$output);
+
+ $old_php="/usr/bin/php";
+
+ /* when using CGI, strip the headers from the output */
+ if (isset($old_php) && ($pos = strpos($output, "\n\n")) !== FALSE) {
+ $output = substr($output, ($pos + 2));
+ }
+
+ 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/',"\n",$wanted);
+ if (isset($section_text['EXPECTF'])) {
+ $wanted_re = preg_quote($wanted_re, '/');
+ // Stick to basics
+ $wanted_re = str_replace("%s", ".+?", $wanted_re);
//not greedy
+ $wanted_re = str_replace("%i", "[+\-]?[0-9]+",
$wanted_re);
+ $wanted_re = str_replace("%d", "[0-9]+", $wanted_re);
+ $wanted_re = str_replace("%x", "[0-9a-fA-F]+",
$wanted_re);
+ $wanted_re = str_replace("%f",
"[+\-]?\.?[0-9]+\.?[0-9]*(E-?[0-9]+)?", $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)) {
+ @unlink($tmp_file);
+ echo "PASS $tested$info\n";
+ if (isset($old_php)) {
+ $php = $old_php;
+ }
+ return 'PASSED';
+ }
+
+ } else {
+ $wanted = trim($section_text['EXPECT']);
+ $wanted = preg_replace('/\r\n/',"\n",$wanted);
+ // compare and leave on success
+ $ok = (0 == strcmp($output,$wanted));
+ if ($ok) {
+ @unlink($tmp_file);
+ echo "PASS $tested$info\n";
+ if (isset($old_php)) {
+ $php = $old_php;
+ }
+ return 'PASSED';
+ }
+ }
+
+ // Test failed so we need to report details.
+ if ($warn) {
+ echo "WARN $tested$info\n";
+ } else {
+ echo "FAIL $tested$info\n";
+ }
+
+ $GLOBALS['__PHP_FAILED_TESTS__'][] = array(
+ 'name' => $file,
+ 'test_name' => $tested,
+ 'output' =>
ereg_replace('\.phpt$','.log', $file),
+ 'diff' =>
ereg_replace('\.phpt$','.diff', $file),
+ 'info' => $info
+ );
+
+ // write .exp
+ if (strpos($log_format,'E') !== FALSE) {
+ $logname = ereg_replace('\.phpt$','.exp',$file);
+ $log = fopen($logname,'w') or error("Cannot create test log -
$logname");
+ fwrite($log,$wanted);
+ fclose($log);
+ }
+
+ // write .out
+ if (strpos($log_format,'O') !== FALSE) {
+ $logname = ereg_replace('\.phpt$','.out',$file);
+ $log = fopen($logname,'w') or error("Cannot create test log -
$logname");
+ fwrite($log,$output);
+ fclose($log);
+ }
+
+ // write .diff
+ if (strpos($log_format,'D') !== FALSE) {
+ $logname = ereg_replace('\.phpt$','.diff',$file);
+ $log = fopen($logname,'w') or error("Cannot create test log -
$logname");
+ fwrite($log,generate_diff($wanted,$output));
+ fclose($log);
+ }
+
+ // write .log
+ if (strpos($log_format,'L') !== FALSE) {
+ $logname = ereg_replace('\.phpt$','.log',$file);
+ $log = fopen($logname,'w') or error("Cannot create test log -
$logname");
+ fwrite($log,"
+---- EXPECTED OUTPUT
+$wanted
+---- ACTUAL OUTPUT
+$output
+---- FAILED
+");
+ fclose($log);
+ error_report($file,$logname,$tested);
+ }
+
+ if (isset($old_php)) {
+ $php = $old_php;
+ }
+
+ return $warn ? 'WARNED' : 'FAILED';
+}
+
+function generate_diff($wanted,$output)
+{
+ $w = explode("\n", $wanted);
+ $o = explode("\n", $output);
+ $w1 = array_diff_assoc($w,$o);
+ $o1 = array_diff_assoc($o,$w);
+ $w2 = array();
+ $o2 = array();
+ foreach($w1 as $idx => $val) $w2[sprintf("%03d<",$idx)] =
sprintf("%03d- ", $idx+1).$val;
+ foreach($o1 as $idx => $val) $o2[sprintf("%03d>",$idx)] =
sprintf("%03d+ ", $idx+1).$val;
+ $diff = array_merge($w2, $o2);
+ ksort($diff);
+ return implode("\r\n", $diff);
+}
+
+function error($message)
+{
+ echo "ERROR: {$message}\n";
+ exit(1);
+}
+
+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;
+ }
+ }
+}
+
+function settings2params(&$ini_settings)
+{
+ if (count($ini_settings)) {
+ $settings = '';
+ foreach($ini_settings as $name => $value) {
+ $value = addslashes($value);
+ $settings .= " -d \"$name=$value\"";
+ }
+ $ini_settings = $settings;
+ } else {
+ $ini_settings = '';
+ }
+}
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * End:
+ * vim600: fdm=marker
+ * vim: noet sw=4 ts=4
+ */
+?>
_______________________________________________
Carob-commits mailing list
[email protected]
https://forge.continuent.org/mailman/listinfo/carob-commits
