1package HTTPTest;
2
3use strict;
4use warnings;
5
6use HTTPServer;
7use WgetTest;
8
9our @ISA = qw(WgetTest);
10my $VERSION = 0.01;
11
12
13{
14    my %_attr_data = ( # DEFAULT
15    );
16
17    sub _default_for
18    {
19        my ($self, $attr) = @_;
20        return $_attr_data{$attr} if exists $_attr_data{$attr};
21        return $self->SUPER::_default_for($attr);
22    }
23
24    sub _standard_keys
25    {
26        my ($self) = @_;
27        ($self->SUPER::_standard_keys(), keys %_attr_data);
28    }
29}
30
31
32sub _setup_server {
33    my $self = shift;
34    $self->{_server} = HTTPServer->new (LocalAddr => 'localhost',
35                                        ReuseAddr => 1)
36                                    or die "Cannot create server!!!";
37}
38
39
40sub _launch_server {
41    my $self = shift;
42    my $synch_func = shift;
43
44    $self->{_server}->run ($self->{_input}, $synch_func);
45}
46
47sub _substitute_port {
48    my $self = shift;
49    my $ret = shift;
50    $ret =~ s/{{port}}/$self->{_server}->sockport/eg;
51    return $ret;
52}
53
541;
55
56# vim: et ts=4 sw=4
57
58