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

use strict;
use warnings;

use Test::Spelling;

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
	4	use Test::Spelling;
	5
	6	my @stopwords;
	7	for (<DATA>) {
	8	chomp;
	9	push @stopwords, $_
	10	unless /\A (?: \# \| \s* \z)/msx; # skip comments, whitespace
	11	}
	12
	13	add_stopwords(@stopwords);
	14	set_spell_cmd('aspell list -l en');
	15	all_pod_files_spelling_ok;
	16
	17	__DATA__
	18	metaclass
	19	SIGNES