Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Check for coverage of extra options

  • Loading branch information...
commit 115f4c84f82c4c7ae13ac0cd1e1ab6696de60e99 1 parent d7e6620
@hoelzro hoelzro authored
Showing with 16 additions and 1 deletion.
  1. +9 −0 dev/display-option-coverage.pl
  2. +7 −1 record-options
View
9 dev/display-option-coverage.pl
@@ -15,7 +15,16 @@
END_DIE
}
+my @extra_options = (
+ 'type-add=s',
+ 'type-set=s',
+ 'dump',
+);
+
my $arg_spec = App::Ack::ConfigLoader::get_arg_spec({});
+foreach my $option ( @extra_options ) {
+ $arg_spec->{ $option } = 1;
+}
my $fh;
open $fh, '<', 'opts.coverage' or die $!;
View
8 record-options
@@ -8,11 +8,17 @@ use Getopt::Long;
my $option_coverage_file = 'opts.coverage';
+my @extra_options = (
+ 'type-add=s',
+ 'type-set=s',
+ 'dump',
+);
+
my $fh;
open $fh, '>>', $option_coverage_file or die $!;
my $arg_spec = App::Ack::ConfigLoader::get_arg_spec({}, undef);
-foreach my $k (keys %{$arg_spec}) {
+foreach my $k (keys %{$arg_spec}, @extra_options) {
$arg_spec->{$k} = sub {
print { $fh } "$k\n";
};
Please sign in to comment.
Something went wrong with that request. Please try again.