View | Details | Raw Unified | Return to bug 39325
Collapse All | Expand All

(-)a/xt/author/codespell.t (-1 / +21 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
use Modern::Perl;
3
use Test::PerlTidy;
4
use Test::More;
5
6
my @files;
7
push @files,
8
    qx{git ls-files '*.pl' '*.PL' '*.pm' '*.t' ':(exclude)installer/data/mysql/updatedatabase.pl' ':(exclude)installer/data/mysql/update22to30.pl' ':(exclude)misc/cronjobs/build_browser_and_cloud.pl'};
9
push @files, qx{git ls-files svc opac/svc};     # Files without extension
10
push @files, qx{git ls-files '*.tt' '*.inc'};
11
push @files,
12
    qx{git ls-files '*.js' '*.ts' '*.vue' ':(exclude)koha-tmpl/intranet-tmpl/lib' ':(exclude)koha-tmpl/intranet-tmpl/js/Gettext.js' ':(exclude)koha-tmpl/opac-tmpl/lib' ':(exclude)koha-tmpl/opac-tmpl/bootstrap/js/Gettext.js'};
13
14
plan tests => scalar @files;
15
16
for my $file (@files) {
17
    chomp $file;
18
    my $output = qx{codespell -d --ignore-words .codespell-ignore $file};
19
    chomp $output;
20
    is( $output, q{} );
21
}

Return to bug 39325