2008-05-28 14:07:46 +00:00
|
|
|
<?php
|
|
|
|
// $Id$
|
|
|
|
|
|
|
|
class SimpleTestTestCase extends DrupalWebTestCase {
|
|
|
|
protected $results;
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Implementation of getInfo().
|
|
|
|
*/
|
|
|
|
function getInfo() {
|
|
|
|
return array(
|
|
|
|
'name' => t('SimpleTest functionality'),
|
|
|
|
'description' => t('Test SimpleTest\'s web interface: check that the intended tests were
|
|
|
|
run and ensure that test reports display the intended results. Also
|
|
|
|
test SimpleTest\'s internal browser and API\'s both explicitly and
|
|
|
|
implicitly.'),
|
|
|
|
'group' => t('SimpleTest')
|
|
|
|
);
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Implementation of setUp().
|
|
|
|
*/
|
|
|
|
function setUp() {
|
2008-06-08 19:09:50 +00:00
|
|
|
if (!$this->inCURL()) {
|
|
|
|
parent::setUp('simpletest');
|
2008-05-28 14:07:46 +00:00
|
|
|
|
2008-06-08 19:09:50 +00:00
|
|
|
// Create and login user
|
|
|
|
$admin_user = $this->drupalCreateUser(array('administer unit tests'));
|
|
|
|
$this->drupalLogin($admin_user);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
parent::setUp();
|
|
|
|
}
|
2008-05-28 14:07:46 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Test the internal browsers functionality.
|
|
|
|
*/
|
|
|
|
function testInternalBrowser() {
|
|
|
|
global $conf;
|
|
|
|
if (!$this->inCURL()) {
|
|
|
|
$this->drupalGet('node');
|
|
|
|
$this->assertTitle(variable_get('site_name', 'Drupal'), t('Site title matches.'));
|
2008-07-18 07:24:29 +00:00
|
|
|
// Make sure that we are locked out of the installer when prefixing
|
|
|
|
// using the user-agent header. This is an important security check.
|
|
|
|
global $base_url;
|
|
|
|
|
|
|
|
$this->drupalGet($base_url . '/install.php', array('external' => TRUE));
|
|
|
|
$this->assertResponse(403, 'Cannot access install.php with a "simpletest" user-agent header.');
|
2008-05-28 14:07:46 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Make sure that tests selected through the web interface are run and
|
|
|
|
* that the results are displayed correctly.
|
|
|
|
*/
|
|
|
|
function testWebTestRunner() {
|
|
|
|
$this->pass = t('SimpleTest pass.');
|
|
|
|
$this->fail = t('SimpleTest fail.');
|
2008-06-08 19:09:50 +00:00
|
|
|
$this->valid_permission = 'access content';
|
|
|
|
$this->invalid_permission = 'invalid permission';
|
2008-05-28 14:07:46 +00:00
|
|
|
|
|
|
|
if ($this->inCURL()) {
|
|
|
|
// Only run following code if this test is running itself through a CURL request.
|
|
|
|
$this->stubTest();
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
// Run this test from web interface.
|
|
|
|
$this->drupalGet('admin/build/testing');
|
|
|
|
|
|
|
|
$edit = array();
|
|
|
|
$edit['SimpleTestTestCase'] = TRUE;
|
|
|
|
$this->drupalPost(NULL, $edit, t('Run tests'));
|
|
|
|
|
|
|
|
$this->getTestResults();
|
|
|
|
|
|
|
|
$this->confirmStubTestResults();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Test to be run and the results confirmed.
|
|
|
|
*/
|
|
|
|
function stubTest() {
|
|
|
|
$this->pass($this->pass);
|
|
|
|
$this->fail($this->fail);
|
2008-06-08 19:09:50 +00:00
|
|
|
|
|
|
|
$this->drupalCreateUser(array($this->valid_permission));
|
|
|
|
$this->drupalCreateUser(array($this->invalid_permission));
|
2008-05-28 14:07:46 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Confirm that the stub test produced the desired results.
|
|
|
|
*/
|
|
|
|
function confirmStubTestResults() {
|
2008-06-24 21:51:03 +00:00
|
|
|
$this->assertAssertion($this->pass, 'Other', 'Pass');
|
|
|
|
$this->assertAssertion($this->fail, 'Other', 'Fail');
|
2008-06-08 19:09:50 +00:00
|
|
|
|
2008-06-24 21:51:03 +00:00
|
|
|
$this->assertAssertion(t('Created permissions: @perms', array('@perms' => $this->valid_permission)), 'Role', 'Pass');
|
|
|
|
$this->assertAssertion(t('Invalid permission %permission.', array('%permission' => $this->invalid_permission)), 'Role', 'Fail');
|
2008-05-28 14:07:46 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Assert that an assertion with the specified values is displayed
|
|
|
|
* in the test results.
|
|
|
|
*
|
|
|
|
* @param string $message Assertion message.
|
|
|
|
* @param string $type Assertion type.
|
|
|
|
* @param string $status Assertion status.
|
|
|
|
* @return Assertion result.
|
|
|
|
*/
|
|
|
|
function assertAssertion($message, $type, $status) {
|
2008-06-08 19:09:50 +00:00
|
|
|
$message = trim(strip_tags($message));
|
2008-05-28 14:07:46 +00:00
|
|
|
$found = FALSE;
|
|
|
|
foreach ($this->results['assertions'] as $assertion) {
|
|
|
|
if ($assertion['message'] == $message &&
|
|
|
|
$assertion['type'] == $type &&
|
|
|
|
$assertion['status'] == $status) {
|
|
|
|
$found = TRUE;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return $this->assertTrue($found, t('Found assertion {"@message", "@type", "@status"}.', array('@message' => $message, '@type' => $type, '@status' => $status)));
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Get the results from a test and store them in the class array $results.
|
|
|
|
*/
|
|
|
|
function getTestResults() {
|
|
|
|
$results = array();
|
|
|
|
|
|
|
|
if ($this->parse()) {
|
|
|
|
if ($fieldset = $this->getResultFieldSet()) {
|
|
|
|
// Code assumes this is the only test in group.
|
2008-06-24 21:51:03 +00:00
|
|
|
$results['summary'] = $this->asText($fieldset->div);
|
2008-05-28 14:07:46 +00:00
|
|
|
$results['name'] = $this->asText($fieldset->fieldset->legend);
|
|
|
|
|
|
|
|
$results['assertions'] = array();
|
2008-06-24 21:51:03 +00:00
|
|
|
$tbody = $fieldset->fieldset->table->tbody;
|
2008-05-28 14:07:46 +00:00
|
|
|
foreach ($tbody->tr as $row) {
|
|
|
|
$assertion = array();
|
|
|
|
$assertion['message'] = $this->asText($row->td[0]);
|
|
|
|
$assertion['type'] = $this->asText($row->td[1]);
|
2008-06-24 21:51:03 +00:00
|
|
|
$ok_url = (url('misc/watchdog-ok.png') == 'misc/watchdog-ok.png') ? 'misc/watchdog-ok.png' : (base_path() . 'misc/watchdog-ok.png');
|
|
|
|
$assertion['status'] = ($row->td[5]->img['src'] == $ok_url) ? 'Pass' : 'Fail';
|
2008-05-28 14:07:46 +00:00
|
|
|
$results['assertions'][] = $assertion;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$this->results = $results;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Get the fieldset containing the results for group this test is in.
|
|
|
|
*
|
|
|
|
* @return fieldset containing the results for group this test is in.
|
|
|
|
*/
|
|
|
|
function getResultFieldSet() {
|
|
|
|
$fieldsets = $this->elements->xpath('//fieldset');
|
|
|
|
$info = $this->getInfo();
|
|
|
|
foreach ($fieldsets as $fieldset) {
|
|
|
|
if ($fieldset->legend == $info['group']) {
|
|
|
|
return $fieldset;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Extract the text contained by the element.
|
|
|
|
*
|
2008-06-24 21:51:03 +00:00
|
|
|
* @param $element
|
|
|
|
* Element to extract text from.
|
|
|
|
* @return
|
|
|
|
* Extracted text.
|
2008-05-28 14:07:46 +00:00
|
|
|
*/
|
|
|
|
function asText(SimpleXMLElement $element) {
|
2008-06-24 21:51:03 +00:00
|
|
|
if (!is_object($element)) {
|
|
|
|
return $this->fail('The element is not an element.');
|
|
|
|
}
|
2008-06-08 19:09:50 +00:00
|
|
|
return trim(strip_tags($element->asXML()));
|
2008-05-28 14:07:46 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Check if the test is being run from inside a CURL request.
|
|
|
|
*
|
|
|
|
* @return The test is being run from inside a CURL request.
|
|
|
|
*/
|
|
|
|
function inCURL() {
|
|
|
|
return preg_match("/^simpletest\d+/", $_SERVER['HTTP_USER_AGENT']);
|
|
|
|
}
|
|
|
|
}
|