Correct iri handling while fetching a remote file list with -i and provide a test

[wget] / tests / run-px

diff --git a/tests/run-px b/tests/run-px
index 7cab7531de2a7163fbb19e34d1ce88b4de34cfb0..51dec828d8ce2a27d7e0b6389d30966f0a3d4094 100755 (executable)
--- a/tests/run-px
+++ b/tests/run-px
@@ -16,11 +16,19 @@ my @tests = (
     'Test-E-k-K.px',
     'Test-E-k.px',
     'Test-ftp.px',
+    'Test-ftp-iri.px',
+    'Test-ftp-iri-fallback.px',
+    'Test-ftp-iri-disabled.px',
     'Test-HTTP-Content-Disposition-1.px',
     'Test-HTTP-Content-Disposition-2.px',
     'Test-HTTP-Content-Disposition.px',
+    'Test-iri.px',
+    'Test-iri-disabled.px',
+    'Test-iri-forced-remote.px',
+    'Test-iri-list.px',
     'Test-N-current.px',
     'Test-N-smaller.px',
+    'Test-N-no-info.px',
     'Test-N--no-content-disposition.px',
     'Test-N--no-content-disposition-trivial.px',
     'Test--no-content-disposition.px',
@@ -60,3 +68,10 @@ for (my $i=0; $i != @tests; ++$i) {
     }
     print "$tests[$i]\n";
 }
+
+print "\n";
+print scalar(@results) . " tests were run\n";
+print scalar(grep $_ == 0, @results) . " PASS\n";
+print scalar(grep $_ != 0, @results) . " FAIL\n";
+
+exit scalar (grep $_ != 0, @results);