X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FTest-np.px;h=4afc27c6fdc75b1b051fe9e3d560f53a91694b82;hp=dcb165fda033a21a2867301d57ae3e65e891b3dc;hb=320cfdcb658e8d6556ae9dfd902c2db1db866a6b;hpb=227d03c80379c269eaf7ee57da711f22d13b33b8 diff --git a/tests/Test-np.px b/tests/Test-np.px old mode 100644 new mode 100755 index dcb165fd..4afc27c6 --- 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; @@ -14,7 +15,7 @@ my $mainpage = <

- Some text and a link to a second page. + Some text and a link to a second page.

@@ -27,7 +28,7 @@ my $secondpage = <

- Some text and a link to a third page. + Some text and a link to a third page.

@@ -40,7 +41,7 @@ my $thirdpage = <

- Some text and a link to a higher level page. + Some text and a link to a higher level page.

@@ -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,8 +69,8 @@ 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 - fourth page. + should not be downloaded. Wget should not visit the following link to a + fourth page.

@@ -119,7 +120,7 @@ my %urls = ( }, ); -my $cmdline = "wget -np -nH -r http://localhost:8080/firstlevel/"; +my $cmdline = $WgetTest::WGETPATH . " -np -nH -r http://localhost:{{port}}/firstlevel/"; my $expected_error_code = 0; @@ -138,11 +139,11 @@ 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); -$the_test->run(); +exit $the_test->run(); # vim: et ts=4 sw=4