X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FTest-np.px;h=4afc27c6fdc75b1b051fe9e3d560f53a91694b82;hp=28d13eeced2d7d69f58b7362583197d8996c8756;hb=HEAD;hpb=1a33947ca02dbb568eda1eb0a020abe39e87d86d diff --git a/tests/Test-np.px b/tests/Test-np.px index 28d13eec..4afc27c6 100755 --- a/tests/Test-np.px +++ b/tests/Test-np.px @@ -1,6 +1,7 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl use strict; +use warnings; use HTTPTest; @@ -54,7 +55,7 @@ my $fourthpage = <

This page is only linked by the higher level page. Therefore, it should not - be downloaded. + be downloaded.

@@ -68,7 +69,7 @@ my $higherlevelpage = <

This page is on a higher level in the URL path hierarchy. Therefore, it - should not be downloaded. Wget should not visit the following link to a + should not be downloaded. Wget should not visit the following link to a fourth page.

@@ -138,9 +139,9 @@ my %expected_downloaded_files = ( ############################################################################### my $the_test = HTTPTest->new (name => "Test-np", - input => \%urls, - cmdline => $cmdline, - errcode => $expected_error_code, + input => \%urls, + cmdline => $cmdline, + errcode => $expected_error_code, output => \%expected_downloaded_files); exit $the_test->run();