>From d8b4679871a78dc7462f2861ce11d6d762599f2e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tim=20R=C3=BChsen?= 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 + + * tests/WgetTests.pm: use filename as default test name + * tests/Test-*.px: removed redundant 'name => ...' + 2014-10-01 Tim Ruehsen * 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