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

enable testing of $session->request->uploads through WebGUI::PseudoRequest. Now we need a good utility method for sending a list of files to a sub and having it return a list of filehandles to those files

Browse source
This commit is contained in:
Colin Kuskie 2007-11-10 00:02:44 +00:00
parent 175304e915
commit 4de53b2de9
2 changed files with 34 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
t/lib/WebGUI/PseudoRequest.pm
View file

@ -145,6 +145,17 @@ sub status_line {
return $self->{status_line};
}
sub upload {
my $self = shift;
my $formName = shift;
my $uploadFileHandles = shift;
return unless $formName;
if (defined $uploadFileHandles) {
$self->{uploads}->{$formName} = $uploadFileHandles;
}
return @{ $self->{uploads}->{$formName} };
}
sub uri {
my $self = shift;
my $value = shift;