]> sjero.net Git - wget/blob - tests/run-px
Automated merge.
[wget] / tests / run-px
1 #!/usr/bin/env perl
2 use warnings;
3
4 die "Please specify the top source directory.\n" if (!@ARGV);
5 my $top_srcdir = shift @ARGV;
6
7 my @tests = (
8     'Test-auth-basic.px',
9     'Test-proxy-auth-basic.px',
10     'Test-proxied-https-auth.px',
11     'Test-N-HTTP-Content-Disposition.px',
12     'Test--spider.px',
13     'Test-c-full.px',
14     'Test-c-partial.px',
15     'Test-c-shorter.px',
16     'Test-c.px',
17     'Test-E-k-K.px',
18     'Test-E-k.px',
19     'Test-ftp.px',
20     'Test-ftp-iri.px',
21     'Test-ftp-iri-fallback.px',
22     'Test-ftp-iri-disabled.px',
23     'Test-HTTP-Content-Disposition-1.px',
24     'Test-HTTP-Content-Disposition-2.px',
25     'Test-HTTP-Content-Disposition.px',
26     'Test-iri.px',
27     'Test-iri-disabled.px',
28     'Test-iri-forced-remote.px',
29     'Test-iri-list.px',
30     'Test-N-current.px',
31     'Test-N-smaller.px',
32     'Test-N-no-info.px',
33     'Test-N--no-content-disposition.px',
34     'Test-N--no-content-disposition-trivial.px',
35     'Test--no-content-disposition.px',
36     'Test--no-content-disposition-trivial.px',
37     'Test-N-old.px',
38     'Test-nonexisting-quiet.px',
39     'Test-noop.px',
40     'Test-np.px',
41     'Test-N.px',
42     'Test-O-HTTP-Content-Disposition.px',
43     'Test-O--no-content-disposition.px',
44     'Test-O--no-content-disposition-trivial.px',
45     'Test-O-nonexisting.px',
46     'Test-O.px',
47     'Test-O-nc.px',
48     'Test-Restrict-Lowercase.px',
49     'Test-Restrict-Uppercase.px',
50     'Test--spider-fail.px',
51     'Test--spider-r-HTTP-Content-Disposition.px',
52     'Test--spider-r--no-content-disposition.px',
53     'Test--spider-r--no-content-disposition-trivial.px',
54     'Test--spider-r.px',
55 );
56
57 my @results;
58
59 for my $test (@tests) {
60     print "Running $test\n\n";
61     system("$top_srcdir/tests/$test");
62     push @results, $?;
63 }
64
65 for (my $i=0; $i != @tests; ++$i) {
66     if ($results[$i] == 0) {
67         print "pass: ";
68     } else {
69         print "FAIL: ";
70     }
71     print "$tests[$i]\n";
72 }
73
74 print "\n";
75 print scalar(@results) . " tests were run\n";
76 print scalar(grep $_ == 0, @results) . " PASS\n";
77 print scalar(grep $_ != 0, @results) . " FAIL\n";
78
79 exit scalar (grep $_ != 0, @results);