X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FTest--spider-r--no-content-disposition-trivial.px;h=88b53c4871d05d5964eade638643b0aba9368726;hp=0e290c28b2d2cd2d18409af59f3e266033310d47;hb=HEAD;hpb=caae3b70f46bd519857b595f7f06ea0179551336 diff --git a/tests/Test--spider-r--no-content-disposition-trivial.px b/tests/Test--spider-r--no-content-disposition-trivial.px index 0e290c28..88b53c48 100755 --- a/tests/Test--spider-r--no-content-disposition-trivial.px +++ b/tests/Test--spider-r--no-content-disposition-trivial.px @@ -1,6 +1,7 @@ -#!/usr/bin/perl -w +#!/usr/bin/env 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,9 +90,9 @@ my %urls = ( }, ); -my $cmdline = $WgetTest::WGETPATH . " --spider -r --no-content-disposition http://localhost:8080/"; +my $cmdline = $WgetTest::WGETPATH . " --spider -r --no-content-disposition http://localhost:{{port}}/"; -my $expected_error_code = 0; +my $expected_error_code = 8; my %expected_downloaded_files = ( ); @@ -99,9 +100,9 @@ my %expected_downloaded_files = ( ############################################################################### my $the_test = HTTPTest->new (name => "Test--spider-r--no-content-disposition-trivial", - input => \%urls, - cmdline => $cmdline, - errcode => $expected_error_code, + input => \%urls, + cmdline => $cmdline, + errcode => $expected_error_code, output => \%expected_downloaded_files); exit $the_test->run();