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 fd1c40acdadbdf39a9ff1a4aeb1816fa278de716..51dec828d8ce2a27d7e0b6389d30966f0a3d4094 100755 (executable)
--- a/tests/run-px
+++ b/tests/run-px
@@ -10,17 +10,25 @@ my @tests = (
     'Test-proxied-https-auth.px',
     'Test-N-HTTP-Content-Disposition.px',
     'Test--spider.px',
-
     'Test-c-full.px',
     'Test-c-partial.px',
     'Test-c.px',
     '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);