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

fixing tests for new output method

Browse source
This commit is contained in:
Graham Knop 2008-04-10 22:15:15 +00:00
parent 74381281fa
commit d2116bf797
3 changed files with 31 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -349,6 +349,26 @@ sub setup_param {
#----------------------------------------------------------------------------
sub clear_output {
my $self = shift;
$self->{output} = '';
}
sub get_output {
my $self = shift;
return $self->{output};
}
sub print {
my $self = shift;
$self->{output} ||= '';
for my $p (@_) {
$self->{output} .= $p;
}
}
#----------------------------------------------------------------------------
=head2 protocol ( $value )
Getter and setter for protocol. If $value is passed in, it will set the protocol of