github-repos/wget
1
0
Fork 0
mirror of https://github.com/mirror/wget.git synced 2026-08-19 09:23:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

Stylistic and idiomatic cleanups in Perl tests

Browse Source
This commit is contained in:
Pär Karlsson
2014-11-01 10:06:26 +01:00
committed by Darshit Shah
parent 9f83e0e13c
commit 8078adee7f
7 changed files with 790 additions and 489 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
tests/HTTPTest.pm
View File

@@ -9,9 +9,8 @@ use WgetTests;
our @ISA = qw(WgetTest);
my $VERSION = 0.01;
{
my %_attr_data = ( # DEFAULT
my %_attr_data = ( # DEFAULT
);
sub _default_for
@@ -28,25 +27,26 @@ my $VERSION = 0.01;
}
}
sub _setup_server {
sub _setup_server
{
my $self = shift;
$self->{_server} = HTTPServer->new (LocalAddr => 'localhost',
ReuseAddr => 1)
or die "Cannot create server!!!";
$self->{_server} = HTTPServer->new(LocalAddr => 'localhost',
ReuseAddr => 1)
or die "Cannot create server!!!";
}
sub _launch_server {
my $self = shift;
sub _launch_server
{
my $self = shift;
my $synch_func = shift;
$self->{_server}->run ($self->{_input}, $synch_func);
$self->{_server}->run($self->{_input}, $synch_func);
}
sub _substitute_port {
sub _substitute_port
{
my $self = shift;
my $ret = shift;
my $ret = shift;
$ret =~ s/{{port}}/$self->{_server}->sockport/eg;
return $ret;
}