X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FTest--spider-r.px;h=b32f792dd4e362e67a6ee7d4e02b832f2d44624a;hp=94ca2c7a905a46e39385a46ee666c48e5231740b;hb=d763f8bf6d6e13ce006ffab616cc8a77e747a633;hpb=f0b4f352bfedd1ac5b639db801445261f19a73ff diff --git a/tests/Test--spider-r.px b/tests/Test--spider-r.px index 94ca2c7a..b32f792d 100755 --- a/tests/Test--spider-r.px +++ b/tests/Test--spider-r.px @@ -1,6 +1,7 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl use strict; +use warnings; use HTTPTest; @@ -14,8 +15,8 @@ my $mainpage = <

- Some text and a link to a second page. - Also, a broken link. + Some text and a link to a second page. + Also, a broken link.

@@ -28,8 +29,8 @@ my $secondpage = <

- Some text and a link to a third page. - Also, a broken link. + Some text and a link to a third page. + Also, a broken link.

@@ -42,8 +43,8 @@ my $thirdpage = <

- Some text and a link to a text file. - Also, another broken link. + Some text and a link to a text file. + Also, another broken link.

@@ -89,7 +90,7 @@ my %urls = ( }, ); -my $cmdline = "wget --spider -r http://localhost:8080/"; +my $cmdline = $WgetTest::WGETPATH . " --spider -r http://localhost:{{port}}/"; my $expected_error_code = 0; @@ -103,7 +104,7 @@ my $the_test = HTTPTest->new (name => "Test--spider-r", cmdline => $cmdline, errcode => $expected_error_code, output => \%expected_downloaded_files); -$the_test->run(); +exit $the_test->run(); # vim: et ts=4 sw=4