Catch failures in Test-N-current.px.

[wget] / tests / HTTPTest.pm

diff --git a/tests/HTTPTest.pm b/tests/HTTPTest.pm
old mode 100755 (executable)
new mode 100644 (file)
index 20e9442..cd4fb2e
--- a/tests/HTTPTest.pm
+++ b/tests/HTTPTest.pm
@@ -5,9 +5,9 @@ package HTTPTest;
 use strict;
 
 use HTTPServer;
-use Test;
+use WgetTest;
 
-our @ISA = qw(Test);
+our @ISA = qw(WgetTest);
 my $VERSION = 0.01;
 
 
@@ -15,18 +15,18 @@ my $VERSION = 0.01;
     my %_attr_data = ( # DEFAULT
     );
     
-       sub _default_for
-       {
-               my ($self, $attr) = @_;
+    sub _default_for
+    {
+        my ($self, $attr) = @_;
         return $_attr_data{$attr} if exists $_attr_data{$attr};
-               return $self->SUPER::_default_for($attr);
-       }
+        return $self->SUPER::_default_for($attr);
+    }
 
-       sub _standard_keys 
-       {
+    sub _standard_keys 
+    {
         my ($self) = @_;
-               ($self->SUPER::_standard_keys(), keys %_attr_data);
-       }
+        ($self->SUPER::_standard_keys(), keys %_attr_data);
+    }
 }
     
 
@@ -35,11 +35,12 @@ sub _setup_server {}
 
 sub _launch_server {
     my $self = shift;
+    my $synch_func = shift;
 
     my $server = HTTPServer->new (LocalAddr => 'localhost',
                                   LocalPort => '8080',
                                   ReuseAddr => 1) or die "Cannot create server!!!";
-    $server->run ($self->{_input});
+    $server->run ($self->{_input}, $synch_func);
 }
 
 1;