Merged revisions 53150,53681,53700,53820,54200,54459 via svnmerge from
svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/branches/roa
........
r53150 | ischommer | 2008-04-22 11:12:43 +1200 (Tue, 22 Apr 2008) | 1 line
FEATURE Added a "test mode" for /db/build which allows mock-DataObject-subclasses which are just built in a test run
........
r53681 | mrickerby | 2008-04-29 15:26:52 +1200 (Tue, 29 Apr 2008) | 1 line
adding default wrapping header and footer methods, and configurable reporting to the TestRunner
........
r53700 | mrickerby | 2008-04-29 16:41:57 +1200 (Tue, 29 Apr 2008) | 1 line
FEATURE: adding support for /dev/tests --> DevelopmentAdmin-->tests() --> TestRunner, /dev/tasks --> DevelopmentAdmin-->tasks() --> TaskRunner
........
r53820 | mrickerby | 2008-04-30 19:27:52 +1200 (Wed, 30 Apr 2008) | 1 line
BUGFIX fixing up BuildTask interface and task runner action
........
r54200 | sminnee | 2008-05-09 00:28:44 +1200 (Fri, 09 May 2008) | 1 line
Added TestSession object to help with the testing of forms
........
r54459 | sminnee | 2008-05-13 17:28:25 +1200 (Tue, 13 May 2008) | 1 line
Added a basic menu of options to /dev
........
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/trunk@54456 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-05-13 07:57:09 +02:00
|
|
|
<?php
|
|
|
|
/**
|
|
|
|
* Represents a test usage session of a web-app
|
|
|
|
* It will maintain session-state from request to request
|
2008-06-15 15:33:53 +02:00
|
|
|
* @package sapphire
|
|
|
|
* @subpackage testing
|
Merged revisions 53150,53681,53700,53820,54200,54459 via svnmerge from
svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/branches/roa
........
r53150 | ischommer | 2008-04-22 11:12:43 +1200 (Tue, 22 Apr 2008) | 1 line
FEATURE Added a "test mode" for /db/build which allows mock-DataObject-subclasses which are just built in a test run
........
r53681 | mrickerby | 2008-04-29 15:26:52 +1200 (Tue, 29 Apr 2008) | 1 line
adding default wrapping header and footer methods, and configurable reporting to the TestRunner
........
r53700 | mrickerby | 2008-04-29 16:41:57 +1200 (Tue, 29 Apr 2008) | 1 line
FEATURE: adding support for /dev/tests --> DevelopmentAdmin-->tests() --> TestRunner, /dev/tasks --> DevelopmentAdmin-->tasks() --> TaskRunner
........
r53820 | mrickerby | 2008-04-30 19:27:52 +1200 (Wed, 30 Apr 2008) | 1 line
BUGFIX fixing up BuildTask interface and task runner action
........
r54200 | sminnee | 2008-05-09 00:28:44 +1200 (Fri, 09 May 2008) | 1 line
Added TestSession object to help with the testing of forms
........
r54459 | sminnee | 2008-05-13 17:28:25 +1200 (Tue, 13 May 2008) | 1 line
Added a basic menu of options to /dev
........
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/trunk@54456 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-05-13 07:57:09 +02:00
|
|
|
*/
|
|
|
|
class TestSession {
|
|
|
|
private $session;
|
|
|
|
private $lastResponse;
|
|
|
|
|
|
|
|
function __construct() {
|
|
|
|
$this->session = new Session(array());
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Submit a get request
|
|
|
|
*/
|
|
|
|
function get($url) {
|
|
|
|
$this->lastResponse = Director::test($url, null, $this->session);
|
|
|
|
return $this->lastResponse;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Submit a post request
|
|
|
|
*/
|
|
|
|
function post($url, $data) {
|
|
|
|
$this->lastResponse = Director::test($url, $data, $this->session);
|
|
|
|
return $this->lastResponse;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Submit the form with the given HTML ID, filling it out with the given data.
|
|
|
|
* Acts on the most recent response
|
|
|
|
*/
|
|
|
|
function submitForm($formID, $button = null, $data = array()) {
|
|
|
|
$page = $this->lastPage();
|
|
|
|
$form = $page->getFormById($formID);
|
|
|
|
|
|
|
|
foreach($data as $k => $v) {
|
|
|
|
$form->setField(new SimpleByName($k), $v);
|
|
|
|
}
|
|
|
|
|
|
|
|
if($button) $submission = $form->submitButton(new SimpleByName($button));
|
|
|
|
else $submission = $form->submit();
|
|
|
|
|
|
|
|
$url = Director::makeRelative($form->getAction()->asString());
|
|
|
|
|
|
|
|
$postVars = array();
|
|
|
|
parse_str($submission->_encode(), $postVars);
|
|
|
|
return $this->post($url, $postVars);
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* If the last request was a 3xx response, then follow the redirection
|
|
|
|
*/
|
|
|
|
function followRedirection() {
|
|
|
|
if($this->lastResponse->getHeader('Location')) {
|
|
|
|
$url = Director::makeRelative($this->lastResponse->getHeader('Location'));
|
|
|
|
$url = strtok($url, '#');
|
|
|
|
return $this->get($url);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Returns true if the last response was a 3xx redirection
|
|
|
|
*/
|
|
|
|
function wasRedirected() {
|
|
|
|
$code = $this->lastResponse->getStatusCode();
|
|
|
|
return $code >= 300 && $code < 400;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Get the most recent response, as an HTTPResponse object
|
|
|
|
*/
|
|
|
|
function lastResponse() {
|
|
|
|
return $this->lastResponse;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Get the most recent response's content
|
|
|
|
*/
|
|
|
|
function lastContent() {
|
2008-05-26 08:21:30 +02:00
|
|
|
if(is_string($this->lastResponse)) return $this->lastResponse;
|
|
|
|
else return $this->lastResponse->getBody();
|
Merged revisions 53150,53681,53700,53820,54200,54459 via svnmerge from
svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/branches/roa
........
r53150 | ischommer | 2008-04-22 11:12:43 +1200 (Tue, 22 Apr 2008) | 1 line
FEATURE Added a "test mode" for /db/build which allows mock-DataObject-subclasses which are just built in a test run
........
r53681 | mrickerby | 2008-04-29 15:26:52 +1200 (Tue, 29 Apr 2008) | 1 line
adding default wrapping header and footer methods, and configurable reporting to the TestRunner
........
r53700 | mrickerby | 2008-04-29 16:41:57 +1200 (Tue, 29 Apr 2008) | 1 line
FEATURE: adding support for /dev/tests --> DevelopmentAdmin-->tests() --> TestRunner, /dev/tasks --> DevelopmentAdmin-->tasks() --> TaskRunner
........
r53820 | mrickerby | 2008-04-30 19:27:52 +1200 (Wed, 30 Apr 2008) | 1 line
BUGFIX fixing up BuildTask interface and task runner action
........
r54200 | sminnee | 2008-05-09 00:28:44 +1200 (Fri, 09 May 2008) | 1 line
Added TestSession object to help with the testing of forms
........
r54459 | sminnee | 2008-05-13 17:28:25 +1200 (Tue, 13 May 2008) | 1 line
Added a basic menu of options to /dev
........
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/trunk@54456 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-05-13 07:57:09 +02:00
|
|
|
}
|
|
|
|
|
2008-05-15 09:15:33 +02:00
|
|
|
function cssParser() {
|
|
|
|
return new CSSContentParser($this->lastContent());
|
|
|
|
}
|
|
|
|
|
|
|
|
|
Merged revisions 53150,53681,53700,53820,54200,54459 via svnmerge from
svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/branches/roa
........
r53150 | ischommer | 2008-04-22 11:12:43 +1200 (Tue, 22 Apr 2008) | 1 line
FEATURE Added a "test mode" for /db/build which allows mock-DataObject-subclasses which are just built in a test run
........
r53681 | mrickerby | 2008-04-29 15:26:52 +1200 (Tue, 29 Apr 2008) | 1 line
adding default wrapping header and footer methods, and configurable reporting to the TestRunner
........
r53700 | mrickerby | 2008-04-29 16:41:57 +1200 (Tue, 29 Apr 2008) | 1 line
FEATURE: adding support for /dev/tests --> DevelopmentAdmin-->tests() --> TestRunner, /dev/tasks --> DevelopmentAdmin-->tasks() --> TaskRunner
........
r53820 | mrickerby | 2008-04-30 19:27:52 +1200 (Wed, 30 Apr 2008) | 1 line
BUGFIX fixing up BuildTask interface and task runner action
........
r54200 | sminnee | 2008-05-09 00:28:44 +1200 (Fri, 09 May 2008) | 1 line
Added TestSession object to help with the testing of forms
........
r54459 | sminnee | 2008-05-13 17:28:25 +1200 (Tue, 13 May 2008) | 1 line
Added a basic menu of options to /dev
........
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/trunk@54456 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-05-13 07:57:09 +02:00
|
|
|
/**
|
|
|
|
* Get the last response as a SimplePage object
|
|
|
|
*/
|
|
|
|
function lastPage() {
|
2008-06-15 16:20:44 +02:00
|
|
|
require_once("thirdparty/simpletest/http.php");
|
|
|
|
require_once("thirdparty/simpletest/page.php");
|
|
|
|
require_once("thirdparty/simpletest/form.php");
|
Merged revisions 53150,53681,53700,53820,54200,54459 via svnmerge from
svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/branches/roa
........
r53150 | ischommer | 2008-04-22 11:12:43 +1200 (Tue, 22 Apr 2008) | 1 line
FEATURE Added a "test mode" for /db/build which allows mock-DataObject-subclasses which are just built in a test run
........
r53681 | mrickerby | 2008-04-29 15:26:52 +1200 (Tue, 29 Apr 2008) | 1 line
adding default wrapping header and footer methods, and configurable reporting to the TestRunner
........
r53700 | mrickerby | 2008-04-29 16:41:57 +1200 (Tue, 29 Apr 2008) | 1 line
FEATURE: adding support for /dev/tests --> DevelopmentAdmin-->tests() --> TestRunner, /dev/tasks --> DevelopmentAdmin-->tasks() --> TaskRunner
........
r53820 | mrickerby | 2008-04-30 19:27:52 +1200 (Wed, 30 Apr 2008) | 1 line
BUGFIX fixing up BuildTask interface and task runner action
........
r54200 | sminnee | 2008-05-09 00:28:44 +1200 (Fri, 09 May 2008) | 1 line
Added TestSession object to help with the testing of forms
........
r54459 | sminnee | 2008-05-13 17:28:25 +1200 (Tue, 13 May 2008) | 1 line
Added a basic menu of options to /dev
........
git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/trunk@54456 467b73ca-7a2a-4603-9d3b-597d59a354a9
2008-05-13 07:57:09 +02:00
|
|
|
|
|
|
|
$builder = &new SimplePageBuilder();
|
|
|
|
$page = &$builder->parse(new TestSession_STResponseWrapper($this->lastResponse));
|
|
|
|
$builder->free();
|
|
|
|
unset($builder);
|
|
|
|
|
|
|
|
return $page;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Get the current session, as a Session object
|
|
|
|
*/
|
|
|
|
function session() {
|
|
|
|
return $this->session;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Wrapper around HTTPResponse to make it look like a SimpleHTTPResposne
|
|
|
|
*/
|
|
|
|
class TestSession_STResponseWrapper {
|
|
|
|
private $response;
|
|
|
|
|
|
|
|
function __construct(HTTPResponse $response) {
|
|
|
|
$this->response = $response;
|
|
|
|
}
|
|
|
|
|
|
|
|
function getContent() {
|
|
|
|
return $this->response->getBody();
|
|
|
|
}
|
|
|
|
|
|
|
|
function getError() {
|
|
|
|
return "";
|
|
|
|
}
|
|
|
|
|
|
|
|
function getSent() {
|
|
|
|
return null;
|
|
|
|
}
|
|
|
|
|
|
|
|
function getHeaders() {
|
|
|
|
return "";
|
|
|
|
}
|
|
|
|
|
|
|
|
function getMethod() {
|
|
|
|
return "GET";
|
|
|
|
}
|
|
|
|
|
|
|
|
function getUrl() {
|
|
|
|
return "";
|
|
|
|
}
|
|
|
|
|
|
|
|
function getRequestData() {
|
|
|
|
return null;
|
|
|
|
}
|
|
|
|
}
|