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

test cleanups

Browse source
This commit is contained in:
Graham Knop 2009-09-23 10:27:23 -05:00
parent 79a544d4ae
commit 328f3dfcec
8 changed files with 590 additions and 455 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,19 +1,5 @@
package WebGUI::PseudoRequest;
use strict;
use Test::MockObject;
Test::MockObject->fake_module(
'Apache2::Cookie',
new => sub {
my $class = shift;
my $self = Test::MockObject->new;
$self->set_isa($class);
$self->set_true(qw(expires domain bake));
}
);
=head1 LEGAL
-------------------------------------------------------------------
@ -26,6 +12,33 @@ Test::MockObject->fake_module(
http://www.plainblack.com info@plainblack.com
-------------------------------------------------------------------
=cut
use strict;
use Test::MockObject;
BEGIN {
Test::MockObject->fake_module(
'Apache2::Cookie',
new => sub {
my $class = shift;
my $self = Test::MockObject->new;
$self->set_isa($class);
$self->set_true(qw(expires domain bake));
},
);
Test::MockObject->fake_module('APR::Request::Apache2',
handle => sub {
return $_[1];
},
);
}
use WebGUI::PseudoRequest::Headers;
use WebGUI::PseudoRequest::Upload;
=head1 NAME
Package WebGUI::PseudoRequest
@ -40,169 +53,6 @@ Why in the world would you want to do this? Well, when doing API testing someti
you run across things that require a request object, but you don't really want to
fire up Apache in order to do it. This will let you bypass that.
=cut
package WebGUI::PseudoRequest::Headers;
#----------------------------------------------------------------------------
=head1 NAME
Package WebGUI::PseudoRequest::Headers
=head2 new
Construct a new PseudoRequest::Headers object. This is just for holding headers.
It doesn't do any magic.
=cut
sub new {
my $this = shift;
my $class = ref($this) || $this;
my $self = { headers => {} };
bless $self, $class;
return $self;
}
#----------------------------------------------------------------------------
=head2 set( $key, $value )
Set a key, value pair in the header object.
=cut
sub set {
my $self = shift;
my $key = shift;
my $value = shift;
$self->{headers}->{$key} = $value;
}
#----------------------------------------------------------------------------
=head2 fetch
Returns the entire internal hashref of headers.
=cut
sub fetch {
my $self = shift;
return $self->{headers};
}
package WebGUI::PseudoRequest::Upload;
#----------------------------------------------------------------------------
=head1 NAME
Package WebGUI::PseudoRequest::Upload
=head2 new ( [$file] )
Construct a new PseudoRequest::Upload object. This is just for holding headers.
It doesn't do any magic.
=head3 $file
The complete path to a file. If this is sent to new, it will go ahead and open
a filehandle to that file for you, saving you the need to call the fh, filename
and filesize methods.
=cut
sub new {
my $this = shift;
my $class = ref($this) || $this;
my $self = {
fh => undef,
size => 0,
filename => '',
output => '',
};
my $file = shift;
if ($file and -e $file) {
$self->{filename} = $file;
$self->{size} = (stat $file)[7];
open my $fh, '<' . $file or
die "Unable to open $file for reading and creating a filehandle: $!\n";
$self->{fh} = $fh;
}
bless $self, $class;
return $self;
}
#----------------------------------------------------------------------------
=head2 fh ( [$value] )
Getter and setter for fh. If $value is passed in, it will set the internal filehandle in
the object to that. Returns the filehandle stored in the object.
=cut
sub fh {
my $self = shift;
my $value = shift;
if (defined $value) {
$self->{fh} = $value;
}
return $self->{fh};
}
#----------------------------------------------------------------------------
=head2 filaname ( [$value] )
Getter and setter for filename. If $value is passed in, it will set the filename in
the object to that. Returns the filename in the object.
=cut
sub filename {
my $self = shift;
my $value = shift;
if (defined $value) {
$self->{filename} = $value;
}
return $self->{filename};
}
#----------------------------------------------------------------------------
=head2 size ( [$value] )
Getter and setter for size. If $value is passed in, it will set the internal size in
the object to that. Returns the size stored in the object.
=cut
sub size {
my $self = shift;
my $value = shift;
if (defined $value) {
$self->{size} = $value;
}
return $self->{size};
}
sub link {
my $self = shift;
my $dest = shift;
return File::Copy::copy($self->filename, $dest);
}
package WebGUI::PseudoRequest;
#----------------------------------------------------------------------------
=head1 NAME
Package WebGUI::PseudoRequest
=head2 new
Construct a new PseudoRequest object. Creates a new Headers object as well and places
@ -568,4 +418,24 @@ sub user {
return $self->{user};
}
#----------------------------------------------------------------------------
=head2 jar ( $value )
Getter and setter for cookie jar. If $value is passed in, it will
set the cookie jar of the object to that. Returns the cookie jar
hash.
=cut
sub jar {
my $self = shift;
my $value = shift;
if (defined $value) {
$self->{jar} = $value;
}
return $self->{jar};
}
1;