[gitmo/MooseX-Singleton.git] / xt / author / pod-spell.t

use strict;
use warnings;

use Test::More;
eval 'use Test::Spelling;';
plan skip_all => "Test::Spelling required for testing POD spelling" if $@;

my @stopwords;
for (<DATA>) {
    chomp;
    push @stopwords, $_
        unless /\A (?: \# | \s* \z)/msx;    # skip comments, whitespace
}

add_stopwords(@stopwords);
set_spell_cmd('aspell list -l en');
all_pod_files_spelling_ok();

__DATA__
metaclass
SIGNES
Commit	Line	Data
da16d915	1	use strict;
	2	use warnings;
	3
eb98d2dd	4	use Test::More;
	5	eval 'use Test::Spelling;';
	6	plan skip_all => "Test::Spelling required for testing POD spelling" if $@;
da16d915	7
	8	my @stopwords;
	9	for (<DATA>) {
	10	chomp;
	11	push @stopwords, $_
	12	unless /\A (?: \# \| \s* \z)/msx; # skip comments, whitespace
	13	}
	14
	15	add_stopwords(@stopwords);
	16	set_spell_cmd('aspell list -l en');
eb98d2dd	17	all_pod_files_spelling_ok();
da16d915	18
	19	__DATA__
	20	metaclass
	21	SIGNES