]> scripts.mit.edu Git - autoinstalls/mediawiki.git/blobdiff - t/Test.php
MediaWiki 1.16.0
[autoinstalls/mediawiki.git] / t / Test.php
diff --git a/t/Test.php b/t/Test.php
deleted file mode 100644 (file)
index 7904f3b..0000000
+++ /dev/null
@@ -1,496 +0,0 @@
-<?php
-# See the end of this file for documentation
-
-# The latest release of this test framework can always be found on CPAN:
-# http://search.cpan.org/search?query=Test.php
-
-register_shutdown_function('_test_ends');
-
-$__Test = array(
-    # How many tests are planned
-    'planned'   => null,
-
-    # How many tests we've run, if 'planned' is still null by the time we're
-    # done we report the total count at the end
-    'run' => 0,
-
-    # Are are we currently within todo_start()/todo_end() ?
-    'todo' => array(),
-);
-
-function plan($plan, $why = '')
-{
-    global $__Test;
-
-    $__Test['planned'] = true;
-
-    switch ($plan)
-    {
-      case 'no_plan':
-        $__Test['planned'] = false;
-        break;
-      case 'skip_all';
-        printf("1..0%s\n", $why ? " # Skip $why" : '');
-        exit;
-      default:
-        printf("1..%d\n", $plan);
-        break;
-    }
-}
-
-function pass($desc = '')
-{
-    return _proclaim(true, $desc);
-}
-
-function fail($desc = '')
-{
-    return _proclaim(false, $desc);
-}
-
-function ok($cond, $desc = '') {
-    return _proclaim($cond, $desc);
-}
-
-function is($got, $expected, $desc = '') {
-    $pass = $got == $expected;
-    return _proclaim($pass, $desc, /* todo */ false, $got, $expected);
-}
-
-function isnt($got, $expected, $desc = '') {
-    $pass = $got != $expected;
-    return _proclaim($pass, $desc, /* todo */ false, $got, $expected, /* negated */ true);
-}
-
-function like($got, $expected, $desc = '') {
-    $pass = preg_match($expected, $got);
-    return _proclaim($pass, $desc, /* todo */ false, $got, $expected);
-}
-
-function unlike($got, $expected, $desc = '') {
-    $pass = !preg_match($expected, $got);
-    return _proclaim($pass, $desc, /* todo */ false, $got, $expected, /* negated */ true);
-}
-
-function cmp_ok($got, $op, $expected, $desc = '')
-{
-    $pass = null;
-
-    # See http://www.php.net/manual/en/language.operators.comparison.php
-    switch ($op)
-    {
-      case '==':
-        $pass = $got == $expected;
-        break;
-      case '===':
-        $pass = $got === $expected;
-        break;
-      case '!=':
-      case '<>':
-        $pass = $got != $expected;
-        break;
-      case '!==':
-        $pass = $got !== $expected;
-        break;
-      case '<':
-        $pass = $got < $expected;
-        break;
-      case '>':
-        $pass = $got > $expected;
-        break;
-      case '<=':
-        $pass = $got <= $expected;
-        break;
-      case '>=':
-        $pass = $got >= $expected;
-        break;
-    default:
-        if (function_exists($op)) {
-            $pass = $op($got, $expected);
-        } else {
-            die("No such operator or function $op\n");
-        }
-    }
-
-    return _proclaim($pass, $desc, /* todo */ false, $got, "$got $op $expected");
-}
-
-function diag($message)
-{
-    if (is_array($message))
-    {
-        $message = implode("\n", $message);
-    }
-
-    foreach (explode("\n", $message) as $line)
-    {
-        echo "# $line\n";
-    }
-}
-
-function include_ok($file, $desc = '')
-{
-    $pass = include $file;
-    return _proclaim($pass, $desc == '' ? "include $file" : $desc);
-}
-
-function require_ok($file, $desc = '')
-{
-    $pass = require $file;
-    return _proclaim($pass, $desc == '' ? "require $file" : $desc);
-} 
-
-function is_deeply($got, $expected, $desc = '')
-{
-    $diff = _cmp_deeply($got, $expected);
-    $pass = is_null($diff);
-
-    if (!$pass) {
-        $got      = strlen($diff['gpath']) ? ($diff['gpath'] . ' = ' . $diff['got']) 
-                                           : _repl($got);
-        $expected = strlen($diff['epath']) ? ($diff['epath'] . ' = ' . $diff['expected']) 
-                                           : _repl($expected);
-    }
-
-    _proclaim($pass, $desc, /* todo */ false, $got, $expected);
-}
-
-function isa_ok($obj, $expected, $desc = '')
-{
-    $pass = is_a($obj, $expected);
-    _proclaim($pass, $desc, /* todo */ false, $name, $expected);
-}
-
-function todo_start($why = '')
-{
-    global $__Test;
-
-    $__Test['todo'][] = $why;
-}
-
-function todo_end()
-{
-    global $__Test;
-
-    if (count($__Test['todo']) == 0) {
-        die("todo_end() called without a matching todo_start() call");
-    } else {
-        array_pop($__Test['todo']);
-    }
-}
-
-#
-# The code below consists of private utility functions for the above functions
-#
-
-function _proclaim(
-    $cond, # bool
-    $desc = '',
-    $todo = false,
-    $got = null,
-    $expected = null,
-    $negate = false) {
-
-    global $__Test;
-
-    $__Test['run'] += 1;
-
-    # We're in a TODO block via todo_start()/todo_end(). TODO via specific
-    # functions is currently unimplemented and will probably stay that way
-    if (count($__Test['todo'])) {
-        $todo = true;
-    }
-
-    # Everything after the first # is special, so escape user-supplied messages
-    $desc = str_replace('#', '\\#', $desc);
-    $desc = str_replace("\n", '\\n', $desc);
-
-    $ok = $cond ? "ok" : "not ok";
-    $directive = '';
-
-    if ($todo) {
-        $todo_idx = count($__Test['todo']) - 1;
-        $directive .= ' # TODO ' . $__Test['todo'][$todo_idx];
-    }
-
-    printf("%s %d %s%s\n", $ok, $__Test['run'], $desc, $directive);
-
-    # report a failure
-    if (!$cond) {
-        # Every public function in this file calls _proclaim so our culprit is
-        # the second item in the stack
-        $caller = debug_backtrace();
-        $call = $caller['1'];
-    
-        diag(
-            sprintf(" Failed%stest '%s'\n in %s at line %d\n       got: %s\n  expected: %s",
-                $todo ? ' TODO ' : ' ',
-                $desc,
-                $call['file'],
-                $call['line'],
-                $got,
-                $expected
-            )
-        );
-    }
-
-    return $cond;
-}
-
-function _test_ends()
-{
-    global $__Test;
-
-    if (count($__Test['todo']) != 0) {
-        $todos = join("', '", $__Test['todo']);
-        die("Missing todo_end() for '$todos'");
-    }
-
-    if (!$__Test['planned']) {
-        printf("1..%d\n", $__Test['run']);
-    }
-}
-
-#
-# All of the below is for is_deeply()
-#
-
-function _repl($obj, $deep = true) {
-    if (is_string($obj)) {
-        return "'" . $obj . "'";
-    } else if (is_numeric($obj)) {
-        return $obj;
-    } else if (is_null($obj)) {
-        return 'null';
-    } else if (is_bool($obj)) {
-        return $obj ? 'true' : 'false';
-    } else if (is_array($obj)) {
-        return _repl_array($obj, $deep);
-    }else {
-        return gettype($obj);
-    }
-}
-
-function _diff($gpath, $got, $epath, $expected) {
-    return array(
-        'gpath'     => $gpath,
-        'got'       => $got,
-        'epath'     => $epath,
-        'expected'  => $expected
-    );
-}
-
-function _idx($obj, $path = '') {
-    return $path . '[' . _repl($obj) . ']';
-}
-
-function _cmp_deeply($got, $exp, $path = '') {
-    if (is_array($exp)) {
-        
-        if (!is_array($got)) {
-            return _diff($path, _repl($got), $path, _repl($exp));
-        }
-        
-        $gk = array_keys($got);
-        $ek = array_keys($exp);
-        $mc = max(count($gk), count($ek));
-
-        for ($el = 0; $el < $mc; $el++) {
-            # One array shorter than the other?
-            if ($el >= count($ek)) {
-                return _diff(_idx($gk[$el], $path), _repl($got[$gk[$el]]), 
-                             'missing', 'nothing');
-            } else if ($el >= count($gk)) {
-                return _diff('missing', 'nothing', 
-                             _idx($ek[$el], $path), _repl($exp[$ek[$el]]));
-            }
-            
-            # Keys differ?
-            if ($gk[$el] != $ek[$el]) {
-                return _diff(_idx($gk[$el], $path), _repl($got[$gk[$el]]), 
-                             _idx($ek[$el], $path), _repl($exp[$ek[$el]]));
-            }
-
-            # Recurse
-            $rc = _cmp_deeply($got[$gk[$el]], $exp[$ek[$el]], _idx($gk[$el], $path));
-            if (!is_null($rc)) {
-                return $rc;
-            }
-        }
-    }
-    else {
-        # Default to serialize hack
-        if (serialize($got) != serialize($exp)) {
-            return _diff($path, _repl($got), $path, _repl($exp));
-        }
-    }
-    
-    return null;
-}
-
-function _plural($n, $singular, $plural = null) {
-    if (is_null($plural)) {
-        $plural = $singular . 's';
-    }
-    return $n == 1 ? "$n $singular" : "$n $plural";
-}
-
-function _repl_array($obj, $deep) {
-    if ($deep) {
-        $slice = array_slice($obj, 0, 3); # Increase from 3 to show more
-        $repl  = array();
-        $next  = 0;
-        foreach ($slice as $idx => $el) {
-            $elrep = _repl($el, false);
-            if (is_numeric($idx) && $next == $idx) {
-                // Numeric index
-                $next++;
-            } else {
-                // Out of sequence or non-numeric
-                $elrep = _repl($idx, false) . ' => ' . $elrep;
-            }
-            $repl[] = $elrep;
-        }
-        $more = count($obj) - count($slice);
-        if ($more > 0) {
-            $repl[] = '... ' . _plural($more, 'more element')  . ' ...';
-        }
-        return 'array(' . join(', ', $repl) . ')';
-    }
-    else {
-        return 'array(' . count($obj) . ')';
-    }
-}
-
-/*
-
-=head1 NAME
-
-Test.php - TAP test framework for PHP with a L<Test::More>-like interface
-
-=head1 SYNOPSIS
-
-    #!/usr/bin/env php
-    <?php  
-    require 'Test.php';
-  
-    plan($num); # plan $num tests
-    # or
-    plan('no_plan'); # We don't know how many
-    # or
-    plan('skip_all'); # Skip all tests
-    # or
-    plan('skip_all', $reason); # Skip all tests with a reason
-  
-    diag('message in test output') # Trailing \n not required
-  
-    # $test_name is always optional and should be a short description of
-    # the test, e.g. "some_function() returns an integer"
-  
-    # Various ways to say "ok"
-    ok($got == $expected, $test_name);
-  
-    # Compare with == and !=
-    is($got, $expected, $test_name);
-    isnt($got, $expected, $test_name);
-  
-    # Run a preg regex match on some data
-    like($got, $regex, $test_name);
-    unlike($got, $regex, $test_name);
-  
-    # Compare something with a given comparison operator
-    cmp_ok($got, '==', $expected, $test_name);
-    # Compare something with a comparison function (should return bool)
-    cmp_ok($got, $func, $expected, $test_name);
-  
-    # Recursively check datastructures for equalness
-    is_deeply($got, $expected, $test_name);
-  
-    # Always pass or fail a test under an optional name
-    pass($test_name);
-    fail($test_name);
-
-    # TODO tests, these are expected to fail but won't fail the test run,
-    # unexpected success will be reported
-    todo_start("integer arithmetic still working");
-    ok(1 + 2 == 3);
-    {
-        # TODOs can be nested
-        todo_start("string comparison still working")
-        is("foo", "bar");
-        todo_end();
-    }
-    todo_end();
-    ?>
-  
-=head1 DESCRIPTION
-
-F<Test.php> is an implementation of Perl's L<Test::More> for PHP. Like
-Test::More it produces language agnostic TAP output (see L<TAP>) which
-can then be gathered, formatted and summarized by a program that
-understands TAP such as prove(1).
-
-=head1 HOWTO
-
-First place the F<Test.php> in the project root or somewhere else in
-the include path where C<require> and C<include> will find it.
-
-Then make a place to put your tests in, it's customary to place TAP
-tests in a directory named F<t> under the root but they can be
-anywhere you like. Make a test in this directory or one of its subdirs
-and try running it with php(1):
-
-    $ php t/pass.t 
-    1..1
-    ok 1 This dummy test passed
-
-The TAP output consists of very simple output, of course reading
-larger output is going to be harder which is where prove(1) comes
-in. prove is a harness program that reads test output and produces
-reports based on it:
-    
-    $ prove t/pass.t 
-    t/pass....ok
-    All tests successful.
-    Files=1, Tests=1,  0 wallclock secs ( 0.03 cusr +  0.02 csys =  0.05 CPU)
-
-To run all the tests in the F<t> directory recursively use C<prove -r
-t>. This can be put in a F<Makefile> under a I<test> target, for
-example:
-
-    test: Test.php
-               prove -r t
-    
-For reference the example test file above looks like this, the shebang
-on the first line is needed so that prove(1) and other test harness
-programs know they're dealing with a PHP file.
-
-    #!/usr/bin/env php
-    <?php
-    
-    require 'Test.php';
-    
-    plan(1);
-    pass('This dummy test passed');
-    ?>
-    
-=head1 SEE ALSO
-
-L<TAP> - The TAP protocol
-
-=head1 AUTHOR
-
-E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avar@cpan.org> and Andy Armstrong <andy@hexten.net>
-
-=head1 LICENSING
-
-The author or authors of this code dedicate any and all copyright
-interest in this code to the public domain. We make this dedication
-for the benefit of the public at large and to the detriment of our
-heirs and successors. We intend this dedication to be an overt act of
-relinquishment in perpetuity of all present and future rights this
-code under copyright law.
-
-=cut
-
-*/