22 lines
475 B
Perl
22 lines
475 B
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Test::More;
|
||
|
|
use Test::Spelling;
|
||
|
|
|
||
|
|
if (!@ARGV) {
|
||
|
|
die "Missing perl file to check.";
|
||
|
|
}
|
||
|
|
|
||
|
|
my $stopword_filename='.github/scripts/stopwords.t';
|
||
|
|
if(defined($ARGV[1])){
|
||
|
|
$stopword_filename=$ARGV[1];
|
||
|
|
}
|
||
|
|
open(FILE, "<", $stopword_filename)
|
||
|
|
or die "Could not open $stopword_filename";
|
||
|
|
printf("stopword file use : ".$stopword_filename." \n");
|
||
|
|
|
||
|
|
add_stopwords(<FILE>);
|
||
|
|
set_spell_cmd('hunspell -l');
|
||
|
|
all_pod_files_spelling_ok($ARGV[0]);
|
||
|
|
close(FILE);
|