Quick and dirty PHP TAP

tap.php

<?php

    $__TEST__COUNT__     = 0;
    $__TEST__SUCCESS__   = 0;
    $__TEST__FAILURE__   = 0;
    $__EXPECTED__TESTS__ = null;

    function no_plan() {
        global $__EXPECTED__TESTS__;
        $__EXPECTED__TESTS__ = 'none';
    }

    function plan($tests) {
        global $__EXPECTED__TESTS__;

        $__EXPECTED__TESTS__ = $tests;
        echo "# planned to run $tests tests\n";
        echo "1..$tests\n";
    }

    function finalize() {
        global $__TEST__COUNT__, $__TEST__SUCCESS__, $__TEST__FAILURE__,
               $__EXPECTED__TESTS__;

        if ($__EXPECTED__TESTS__ == 'none')
            exit(0);

        $cnt  = $__TEST__COUNT__;
        $pass = $__TEST__SUCCESS__;
        $fail = $__TEST__FAILURE__;
        $exp  = $__EXPECTED__TESTS__;
        $all  = $cnt === $exp;

        if ($exp !== null) {
            if (!$all)
                echo "# planned $exp tests but only executed $cnt\n";
            if ($fail)
                echo "# $fail tests failed, $pass passed\n";
        }
        else {
            echo "# no test plan - $pass passed, $fail failed\n";
        }

        exit($fail);
    }

    function notate($message) {
        $lines = explode("\n", $message);
        foreach ($lines as $line) {
            echo "# $line\n";
        }
    }

    function ok($cond, $message = null) {
        global $__TEST__COUNT__, $__TEST__SUCCESS__, $__TEST__FAILURE__;
        $__TEST__COUNT__++;

        if ($message) {
            $lines   = explode("\n", $message);
            $message = " - " . $lines[0];
        }

        if ($cond) {
            $__TEST__SUCCESS__++;
            echo "ok $__TEST__COUNT__$message\n";
        }
        else {
            $__TEST__FAILURE__++;
            echo "not ok $__TEST__COUNT__$message\n";
        }
    }

    function not_ok($cond, $message = null) {
        ok(!$cond, $message);
    }

    function is($left, $right, $message = null) {
        ok($left === $right, $message);
    }

    function is_not($left, $right, $message = null) {
        not_ok($left === $right, $message);
    }

    function parse_contents($name, $tests) {
        $lines   = explode("\n", $tests);
        $current = 0;
        $pass    = 0;
        $fail    = 0;

        foreach ($lines as $lineno => $line) {
            if ($line == '')
                continue;
            else if (preg_match('/^(\d+)\.\.(\d+)$/', $line, $matches)) {
                $from = $matches[1];
                $to   = $matches[2];

                $count = ($to - $from) + 1;
            }
            else if (preg_match('/^ok (\d+)/', $line, $matches)) {
                $current++;
                $pass++;

                $test = $matches[1];
                if ($test != $current)
                    echo "# bad test! $name test $test (expected $current)!\n";
            }
            else if (preg_match('/^not ok (\d+)/', $line, $matches)) {
                $current++;
                $fail++;

                $test = $matches[1];
                if ($test != $current)
                    echo "# bad test! $name test $test (expected $current)!\n";
            }
            else if (!preg_match('/^\#/', $line)) {
                echo "# unknown output format $line ($name:$lineno)\n";
            }
        }

        echo "# $name $pass/$count\n";

        if ($pass > $count)
            $pass = $count;

        return "$pass/$fail/$count";
    }

    register_shutdown_function('finalize');

?>

test.php

<?php

    include_once('test/tap.php');
    no_plan();

    $pid = posix_getpid();
    $cmd = "lsof -p $pid | grep txt | head -n1 | awk '{print \$9 }'";
    $bin = exec($cmd);

    $cwd = dirname(__FILE__);
    $td  = join(DIRECTORY_SEPARATOR, array($cwd, 'test'));
    $dir = opendir($td);

    $tdq = '"' . preg_replace('/\"/', '\\"', $td) . '"';

    $pass = 0;
    $fail = 0;
    $all  = 0;

    while ($fn = readdir($dir)) {
        if ($fn == '.' || $fn == '..' || $fn == 'tap.php')
            continue;

        $file = join(DIRECTORY_SEPARATOR, array($td, $fn));
        $file = '"' . preg_replace('/\"/', '\\"', $file) . '"';
        $exec = "(cd $tdq && $bin $file)";

        ob_start();
        system($exec, $res);
        $test = ob_get_contents();
        ob_end_clean();

        $out = parse_contents($fn, $test);
        preg_match('/^(\d+)\/(\d+)\/(\d+)$/', $out, $matches);

        $opass = $matches[1];
        $ofail = $matches[2];
        $oall  = $matches[3];

        $pass += $opass;
        $fail += $ofail;
        $all  += $oall;

        ok($opass == $oall, $fn);
    }

    is($pass, $all, "All $all Tests Pass");

?>