X-Git-Url: http://sjero.net/git/?a=blobdiff_plain;f=tests%2FTest-E-k-K.px;h=07197a3bfa20e27a173c084a65453466c0977120;hb=4a08094db88011153adadbf995103770b20d2a31;hp=71d51ea15808505b808f521baf5689adaa5cec82;hpb=829f83bf5bce33e856971b55a8e00c3560da7b4b;p=wget diff --git a/tests/Test-E-k-K.px b/tests/Test-E-k-K.px index 71d51ea1..07197a3b 100755 --- a/tests/Test-E-k-K.px +++ b/tests/Test-E-k-K.px @@ -1,6 +1,7 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl use strict; +use warnings; use HTTPTest; @@ -13,7 +14,7 @@ my $mainpage = <Main Page Title - Secondary Page + Secondary Page EOF @@ -60,7 +61,7 @@ my %urls = ( }, ); -my $cmdline = $WgetTest::WGETPATH . " -d -r -nd -E -k -K http://localhost:8080/index.php"; +my $cmdline = $WgetTest::WGETPATH . " -d -r -nd -E -k -K http://localhost:{{port}}/index.php"; my $expected_error_code = 0; @@ -79,9 +80,9 @@ my %expected_downloaded_files = ( ############################################################################### my $the_test = HTTPTest->new (name => "Test-E-k-K", - input => \%urls, - cmdline => $cmdline, - errcode => $expected_error_code, + input => \%urls, + cmdline => $cmdline, + errcode => $expected_error_code, output => \%expected_downloaded_files); exit $the_test->run();