Aktualisierung auf MediaWiki 1.10.0

Plugins angepasst und verbessert
kleine Korrekturen am Design

1 files changed, 307 insertions, 0 deletions

diff --git a/Test.php b/Test.php
new file mode 100644
index 00000000..bad931a4
--- /dev/null
+++ b/Test.php
@@ -0,0 +1,307 @@
+<?php
+
+/*
+
+=head1 NAME
+
+Test.php - L<Test::More> for PHP
+
+=head1 SYNOPSIS
+
+  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 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 );
+
+=head1 DESCRIPTION
+
+F<Test.php> is an implementation of Perl's L<Test::More> and Pugs's B<Test> for
+PHP. Like those two modules it produces TAP output (see L<TAP>) which
+can then be gathered, formatted and summarized by a program that
+understands TAP such as L<prove(1)>.
+
+=cut
+
+*/
+
+register_shutdown_function('test_ends');
+
+$Test = array(
+	  'run'       => 0,
+	  'failed'    => 0,
+	  'badpass'   => 0,
+	  'planned'   => null
+);
+
+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, "$op $expected" );
+}
+
+function diag($message)
+{
+    if (is_array($message))
+	{
+	    $message = implode("\n", $message);
+	}
+
+    $messages = explode("\n", $message);
+
+    foreach ($messages as $msg)
+	{
+        echo "# $msg\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 = '' )
+{
+    // hack
+    $s_got = serialize( $got );
+	$s_exp = serialize( $expected );
+
+	$pass = $s_got == $s_exp;
+
+	proclaim( $pass, $desc, /* todo */ false, $got, $expected );
+}
+
+function isa_ok( $obj, $expected, $desc = '' ) {
+	$name = get_class( $obj );
+	$pass = $name == $expected;
+	proclaim( $pass, $desc, /* todo */ false, $name, $expected );
+} 
+
+function proclaim(
+	$cond, // bool
+	$desc = '',
+	$todo = false,
+	$got = null,
+	$expected = null,
+	$negate = false ) {
+
+	global $Test;
+
+	$Test['run'] += 1;
+
+	# TODO: force_todo
+
+	# 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 = $todo === false ? '' : '# TODO aoeu';
+
+	printf( "%s %d %s%s\n", $ok, $Test['run'], $desc, $directive );
+
+	if ( ! $cond ) {
+		report_failure( $desc, $got, $expected, $negate, $todo );
+	}
+
+	return $cond;
+}
+
+function report_failure( $desc, $got, $expected, $negate, $todo ) {
+	# Every public function in this file proclaim which then calls
+    #  this function, so our culprit is the third item in the stack
+	$caller = debug_backtrace();
+	$call = $caller['2'];
+
+	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
+		)
+	);
+}
+
+function test_ends ()
+{
+	global $Test;
+
+	if ( $Test['planned'] === false ) {
+		printf( "1..%d\n", $Test['run'] );
+	}
+}
+
+/*
+
+=head1 TODO
+
+=over
+
+=item * Fully document this file
+
+=item *
+
+Add TODO support, maybe via C<ok(0, "foo # TODO fix this")>
+C<ok(1, "foo", array( 'todo' => 'fix this'))>.
+
+=back
+
+=head1 SEE ALSO
+
+=over
+
+=item L<TAP> - The TAP protocol
+
+=item L<Test::More> 
+
+=item Pugs's Test.pm
+
+=back
+
+=head1 AUTHOR
+
+Ævar Arnfjörð Bjarmason <avarab@gmail.com>
+
+=head1 LICENSING
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
+
+*/
+
+?>