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

(-)a/xt/author/codespell.t (-1 / +20 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, qx{git ls-files '*.pl' '*.PL' '*.pm' '*.t'};
8
push @files, qx{git ls-files svc opac/svc};                 # Files without extension
9
push @files, qx{git ls-files '*.tt' '*.inc'};
10
push @files,
11
    qx{git ls-files '*.js' '*.ts' '*.vue' :(exclude)koha-tmpl/intranet-tmpl/lib :(exclude)koha-tmpl/opac-tmpl/lib};
12
13
plan tests => scalar @files;
14
15
for my $file (@files) {
16
    chomp $file;
17
    my $output = qx{codespell -d $file};
18
    chomp $output;
19
    is( $output, q{} );
20
}

Return to bug 39325