6ccc938caf69e002b8ddf45baae85888911b2261
[moodle.git] / admin / report / unittest / index.php
1 <?php
2 /**
3  * Run the unit tests.
4  *
5  * @copyright &copy; 2006 The Open University
6  * @author N.D.Freear@open.ac.uk, T.J.Hunt@open.ac.uk
7  * @license http://www.gnu.org/copyleft/gpl.html GNU Public License
8  * @package SimpleTestEx
9  */
11 /** */
12 require_once(dirname(__FILE__).'/../../../config.php');
13 require_once($CFG->libdir.'/adminlib.php');
14 require_once($CFG->libdir.'/simpletestcoveragelib.php');
15 require_once('ex_simple_test.php');
16 require_once('ex_reporter.php');
18 // Always run the unit tests in developer debug mode.
19 $CFG->debug = DEBUG_DEVELOPER;
20 error_reporting($CFG->debug);
21 raise_memory_limit(MEMORY_EXTRA);
23 // page parameters
24 $path         = optional_param('path', null, PARAM_PATH);
25 $showpasses   = optional_param('showpasses', false, PARAM_BOOL);
26 $codecoverage = optional_param('codecoverage', false, PARAM_BOOL);
27 $showsearch   = optional_param('showsearch', false, PARAM_BOOL);
29 admin_externalpage_setup('reportsimpletest', '', array('showpasses'=>$showpasses, 'showsearch'=>$showsearch));
31 $unittest = true;
33 global $UNITTEST;
34 $UNITTEST = new stdClass();
36 // Print the header.
37 $strtitle = get_string('unittests', 'simpletest');
39 if (!is_null($path)) {
40     //trim so user doesn't get an error if they include a space on the end of the path (ie by pasting path)
41     $path = trim($path);
43     // Turn off xmlstrictheaders during the unit test run.
44     $origxmlstrictheaders = !empty($CFG->xmlstrictheaders);
45     $CFG->xmlstrictheaders = false;
46     echo $OUTPUT->header();
47     $CFG->xmlstrictheaders = $origxmlstrictheaders;
48     unset($origxmlstrictheaders);
50     // Create the group of tests.
51     $test = new autogroup_test_coverage($showsearch, true, $codecoverage, 'Moodle Unit Tests Code Coverage Report', 'unittest');
53     // OU specific. We use the _nonproject folder for stuff we want to
54     // keep in CVS, but which is not really relevant. It does no harm
55     // to leave this here.
56     $test->addIgnoreFolder($CFG->dirroot . '/_nonproject');
58     // Make the reporter, which is what displays the results.
59     $reporter = new ExHtmlReporter($showpasses);
61     if ($showsearch) {
62         echo $OUTPUT->heading('Searching for test cases');
63     }
64     flush();
66     // Work out what to test.
67     if (substr($path, 0, 1) == '/') {
68         $path = substr($path, 1);
69     }
70     $path = $CFG->dirroot . '/' . $path;
71     if (substr($path, -1) == '/') {
72         $path = substr($path, 0, -1);
73     }
74     $displaypath = substr($path, strlen($CFG->dirroot) + 1);
75     $ok = true;
76     if (is_file($path)) {
77         $test->addTestFile($path);
78     } else if (is_dir($path)){
79         $test->findTestFiles($path);
80     } else {
81         echo $OUTPUT->box(get_string('pathdoesnotexist', 'simpletest', $path), 'errorbox');
82         $ok = false;
83     }
85     // If we have something to test, do it.
86     if ($ok) {
87         if ($path == $CFG->dirroot) {
88             $title = get_string('moodleunittests', 'simpletest', get_string('all', 'simpletest'));
89         } else {
90             $title = get_string('moodleunittests', 'simpletest', $displaypath);
91         }
92         echo $OUTPUT->heading($title);
93         set_time_limit(300); // 5 mins
94         $test->run($reporter);
95     }
97     $formheader = get_string('retest', 'simpletest');
98 } else {
99     $displaypath = '';
100     echo $OUTPUT->header();
101     $formheader = get_string('rununittests', 'simpletest');
103 // Print the form for adjusting options.
104 echo $OUTPUT->box_start('generalbox boxwidthwide boxaligncenter');
105 echo $OUTPUT->heading($formheader);
106 echo '<form method="get" action="index.php">';
107 echo '<fieldset class="invisiblefieldset">';
108 echo '<p>'.html_writer::checkbox('showpasses', 1, $showpasses, get_string('showpasses', 'simpletest')).'</p>';
109 echo '<p>'.html_writer::checkbox('showsearch', 1, $showsearch, get_string('showsearch', 'simpletest')).'</p>';
110 if (moodle_coverage_recorder::can_run_codecoverage()) {
111     echo '<p>'.html_writer::checkbox('codecoverage', 1, $codecoverage, get_string('codecoverageanalysis', 'simpletest')).'</p>';
112 } else {
113     echo '<p>'; print_string('codecoveragedisabled', 'simpletest'); echo '<input type="hidden" name="codecoverage" value="0" /></p>';
115 echo '<p>';
116     echo '<label for="path">', get_string('onlytest', 'simpletest'), '</label> ';
117     echo '<input type="text" id="path" name="path" value="', $displaypath, '" size="40" />';
118 echo '</p>';
119 echo '<input type="submit" value="' . get_string('runtests', 'simpletest') . '" />';
120 echo '</fieldset>';
121 echo '</form>';
122 echo $OUTPUT->box_end();
124 // Print link to latest code coverage for this report type
125 if (is_null($path) || !$codecoverage) {
126     moodle_coverage_reporter::print_link_to_latest('unittest');
129 // Footer.
130 echo $OUTPUT->footer();