X-Git-Url: http://sjero.net/git/?a=blobdiff_plain;f=tests%2Frun-px;h=102c75dc41cbbe26e3307dd94b863e773ce84f53;hb=30391ad9b479dfb0538c85c86976ab7fa24bacc2;hp=92e9061e0694645e3e3474dfbe07e80fff19647d;hpb=7fc928183366c256ef4c425c19ea2f054d68aafd;p=wget diff --git a/tests/run-px b/tests/run-px index 92e9061e..102c75dc 100755 --- a/tests/run-px +++ b/tests/run-px @@ -1,8 +1,8 @@ #!/usr/bin/env perl use 5.006; -use warnings; use strict; +use warnings; use Term::ANSIColor ':constants'; $Term::ANSIColor::AUTORESET = 1; @@ -12,6 +12,10 @@ my $top_srcdir = shift @ARGV; my @tests = ( 'Test-auth-basic.px', + 'Test-auth-no-challenge.px', + 'Test-auth-no-challenge-url.px', + 'Test-cookies.px', + 'Test-cookies-401.px', 'Test-proxy-auth-basic.px', 'Test-proxied-https-auth.px', 'Test-N-HTTP-Content-Disposition.px', @@ -23,9 +27,26 @@ my @tests = ( 'Test-E-k-K.px', 'Test-E-k.px', 'Test-ftp.px', + 'Test-ftp-pasv-fail.px', + 'Test-ftp-recursive.px', + 'Test-ftp-iri.px', + 'Test-ftp-iri-fallback.px', + 'Test-ftp-iri-recursive.px', + 'Test-ftp-iri-disabled.px', 'Test-HTTP-Content-Disposition-1.px', 'Test-HTTP-Content-Disposition-2.px', 'Test-HTTP-Content-Disposition.px', + 'Test-idn-headers.px', + 'Test-idn-meta.px', + 'Test-idn-cmd.px', + 'Test-idn-robots.px', + 'Test-iri.px', + 'Test-iri-percent.px', + 'Test-iri-disabled.px', + 'Test-iri-forced-remote.px', + 'Test-iri-list.px', + 'Test-k.px', + 'Test-meta-robots.px', 'Test-N-current.px', 'Test-N-smaller.px', 'Test-N-no-info.px', @@ -44,6 +65,7 @@ my @tests = ( 'Test-O-nonexisting.px', 'Test-O.px', 'Test-O-nc.px', + 'Test-restrict-ascii.px', 'Test-Restrict-Lowercase.px', 'Test-Restrict-Uppercase.px', 'Test--spider-fail.px', @@ -53,14 +75,22 @@ my @tests = ( 'Test--spider-r.px', ); +foreach my $var (qw(SYSTEM_WGETRC WGETRC)) { + $ENV{$var} = '/dev/null'; +} + my @tested; foreach my $test (@tests) { print "Running $test\n\n"; - system("$^X $top_srcdir/tests/$test"); + system("$^X -I$top_srcdir/tests $top_srcdir/tests/$test $top_srcdir"); push @tested, { name => $test, result => $? }; } +foreach my $var (qw(SYSTEM_WGETRC WGETRC)) { + delete $ENV{$var}; +} + print "\n"; foreach my $test (@tested) { ($test->{result} == 0)