oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

By default, every Session created by WebGUI::Test will have

Browse source 
a PseudoRequest object, instead of being blank.  Update
Storage.t to test this.
This commit is contained in:
Colin Kuskie 2008-02-09 04:22:39 +00:00
parent 25f9c46b17
commit 227be31be5
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Storage.t
View file

@ -368,17 +368,14 @@ $session->config->set('caseInsensitiveOS', 0);
#
####################################################
my $pseudoRequest = WebGUI::PseudoRequest->new();
$session->{_request} = $pseudoRequest;
$session->http->setStatus(413);
is($fileStore->addFileFromFormPost(), '', 'addFileFromFormPost returns empty string when HTTP status is 413');
$session->http->setStatus(200);
$pseudoRequest->upload('files', []);
$session->request->upload('files', []);
is($fileStore->addFileFromFormPost('files'), undef, 'addFileFromFormPost returns empty string when asking for a form variable with no files attached');
$pseudoRequest->uploadFiles(
$session->request->uploadFiles(
'oneFile',
[ File::Spec->catfile( WebGUI::Test->getTestCollateralPath, qw/WebGUI.pm/) ],
);

3
t/lib/WebGUI/Test.pm
View file

@ -117,7 +117,10 @@ BEGIN {
exit(1);
}
my $pseudoRequest = WebGUI::PseudoRequest->new;
#$SESSION = WebGUI::Session->open( $WEBGUI_ROOT, $CONFIG_FILE, $pseudoRequest );
$SESSION = WebGUI::Session->open( $WEBGUI_ROOT, $CONFIG_FILE );
$SESSION->{_request} = $pseudoRequest;
my $logger = $SESSION->errorHandler->getLogger;
$logger = Test::MockObject::Extends->new( $logger );