1
0
mirror of https://github.com/moparisthebest/wget synced 2024-07-03 16:38:41 -04:00

use test filename as default test name

This commit is contained in:
Tim Rühsen 2014-10-02 11:26:59 +02:00 committed by Giuseppe Scrivano
parent 21fc7546ef
commit ff876a3710
83 changed files with 89 additions and 148 deletions

View File

@ -1,3 +1,8 @@
2014-10-02 Tim Ruehsen <tim.ruehsen@gmx.de>
* tests/WgetTests.pm: use filename as default test name
* tests/Test-*.px: removed redundant 'name => ...'
2014-10-01 Tim Ruehsen <tim.ruehsen@gmx.de>
* tests/Makefile.am: remove run-px, fixing dist-check

View File

@ -68,12 +68,10 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--httpsonly-r",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);
print $expected_error_code."\n";
exit $the_test->run();

View File

@ -45,8 +45,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--no-content-disposition-trivial",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -46,8 +46,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--no-content-disposition",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -15,8 +15,7 @@ my $expected_error_code = 3;
###############################################################################
my $the_test = HTTPTest->new (name => "Test--post-file",
cmdline => $cmdline,
my $the_test = HTTPTest->new (cmdline => $cmdline,
errcode => $expected_error_code);
exit $the_test->run();

View File

@ -42,8 +42,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--spider-fail",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -99,8 +99,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--spider-r--no-content-disposition-trivial",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -100,8 +100,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--spider-r--no-content-disposition",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -100,8 +100,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--spider-r-HTTP-Content-Disposition",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -99,8 +99,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--spider-r",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -42,8 +42,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--spider",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -44,8 +44,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--start-pos--continue",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -34,8 +34,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test--start-pos",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -25,8 +25,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-204",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -79,8 +79,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-E-k-K",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -76,8 +76,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-E-k",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -65,8 +65,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-HTTP-Content-Disposition-1",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -65,8 +65,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-HTTP-Content-Disposition-2",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -46,8 +46,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-HTTP-Content-Disposition",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -38,8 +38,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-N--no-content-disposition-trivial",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -39,8 +39,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-N--no-content-disposition",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -40,8 +40,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-N-HTTP-Content-Disposition",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -54,8 +54,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-N-current",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -52,8 +52,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-N-no-info",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -52,8 +52,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-N-old",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -55,8 +55,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-N-smaller",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -38,8 +38,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-N",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -36,8 +36,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-O--no-content-disposition-trivial",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -37,8 +37,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-O--no-content-disposition",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -37,8 +37,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-O-HTTP-Content-Disposition",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -36,8 +36,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-O-nc",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -36,8 +36,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-O-nonexisting",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -36,8 +36,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-O",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -45,8 +45,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-Restrict-Lowercase",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -45,8 +45,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-Restrict-Uppercase",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -38,8 +38,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-auth-basic",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -39,8 +39,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-auth-no-challenge-url",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -40,8 +40,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-auth-no-challenge",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -28,8 +28,7 @@ my %expected_downloaded_files = ();
###############################################################################
my $the_test = HTTPTest->new (name => "Test-auth-retcode",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -39,8 +39,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-auth-with-content-disposition",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -46,8 +46,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-c-full",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -56,8 +56,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-c-partial",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -53,8 +53,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-c-shorter",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -43,8 +43,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-c",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -42,8 +42,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-cookies-401",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -103,8 +103,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-cookies",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -29,7 +29,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp--start-pos",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -56,7 +56,7 @@ my %preexisting_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-bad-list",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -41,7 +41,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-iri-disabled",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -37,7 +37,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-iri-fallback",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -37,7 +37,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-iri-recursive",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -38,7 +38,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-iri",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -56,7 +56,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-list-Multinet",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -55,7 +55,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-list-UNIX-hidden",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -66,7 +66,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-list-Unknown-a",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -58,7 +58,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-list-Unknown-hidden",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -51,7 +51,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-list-Unknown-list-a-fails",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -54,7 +54,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-list-Unknown",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -46,7 +46,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-pasv-fail",
my $the_test = FTPTest->new (
server_behavior => {fail_on_pasv => 1},
input => \%urls,
cmdline => $cmdline,

View File

@ -44,7 +44,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp-recursive",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -34,7 +34,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-ftp",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -69,7 +69,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = FTPTest->new (name => "Test-i-ftp",
my $the_test = FTPTest->new (
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

View File

@ -81,8 +81,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-i-http",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -41,8 +41,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-idn-cmd-utf8",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -41,8 +41,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-idn-cmd",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -56,8 +56,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-idn-headers",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -57,8 +57,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-idn-meta",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -68,8 +68,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-idn-robots-utf8",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -93,8 +93,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-idn-robots",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -186,8 +186,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-iri-disabled",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -198,8 +198,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-iri-forced-remote",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -164,8 +164,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-iri-list",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -77,8 +77,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-iri-percent",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -213,8 +213,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-iri",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -76,8 +76,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-k",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -104,8 +104,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-meta-robots",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -33,8 +33,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-nonexisting-quiet",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -46,8 +46,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-noop",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

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

View File

@ -38,8 +38,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-proxy-auth-basic",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -58,8 +58,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-restrict-ascii",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
output => \%expected_downloaded_files);

View File

@ -36,8 +36,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test-stdouterr",
input => \%urls,
my $the_test = HTTPTest->new (input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,
existing => \%existing_files,

View File

@ -20,7 +20,7 @@ my @unexpected_downloads = ();
_errcode => 0,
_existing => {},
_input => {},
_name => "",
_name => $0,
_output => {},
_server_behavior => {},
);
@ -70,6 +70,8 @@ sub run {
my $result_message = "Test successful.\n";
my $errcode;
$self->{_name} =~ s{.*/}{}; # remove path
$self->{_name} =~ s{\.[^.]+$}{}; # remove extension
printf "Running test $self->{_name}\n";
# Setup