mirror of
https://github.com/php/php-src.git
synced 2024-12-06 00:04:07 +08:00
76 lines
1.6 KiB
PHP
76 lines
1.6 KiB
PHP
<?php
|
|
/*
|
|
Helper for simple tests to check return-value. Usage:
|
|
|
|
$tests = <<<TESTS
|
|
expected_return_value === expression
|
|
2 === 1+1
|
|
4 === 2*2
|
|
FALSE === @ fopen('non_existent_file')
|
|
TESTS;
|
|
include( 'tests/quicktester.inc' );
|
|
|
|
Expect: OK
|
|
|
|
Remember to NOT put a trailing ; after a line!
|
|
|
|
*/
|
|
error_reporting(E_ALL);
|
|
$tests = explode("\n",$tests);
|
|
$success = TRUE;
|
|
foreach ($tests as $n=>$test)
|
|
{
|
|
// ignore empty lines
|
|
if (!$test) continue;
|
|
|
|
// warn for trailing ;
|
|
if (substr(trim($test), -1, 1) === ';') {
|
|
echo "WARNING: trailing ';' found in test ".($n+1)."\n";
|
|
exit;
|
|
}
|
|
|
|
// try for operators
|
|
$operators = array('===', '~==');
|
|
$operator = NULL;
|
|
foreach ($operators as $a_operator) {
|
|
if (strpos($test, $a_operator)!== FALSE) {
|
|
$operator = $a_operator;
|
|
list($left,$right) = explode($operator, $test);
|
|
break;
|
|
}
|
|
}
|
|
if (!$operator) {
|
|
echo "WARNING: unknown operator in '$test' (1)\n";
|
|
exit;
|
|
}
|
|
|
|
$left = eval("return ($left );");
|
|
$right = eval("return ($right);");
|
|
switch (@$operator) {
|
|
case '===': // exact match
|
|
$result = $left === $right;
|
|
break;
|
|
case '~==': // may differ after 12th significant number
|
|
if ( !is_float($left ) && !is_int($left )
|
|
|| !is_float($right) && !is_int($right)) {
|
|
$result = FALSE;
|
|
break;
|
|
}
|
|
$result = abs(($left-$right) / $left) < 1e-12;
|
|
break;
|
|
default:
|
|
echo "WARNING: unknown operator in '$test' (2)\n";
|
|
exit;
|
|
}
|
|
|
|
$success = $success && $result;
|
|
if (!$result) {
|
|
echo "\nAssert failed:\n";
|
|
echo "$test\n";
|
|
echo "Left: ";var_dump($left );
|
|
echo "Right: ";var_dump($right);
|
|
}
|
|
}
|
|
if ($success) echo "OK";
|
|
|