Return to quicktester.inc CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / tests

Annotation of embedaddon/php/tests/quicktester.inc, revision 1.1

1.1     ! misho       1: <?php
        !             2:  /*
        !             3:   Helper for simple tests to check return-value. Usage:
        !             4: 
        !             5:   $tests = <<<TESTS
        !             6:    expected_return_value === expression
        !             7:    2                     === 1+1
        !             8:    4                     === 2*2
        !             9:    FALSE                 === @ fopen('non_existent_file')
        !            10: TESTS;
        !            11:   include( 'tests/quicktester.inc' );
        !            12: 
        !            13:   Expect: OK
        !            14: 
        !            15:   Remember to NOT put a trailing ; after a line!
        !            16: 
        !            17:  */
        !            18: error_reporting(E_ALL);  
        !            19: $tests = explode("\n",$tests);
        !            20: $success = TRUE;
        !            21: foreach ($tests as $n=>$test)
        !            22: {
        !            23:        // ignore empty lines
        !            24:        if (!$test) continue;
        !            25: 
        !            26:        // warn for trailing ;
        !            27:        if (substr(trim($test), -1, 1) === ';') {
        !            28:                echo "WARNING: trailing ';' found in test ".($n+1)."\n";
        !            29:                exit;
        !            30:        }
        !            31: 
        !            32:        // try for operators
        !            33:        $operators = array('===', '~==');
        !            34:        $operator = NULL;
        !            35:        foreach ($operators as $a_operator) {
        !            36:                if (strpos($test, $a_operator)!== FALSE) {
        !            37:                        $operator = $a_operator;
        !            38:                        list($left,$right) = explode($operator, $test);
        !            39:                        break;
        !            40:                }
        !            41:        }
        !            42:        if (!$operator) {
        !            43:                echo "WARNING: unknown operator in '$test' (1)\n";
        !            44:                exit;
        !            45:        }
        !            46: 
        !            47:        $left  = eval("return ($left );");
        !            48:        $right = eval("return ($right);");
        !            49:        switch (@$operator) {
        !            50:                case '===': // exact match
        !            51:                        $result = $left === $right;
        !            52:                        break;
        !            53:                case '~==': // may differ after 12th significant number
        !            54:                        if (   !is_float($left ) && !is_int($left )
        !            55:                                || !is_float($right) && !is_int($right)) {
        !            56:                                $result = FALSE;
        !            57:                                break;
        !            58:                        }
        !            59:                        $result = abs(($left-$right) / $left) < 1e-12;
        !            60:                        break;
        !            61:                default:
        !            62:                        echo "WARNING: unknown operator in '$test' (2)\n";
        !            63:                        exit;
        !            64:        }
        !            65: 
        !            66:        $success = $success && $result;
        !            67:        if (!$result) {
        !            68:                echo "\nAssert failed:\n";
        !            69:                echo "$test\n";
        !            70:                echo "Left:  ";var_dump($left );
        !            71:                echo "Right: ";var_dump($right);
        !            72:        }
        !            73: }
        !            74: if ($success) echo "OK";
        !            75: