On Thursday 02 October 2014 13:07:09 Giuseppe Scrivano wrote:
> Tim Ruehsen <[email protected]> writes:
> > -my $the_test = HTTPTest->new (name =>
> > "Test--spider-r-HTTP-Content-Disposition", +my $the_test = HTTPTest->new
> > (
> >
> > input => \%urls,
> > cmdline => $cmdline,
> > errcode => $expected_error_code,
>
> I think it is a good idea and that we should just do it. The only minor
> issue that I see is "my $the_test = HTTPTest->new (" on a line by
> itself, we should drop the new line and have "input =>" on the same
> line, like:
>
> my $the_test = HTTPTest->new (input => \%urls,
>
> this pattern repeats for all the tests.
Ok, finally found a sed pattern:
sed -i ':x; /HTTPTest->new ($/ { N; s/\n[[:space:]]*//; tx }' *.px
Here is the amended patch.
Tim
>From d8b4679871a78dc7462f2861ce11d6d762599f2e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tim=20R=C3=BChsen?= <[email protected]>
Date: Thu, 2 Oct 2014 11:26:59 +0200
Subject: [PATCH] use test filename as default test name
---
tests/ChangeLog | 5 +++++
tests/Test--httpsonly-r.px | 4 +---
tests/Test--no-content-disposition-trivial.px | 3 +--
tests/Test--no-content-disposition.px | 3 +--
tests/Test--post-file.px | 3 +--
tests/Test--spider-fail.px | 3 +--
tests/Test--spider-r--no-content-disposition-trivial.px | 3 +--
tests/Test--spider-r--no-content-disposition.px | 3 +--
tests/Test--spider-r-HTTP-Content-Disposition.px | 3 +--
tests/Test--spider-r.px | 3 +--
tests/Test--spider.px | 3 +--
tests/Test--start-pos--continue.px | 3 +--
tests/Test--start-pos.px | 3 +--
tests/Test-204.px | 3 +--
tests/Test-E-k-K.px | 3 +--
tests/Test-E-k.px | 3 +--
tests/Test-HTTP-Content-Disposition-1.px | 3 +--
tests/Test-HTTP-Content-Disposition-2.px | 3 +--
tests/Test-HTTP-Content-Disposition.px | 3 +--
tests/Test-N--no-content-disposition-trivial.px | 3 +--
tests/Test-N--no-content-disposition.px | 3 +--
tests/Test-N-HTTP-Content-Disposition.px | 3 +--
tests/Test-N-current.px | 3 +--
tests/Test-N-no-info.px | 3 +--
tests/Test-N-old.px | 3 +--
tests/Test-N-smaller.px | 3 +--
tests/Test-N.px | 3 +--
tests/Test-O--no-content-disposition-trivial.px | 3 +--
tests/Test-O--no-content-disposition.px | 3 +--
tests/Test-O-HTTP-Content-Disposition.px | 3 +--
tests/Test-O-nc.px | 3 +--
tests/Test-O-nonexisting.px | 3 +--
tests/Test-O.px | 3 +--
tests/Test-Restrict-Lowercase.px | 3 +--
tests/Test-Restrict-Uppercase.px | 3 +--
tests/Test-auth-basic.px | 3 +--
tests/Test-auth-no-challenge-url.px | 3 +--
tests/Test-auth-no-challenge.px | 3 +--
tests/Test-auth-retcode.px | 3 +--
tests/Test-auth-with-content-disposition.px | 3 +--
tests/Test-c-full.px | 3 +--
tests/Test-c-partial.px | 3 +--
tests/Test-c-shorter.px | 3 +--
tests/Test-c.px | 3 +--
tests/Test-cookies-401.px | 3 +--
tests/Test-cookies.px | 3 +--
tests/Test-ftp--start-pos.px | 2 +-
tests/Test-ftp-bad-list.px | 2 +-
tests/Test-ftp-iri-disabled.px | 2 +-
tests/Test-ftp-iri-fallback.px | 2 +-
tests/Test-ftp-iri-recursive.px | 2 +-
tests/Test-ftp-iri.px | 2 +-
tests/Test-ftp-list-Multinet.px | 2 +-
tests/Test-ftp-list-UNIX-hidden.px | 2 +-
tests/Test-ftp-list-Unknown-a.px | 2 +-
tests/Test-ftp-list-Unknown-hidden.px | 2 +-
tests/Test-ftp-list-Unknown-list-a-fails.px | 2 +-
tests/Test-ftp-list-Unknown.px | 2 +-
tests/Test-ftp-pasv-fail.px | 2 +-
tests/Test-ftp-recursive.px | 2 +-
tests/Test-ftp.px | 2 +-
tests/Test-i-ftp.px | 2 +-
tests/Test-i-http.px | 3 +--
tests/Test-idn-cmd-utf8.px | 3 +--
tests/Test-idn-cmd.px | 3 +--
tests/Test-idn-headers.px | 3 +--
tests/Test-idn-meta.px | 3 +--
tests/Test-idn-robots-utf8.px | 3 +--
tests/Test-idn-robots.px | 3 +--
tests/Test-iri-disabled.px | 3 +--
tests/Test-iri-forced-remote.px | 3 +--
tests/Test-iri-list.px | 3 +--
tests/Test-iri-percent.px | 3 +--
tests/Test-iri.px | 3 +--
tests/Test-k.px | 3 +--
tests/Test-meta-robots.px | 3 +--
tests/Test-nonexisting-quiet.px | 3 +--
tests/Test-noop.px | 3 +--
tests/Test-np.px | 3 +--
tests/Test-proxy-auth-basic.px | 3 +--
tests/Test-restrict-ascii.px | 3 +--
tests/Test-stdouterr.px | 3 +--
tests/WgetTests.pm | 4 +++-
83 files changed, 89 insertions(+), 148 deletions(-)
diff --git a/tests/ChangeLog b/tests/ChangeLog
index 45293eb..b4ea8cb 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2014-10-02 Tim Ruehsen <[email protected]>
+
+ * tests/WgetTests.pm: use filename as default test name
+ * tests/Test-*.px: removed redundant 'name => ...'
+
2014-10-01 Tim Ruehsen <[email protected]>
* tests/Makefile.am: remove run-px, fixing dist-check
diff --git a/tests/Test--httpsonly-r.px b/tests/Test--httpsonly-r.px
index 8f67cce..69d8c60 100755
--- a/tests/Test--httpsonly-r.px
+++ b/tests/Test--httpsonly-r.px
@@ -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();
diff --git a/tests/Test--no-content-disposition-trivial.px b/tests/Test--no-content-disposition-trivial.px
index b3fbdf2..cf89b4a 100755
--- a/tests/Test--no-content-disposition-trivial.px
+++ b/tests/Test--no-content-disposition-trivial.px
@@ -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);
diff --git a/tests/Test--no-content-disposition.px b/tests/Test--no-content-disposition.px
index 40b54e3..94f4d50 100755
--- a/tests/Test--no-content-disposition.px
+++ b/tests/Test--no-content-disposition.px
@@ -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);
diff --git a/tests/Test--post-file.px b/tests/Test--post-file.px
index 1493858..9c866b6 100755
--- a/tests/Test--post-file.px
+++ b/tests/Test--post-file.px
@@ -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();
diff --git a/tests/Test--spider-fail.px b/tests/Test--spider-fail.px
index 7ffea3b..d0dfad6 100755
--- a/tests/Test--spider-fail.px
+++ b/tests/Test--spider-fail.px
@@ -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);
diff --git a/tests/Test--spider-r--no-content-disposition-trivial.px b/tests/Test--spider-r--no-content-disposition-trivial.px
index e12032c..0f28685 100755
--- a/tests/Test--spider-r--no-content-disposition-trivial.px
+++ b/tests/Test--spider-r--no-content-disposition-trivial.px
@@ -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);
diff --git a/tests/Test--spider-r--no-content-disposition.px b/tests/Test--spider-r--no-content-disposition.px
index 04057e9..53fb7a2 100755
--- a/tests/Test--spider-r--no-content-disposition.px
+++ b/tests/Test--spider-r--no-content-disposition.px
@@ -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);
diff --git a/tests/Test--spider-r-HTTP-Content-Disposition.px b/tests/Test--spider-r-HTTP-Content-Disposition.px
index a4349de..963003e 100755
--- a/tests/Test--spider-r-HTTP-Content-Disposition.px
+++ b/tests/Test--spider-r-HTTP-Content-Disposition.px
@@ -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);
diff --git a/tests/Test--spider-r.px b/tests/Test--spider-r.px
index 383bbe0..dbafe2e 100755
--- a/tests/Test--spider-r.px
+++ b/tests/Test--spider-r.px
@@ -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);
diff --git a/tests/Test--spider.px b/tests/Test--spider.px
index 8edf7d6..2443c95 100755
--- a/tests/Test--spider.px
+++ b/tests/Test--spider.px
@@ -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);
diff --git a/tests/Test--start-pos--continue.px b/tests/Test--start-pos--continue.px
index 13a3243..a821a78 100755
--- a/tests/Test--start-pos--continue.px
+++ b/tests/Test--start-pos--continue.px
@@ -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,
diff --git a/tests/Test--start-pos.px b/tests/Test--start-pos.px
index eaf6192..5c887ab 100755
--- a/tests/Test--start-pos.px
+++ b/tests/Test--start-pos.px
@@ -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);
diff --git a/tests/Test-204.px b/tests/Test-204.px
index 6f3e8dc..e9eea1a 100755
--- a/tests/Test-204.px
+++ b/tests/Test-204.px
@@ -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);
diff --git a/tests/Test-E-k-K.px b/tests/Test-E-k-K.px
index 4c9acc4..aaae6fe 100755
--- a/tests/Test-E-k-K.px
+++ b/tests/Test-E-k-K.px
@@ -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);
diff --git a/tests/Test-E-k.px b/tests/Test-E-k.px
index 66023bd..dc1031b 100755
--- a/tests/Test-E-k.px
+++ b/tests/Test-E-k.px
@@ -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);
diff --git a/tests/Test-HTTP-Content-Disposition-1.px b/tests/Test-HTTP-Content-Disposition-1.px
index 15dd139..343258c 100755
--- a/tests/Test-HTTP-Content-Disposition-1.px
+++ b/tests/Test-HTTP-Content-Disposition-1.px
@@ -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,
diff --git a/tests/Test-HTTP-Content-Disposition-2.px b/tests/Test-HTTP-Content-Disposition-2.px
index db460d4..e7a2703 100755
--- a/tests/Test-HTTP-Content-Disposition-2.px
+++ b/tests/Test-HTTP-Content-Disposition-2.px
@@ -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,
diff --git a/tests/Test-HTTP-Content-Disposition.px b/tests/Test-HTTP-Content-Disposition.px
index ed17b08..29f56d1 100755
--- a/tests/Test-HTTP-Content-Disposition.px
+++ b/tests/Test-HTTP-Content-Disposition.px
@@ -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);
diff --git a/tests/Test-N--no-content-disposition-trivial.px b/tests/Test-N--no-content-disposition-trivial.px
index 8eb2f37..8abff7b 100755
--- a/tests/Test-N--no-content-disposition-trivial.px
+++ b/tests/Test-N--no-content-disposition-trivial.px
@@ -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);
diff --git a/tests/Test-N--no-content-disposition.px b/tests/Test-N--no-content-disposition.px
index 10a8a79..7ece995 100755
--- a/tests/Test-N--no-content-disposition.px
+++ b/tests/Test-N--no-content-disposition.px
@@ -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);
diff --git a/tests/Test-N-HTTP-Content-Disposition.px b/tests/Test-N-HTTP-Content-Disposition.px
index b1e3ad3..de4609b 100755
--- a/tests/Test-N-HTTP-Content-Disposition.px
+++ b/tests/Test-N-HTTP-Content-Disposition.px
@@ -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);
diff --git a/tests/Test-N-current.px b/tests/Test-N-current.px
index 92df2a1..a8decdb 100755
--- a/tests/Test-N-current.px
+++ b/tests/Test-N-current.px
@@ -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,
diff --git a/tests/Test-N-no-info.px b/tests/Test-N-no-info.px
index bd28400..3c772a5 100755
--- a/tests/Test-N-no-info.px
+++ b/tests/Test-N-no-info.px
@@ -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,
diff --git a/tests/Test-N-old.px b/tests/Test-N-old.px
index 9241edf..6bb18cb 100755
--- a/tests/Test-N-old.px
+++ b/tests/Test-N-old.px
@@ -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,
diff --git a/tests/Test-N-smaller.px b/tests/Test-N-smaller.px
index 79c3f01..34d4cd9 100755
--- a/tests/Test-N-smaller.px
+++ b/tests/Test-N-smaller.px
@@ -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,
diff --git a/tests/Test-N.px b/tests/Test-N.px
index e74b472..65cc33f 100755
--- a/tests/Test-N.px
+++ b/tests/Test-N.px
@@ -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);
diff --git a/tests/Test-O--no-content-disposition-trivial.px b/tests/Test-O--no-content-disposition-trivial.px
index a74fb17..cef3caa 100755
--- a/tests/Test-O--no-content-disposition-trivial.px
+++ b/tests/Test-O--no-content-disposition-trivial.px
@@ -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);
diff --git a/tests/Test-O--no-content-disposition.px b/tests/Test-O--no-content-disposition.px
index 2d4d8b1..9d2bf41 100755
--- a/tests/Test-O--no-content-disposition.px
+++ b/tests/Test-O--no-content-disposition.px
@@ -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);
diff --git a/tests/Test-O-HTTP-Content-Disposition.px b/tests/Test-O-HTTP-Content-Disposition.px
index 3bace82..d7a7f76 100755
--- a/tests/Test-O-HTTP-Content-Disposition.px
+++ b/tests/Test-O-HTTP-Content-Disposition.px
@@ -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);
diff --git a/tests/Test-O-nc.px b/tests/Test-O-nc.px
index a3afefc..171bf16 100755
--- a/tests/Test-O-nc.px
+++ b/tests/Test-O-nc.px
@@ -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);
diff --git a/tests/Test-O-nonexisting.px b/tests/Test-O-nonexisting.px
index de3b0b1..d663b65 100755
--- a/tests/Test-O-nonexisting.px
+++ b/tests/Test-O-nonexisting.px
@@ -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);
diff --git a/tests/Test-O.px b/tests/Test-O.px
index c535108..7e4024c 100755
--- a/tests/Test-O.px
+++ b/tests/Test-O.px
@@ -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);
diff --git a/tests/Test-Restrict-Lowercase.px b/tests/Test-Restrict-Lowercase.px
index 1e0e3e0..a675989 100755
--- a/tests/Test-Restrict-Lowercase.px
+++ b/tests/Test-Restrict-Lowercase.px
@@ -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);
diff --git a/tests/Test-Restrict-Uppercase.px b/tests/Test-Restrict-Uppercase.px
index d73abd3..64e8a47 100755
--- a/tests/Test-Restrict-Uppercase.px
+++ b/tests/Test-Restrict-Uppercase.px
@@ -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);
diff --git a/tests/Test-auth-basic.px b/tests/Test-auth-basic.px
index 90af7a3..ce9100d 100755
--- a/tests/Test-auth-basic.px
+++ b/tests/Test-auth-basic.px
@@ -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);
diff --git a/tests/Test-auth-no-challenge-url.px b/tests/Test-auth-no-challenge-url.px
index 781e5f3..204e9a0 100755
--- a/tests/Test-auth-no-challenge-url.px
+++ b/tests/Test-auth-no-challenge-url.px
@@ -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);
diff --git a/tests/Test-auth-no-challenge.px b/tests/Test-auth-no-challenge.px
index 43788b2..0794ece 100755
--- a/tests/Test-auth-no-challenge.px
+++ b/tests/Test-auth-no-challenge.px
@@ -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);
diff --git a/tests/Test-auth-retcode.px b/tests/Test-auth-retcode.px
index 4d8e6d6..bc1ea8f 100755
--- a/tests/Test-auth-retcode.px
+++ b/tests/Test-auth-retcode.px
@@ -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);
diff --git a/tests/Test-auth-with-content-disposition.px b/tests/Test-auth-with-content-disposition.px
index d7152d1..7e252a3 100755
--- a/tests/Test-auth-with-content-disposition.px
+++ b/tests/Test-auth-with-content-disposition.px
@@ -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);
diff --git a/tests/Test-c-full.px b/tests/Test-c-full.px
index 22831ef..973f885 100755
--- a/tests/Test-c-full.px
+++ b/tests/Test-c-full.px
@@ -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,
diff --git a/tests/Test-c-partial.px b/tests/Test-c-partial.px
index 04e183d..2aca247 100755
--- a/tests/Test-c-partial.px
+++ b/tests/Test-c-partial.px
@@ -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,
diff --git a/tests/Test-c-shorter.px b/tests/Test-c-shorter.px
index bbca4d1..888ead0 100755
--- a/tests/Test-c-shorter.px
+++ b/tests/Test-c-shorter.px
@@ -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,
diff --git a/tests/Test-c.px b/tests/Test-c.px
index 640ca48..48d55ae 100755
--- a/tests/Test-c.px
+++ b/tests/Test-c.px
@@ -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,
diff --git a/tests/Test-cookies-401.px b/tests/Test-cookies-401.px
index 11c76a9..7226c2f 100755
--- a/tests/Test-cookies-401.px
+++ b/tests/Test-cookies-401.px
@@ -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);
diff --git a/tests/Test-cookies.px b/tests/Test-cookies.px
index 0822e34..99fda8f 100755
--- a/tests/Test-cookies.px
+++ b/tests/Test-cookies.px
@@ -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);
diff --git a/tests/Test-ftp--start-pos.px b/tests/Test-ftp--start-pos.px
index f19ee22..00a9a00 100755
--- a/tests/Test-ftp--start-pos.px
+++ b/tests/Test-ftp--start-pos.px
@@ -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,
diff --git a/tests/Test-ftp-bad-list.px b/tests/Test-ftp-bad-list.px
index c57360a..78afd77 100755
--- a/tests/Test-ftp-bad-list.px
+++ b/tests/Test-ftp-bad-list.px
@@ -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,
diff --git a/tests/Test-ftp-iri-disabled.px b/tests/Test-ftp-iri-disabled.px
index a1406fd..4b4772f 100755
--- a/tests/Test-ftp-iri-disabled.px
+++ b/tests/Test-ftp-iri-disabled.px
@@ -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,
diff --git a/tests/Test-ftp-iri-fallback.px b/tests/Test-ftp-iri-fallback.px
index 7afb06b..36c22c7 100755
--- a/tests/Test-ftp-iri-fallback.px
+++ b/tests/Test-ftp-iri-fallback.px
@@ -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,
diff --git a/tests/Test-ftp-iri-recursive.px b/tests/Test-ftp-iri-recursive.px
index bbe0163..b487f70 100755
--- a/tests/Test-ftp-iri-recursive.px
+++ b/tests/Test-ftp-iri-recursive.px
@@ -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,
diff --git a/tests/Test-ftp-iri.px b/tests/Test-ftp-iri.px
index c188668..e196dbe 100755
--- a/tests/Test-ftp-iri.px
+++ b/tests/Test-ftp-iri.px
@@ -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,
diff --git a/tests/Test-ftp-list-Multinet.px b/tests/Test-ftp-list-Multinet.px
index 4553e5f..e21b2a4 100755
--- a/tests/Test-ftp-list-Multinet.px
+++ b/tests/Test-ftp-list-Multinet.px
@@ -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,
diff --git a/tests/Test-ftp-list-UNIX-hidden.px b/tests/Test-ftp-list-UNIX-hidden.px
index d7f1d27..d90d9f8 100755
--- a/tests/Test-ftp-list-UNIX-hidden.px
+++ b/tests/Test-ftp-list-UNIX-hidden.px
@@ -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,
diff --git a/tests/Test-ftp-list-Unknown-a.px b/tests/Test-ftp-list-Unknown-a.px
index d251a86..5360122 100755
--- a/tests/Test-ftp-list-Unknown-a.px
+++ b/tests/Test-ftp-list-Unknown-a.px
@@ -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,
diff --git a/tests/Test-ftp-list-Unknown-hidden.px b/tests/Test-ftp-list-Unknown-hidden.px
index 7ebf1ec..c300761 100755
--- a/tests/Test-ftp-list-Unknown-hidden.px
+++ b/tests/Test-ftp-list-Unknown-hidden.px
@@ -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,
diff --git a/tests/Test-ftp-list-Unknown-list-a-fails.px b/tests/Test-ftp-list-Unknown-list-a-fails.px
index 845aa24..e52b36a 100755
--- a/tests/Test-ftp-list-Unknown-list-a-fails.px
+++ b/tests/Test-ftp-list-Unknown-list-a-fails.px
@@ -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,
diff --git a/tests/Test-ftp-list-Unknown.px b/tests/Test-ftp-list-Unknown.px
index 3dbd6d3..71e4362 100755
--- a/tests/Test-ftp-list-Unknown.px
+++ b/tests/Test-ftp-list-Unknown.px
@@ -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,
diff --git a/tests/Test-ftp-pasv-fail.px b/tests/Test-ftp-pasv-fail.px
index bfcc88d..f050fdd 100755
--- a/tests/Test-ftp-pasv-fail.px
+++ b/tests/Test-ftp-pasv-fail.px
@@ -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,
diff --git a/tests/Test-ftp-recursive.px b/tests/Test-ftp-recursive.px
index e35cb8b..88fb85e 100755
--- a/tests/Test-ftp-recursive.px
+++ b/tests/Test-ftp-recursive.px
@@ -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,
diff --git a/tests/Test-ftp.px b/tests/Test-ftp.px
index e349f37..fdedfbc 100755
--- a/tests/Test-ftp.px
+++ b/tests/Test-ftp.px
@@ -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,
diff --git a/tests/Test-i-ftp.px b/tests/Test-i-ftp.px
index f1dc470..6fd2c05 100755
--- a/tests/Test-i-ftp.px
+++ b/tests/Test-i-ftp.px
@@ -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,
diff --git a/tests/Test-i-http.px b/tests/Test-i-http.px
index b8042af..a076973 100755
--- a/tests/Test-i-http.px
+++ b/tests/Test-i-http.px
@@ -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);
diff --git a/tests/Test-idn-cmd-utf8.px b/tests/Test-idn-cmd-utf8.px
index 8c49244..42e4318 100755
--- a/tests/Test-idn-cmd-utf8.px
+++ b/tests/Test-idn-cmd-utf8.px
@@ -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);
diff --git a/tests/Test-idn-cmd.px b/tests/Test-idn-cmd.px
index 202e75a..3098419 100755
--- a/tests/Test-idn-cmd.px
+++ b/tests/Test-idn-cmd.px
@@ -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);
diff --git a/tests/Test-idn-headers.px b/tests/Test-idn-headers.px
index a6260cc..6b0c614 100755
--- a/tests/Test-idn-headers.px
+++ b/tests/Test-idn-headers.px
@@ -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);
diff --git a/tests/Test-idn-meta.px b/tests/Test-idn-meta.px
index 6a27748..1370a4a 100755
--- a/tests/Test-idn-meta.px
+++ b/tests/Test-idn-meta.px
@@ -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);
diff --git a/tests/Test-idn-robots-utf8.px b/tests/Test-idn-robots-utf8.px
index 1f8d4cc..1d1bfac 100755
--- a/tests/Test-idn-robots-utf8.px
+++ b/tests/Test-idn-robots-utf8.px
@@ -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);
diff --git a/tests/Test-idn-robots.px b/tests/Test-idn-robots.px
index deb8256..888fcdf 100755
--- a/tests/Test-idn-robots.px
+++ b/tests/Test-idn-robots.px
@@ -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);
diff --git a/tests/Test-iri-disabled.px b/tests/Test-iri-disabled.px
index 705cc67..e019d4f 100755
--- a/tests/Test-iri-disabled.px
+++ b/tests/Test-iri-disabled.px
@@ -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);
diff --git a/tests/Test-iri-forced-remote.px b/tests/Test-iri-forced-remote.px
index 596f1f0..192833d 100755
--- a/tests/Test-iri-forced-remote.px
+++ b/tests/Test-iri-forced-remote.px
@@ -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);
diff --git a/tests/Test-iri-list.px b/tests/Test-iri-list.px
index 91e1ce4..5e56072 100755
--- a/tests/Test-iri-list.px
+++ b/tests/Test-iri-list.px
@@ -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);
diff --git a/tests/Test-iri-percent.px b/tests/Test-iri-percent.px
index 769ea76..ae86b18 100755
--- a/tests/Test-iri-percent.px
+++ b/tests/Test-iri-percent.px
@@ -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);
diff --git a/tests/Test-iri.px b/tests/Test-iri.px
index eb843a1..4d6b39a 100755
--- a/tests/Test-iri.px
+++ b/tests/Test-iri.px
@@ -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);
diff --git a/tests/Test-k.px b/tests/Test-k.px
index fcacd96..1258e14 100755
--- a/tests/Test-k.px
+++ b/tests/Test-k.px
@@ -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);
diff --git a/tests/Test-meta-robots.px b/tests/Test-meta-robots.px
index 77821e7..4a90338 100755
--- a/tests/Test-meta-robots.px
+++ b/tests/Test-meta-robots.px
@@ -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);
diff --git a/tests/Test-nonexisting-quiet.px b/tests/Test-nonexisting-quiet.px
index e9347b8..9f68081 100755
--- a/tests/Test-nonexisting-quiet.px
+++ b/tests/Test-nonexisting-quiet.px
@@ -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);
diff --git a/tests/Test-noop.px b/tests/Test-noop.px
index 7ec8e47..d08cbcd 100755
--- a/tests/Test-noop.px
+++ b/tests/Test-noop.px
@@ -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);
diff --git a/tests/Test-np.px b/tests/Test-np.px
index 7e2f250..1253c5d 100755
--- a/tests/Test-np.px
+++ b/tests/Test-np.px
@@ -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);
diff --git a/tests/Test-proxy-auth-basic.px b/tests/Test-proxy-auth-basic.px
index d638976..4c2dee8 100755
--- a/tests/Test-proxy-auth-basic.px
+++ b/tests/Test-proxy-auth-basic.px
@@ -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);
diff --git a/tests/Test-restrict-ascii.px b/tests/Test-restrict-ascii.px
index c3bbe7a..ecde384 100755
--- a/tests/Test-restrict-ascii.px
+++ b/tests/Test-restrict-ascii.px
@@ -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);
diff --git a/tests/Test-stdouterr.px b/tests/Test-stdouterr.px
index 745f9a3..8b73d2f 100755
--- a/tests/Test-stdouterr.px
+++ b/tests/Test-stdouterr.px
@@ -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,
diff --git a/tests/WgetTests.pm b/tests/WgetTests.pm
index 02413ec..1c65d54 100644
--- a/tests/WgetTests.pm
+++ b/tests/WgetTests.pm
@@ -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
--
2.1.1
