mirrors/i3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix travis/check-spelling.pl for updated API

Browse Source
This commit is contained in:
Michael Stapelberg 2021-10-06 18:23:46 +02:00
parent eada44be1e
commit b3d4281b8b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
travis/check-spelling.pl
View File

@ -11,6 +11,7 @@ use warnings;
use v5.10;
use autodie;
use lib 'testcases/lib';
use lib '/usr/share/lintian/lib';
use i3test::Util qw(slurp);
use Lintian::Spelling qw(check_spelling);
@ -21,8 +22,6 @@ use Lintian::Profile;
my $profile = Lintian::Profile->new;
$profile->load('debian', ['/usr/share/lintian']);
Lintian::Data->set_vendor($profile);
my $exitcode = 0;
# Whitelist for spelling errors in manpages, in case the spell checker has
@ -42,7 +41,7 @@ my @binaries = qw(
build/i3bar
);
for my $binary (@binaries) {
check_spelling(slurp($binary), $binary_spelling_exceptions, sub {
check_spelling($profile, slurp($binary), $binary_spelling_exceptions, sub {
my ($current, $fixed) = @_;
say STDERR qq|Binary "$binary" contains a spelling error: "$current" should be "$fixed"|;
$exitcode = 1;
@ -57,7 +56,7 @@ my $manpage_spelling_exceptions = {
for my $name (glob('build/man/*.1')) {
for my $line (split(/\n/, slurp($name))) {
next if $line =~ /^\.\\\"/o;
check_spelling($line, $manpage_spelling_exceptions, sub {
check_spelling($profile, $line, $manpage_spelling_exceptions, sub {
my ($current, $fixed) = @_;
say STDERR qq|Manpage "$name" contains a spelling error: "$current" should be "$fixed"|;
$exitcode = 1;