diff options
author | Norbert Preining <preining@logic.at> | 2008-01-06 17:45:39 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-06 17:45:39 +0000 |
commit | cb47f09c0c8e2d04376bd63fb0a75bbef802ab9b (patch) | |
tree | 040918193f40eec1535c234e3ca766ac2fb03ad5 /Master/tlpkg/bin/check-file-coverage | |
parent | bdd4b45d0c8aee079d4764e84421cc3a4e431283 (diff) |
add ignored files to check-file-coverage
git-svn-id: svn://tug.org/texlive/trunk@6064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/check-file-coverage')
-rwxr-xr-x | Master/tlpkg/bin/check-file-coverage | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/check-file-coverage b/Master/tlpkg/bin/check-file-coverage index 3bf475c5e83..0a38186078f 100755 --- a/Master/tlpkg/bin/check-file-coverage +++ b/Master/tlpkg/bin/check-file-coverage @@ -23,6 +23,19 @@ use Getopt::Long; use Pod::Usage; use File::Path; + +my @IgnorePatterns = qw|support/ source/ setuptl/ + common.sh$ config.guess$ config.sub$ + texmf-dist/README$ texmf-doc/README$ texmf/README$ + texmf-dist/ls-R$ texmf/ls-R$ + tlpkg/tlpsrc/ + texmf/lists/ + .mkisofsrc$ 00INST.TL$ 00LIVE.TL$ autorun.inf$ + tlpkg/lib/C/ tlpkg/lib/bash/ tlpkg/lib/python/ tlpkg/tests/ + tlpkg/etc/ + |; + + chomp (my $opt_master = `cd $::mydir/../.. && pwd`); our $opt_debug = 0; my $help = 0; @@ -59,8 +72,19 @@ sub main } my @nothit; for my $f (keys %tltreefiles) { + # if it is mentioned in the tlpdb or is ignored it is considered + # as covered, thus, otherwise we push it onto the nothit list if (!defined($tlpdbf{$f})) { - push @nothit, $f; + my $ignored = 0; + foreach my $p (@IgnorePatterns) { + if ($f =~ m/^$p/) { + $ignored = 1; + last; + } + } + if (!$ignored) { + push @nothit, $f; + } } } if (@nothit) { |