Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: php4
Fetching contributors…

Cannot retrieve contributors at this time

file 35 lines (30 sloc) 0.808 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
<?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 $test)
 {
$res = eval("return ($test);");
$success = $success && $res;
if (!$res)
{
echo "\nAssert failed:\n";
echo "$test\n";
list($left,$right) = explode('===',$test);
echo "Left: ";var_dump(eval("return ($left );"));
echo "Right: ";var_dump(eval("return ($right);"));
}
 }
 if ($success) echo "OK";

Something went wrong with that request. Please try again.