From 3773f8d81c53dd0508325d6380ee49569951a61f Mon Sep 17 00:00:00 2001
From: marcus <marcus@36083f99-b078-4883-b0ff-0f9b5a30f544>
Date: Wed, 13 May 2009 15:59:22 +0000
Subject: Refs #1009: Enhancements to diagnostics tool to use the test
 framework.

git-svn-id: https://code.elgg.org/elgg/trunk@3286 36083f99-b078-4883-b0ff-0f9b5a30f544
---
 mod/diagnostics/testreport.php | 45 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 mod/diagnostics/testreport.php

(limited to 'mod/diagnostics/testreport.php')

diff --git a/mod/diagnostics/testreport.php b/mod/diagnostics/testreport.php
new file mode 100644
index 000000000..979cca267
--- /dev/null
+++ b/mod/diagnostics/testreport.php
@@ -0,0 +1,45 @@
+<?php
+	/**
+	 * Elgg diagnostics - test report
+	 * 
+	 * @package ElggDiagnostics
+	 * @license http://www.gnu.org/licenses/old-licenses/gpl-2.0.html GNU Public License version 2
+	 * @author Curverider Ltd
+	 * @copyright Curverider Ltd 2008-2009
+	 * @link http://elgg.com/
+	 */
+
+	require_once(dirname(dirname(dirname(__FILE__))) . "/engine/start.php");
+
+	admin_gatekeeper();
+	set_context('admin');
+	// Set admin user for user block
+		set_page_owner($_SESSION['guid']);
+		
+	// Which test are we executing?
+	$test_func = get_input('test_func');
+
+	$title_txt = sprintf(elgg_echo('diagnostics:unittester:report'), $test_func ? $testfunc : elgg_echo('diagnostics:test:executeall'));
+		
+	$title = elgg_view_title();
+	
+	$result = null;
+	if ($test_func)
+		$result = array(execute_elgg_test($test_func));
+	else
+		$result = execute_elgg_tests();
+		
+	if ($result)
+	{
+		foreach ($result as $r)
+			$body .= elgg_view('page_elements/contentwrapper', array('body' =>
+				elgg_view('diagnostics/testresult', array('function' => $r['function'], 'result' => $r['result']))
+			));
+	}
+	else
+		$body = elgg_view('page_elements/contentwrapper', array('body' => 
+			elgg_echo('diagnostics:unittester:testnotfound' ) 
+		));
+	
+	page_draw($title_txt, elgg_view_layout("two_column_left_sidebar", '', $title . $body));
+?>
\ No newline at end of file
-- 
cgit v1.2.3