blob: 56a5c88f39eeac067b17089b7be1bab65c9a72bd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#!/usr/bin/perl -w
use strict;
use warnings;
use Test;
use vars qw($dir $file $prog $idx $state $output %progs @dirs);
my $tests = 0;
@dirs = qw(plugins plugins-scripts);
foreach my $dir (@dirs) {
opendir(DIR, $dir) || die "can't opendir $dir: $!";
while ($file = readdir(DIR)) {
if (-x "$dir/$file" && -f "$dir/$file") {
$tests++;
$progs{"$dir/$file"} = $file;
}
}
closedir DIR;
}
plan tests => $tests;
for my $prog (keys %progs) {
$state = 0;
$file = `basename $prog`;
$idx = 1;
$output = `$prog -h 2>&1`;
if(($? >> 8) != 3) {
$state++;
print "$prog failed test $idx (help exit code (short form))\n";
exit(1);
}
unless ($output =~ m/$progs{$prog}/ms) {
$idx++;
$state++;
print "$output\n$prog failed test $idx\n";
}
$idx++;
`$prog --help 2>&1 > /dev/null`;
if(($? >> 8) != 3) {
$state++;
print "$prog failed test $idx (help exit code (long form))\n";
exit(1);
}
$idx++;
`$prog -V 2>&1 > /dev/null`;
if(($? >> 8) != 3) {
$state++;
print "$prog failed test $idx (version exit code (short form))\n";
exit(1);
}
$idx++;
`$prog --version 2>&1 > /dev/null`;
if(($? >> 8) != 3) {
$state++;
print "$prog failed test $idx (version exit code (long form))\n";
exit(1);
}
print "$prog ($idx tests) ";
ok $state,0;
}
|
