|
2
by Colin Watson
* Set the seen flag on questions asked in the noninteractive frontend if |
1 |
#!/usr/bin/perl -w -I.
|
2 |
||
3 |
sub usage { |
|
4 |
print STDERR <<EOF; |
|
5 |
Usage:
|
|
6 |
test_debconf.pl OneTest
|
|
7 |
test_debconf.pl --all
|
|
8 |
EOF
|
|
9 |
exit(1); |
|
10 |
}
|
|
11 |
||
12 |
use strict; |
|
13 |
use Test::Unit::TestRunner; |
|
14 |
use Getopt::Long; |
|
15 |
||
16 |
my $all=0; |
|
17 |
my $test=0; |
|
18 |
||
19 |
# command options
|
|
20 |
GetOptions( |
|
21 |
"all" => \$all, |
|
22 |
) || usage(); |
|
23 |
||
24 |
unless ($all) { |
|
25 |
$test=$ARGV[0]; |
|
26 |
usage() unless $test; |
|
27 |
}
|
|
28 |
||
29 |
if ($test) { |
|
30 |
Test::Unit::TestRunner->main($test); |
|
31 |
}
|
|
32 |
if ($all) { |
|
33 |
Test::Unit::TestRunner->main("Test::AllTests"); |
|
34 |
}
|