#!/usr/bin/env perl # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Task-Perl-Critic/xt/author/97_spelling.t $ # $Date: 2008-06-08 21:46:45 -0500 (Sun, 08 Jun 2008) $ # $Author: clonezone $ # $Revision: 2431 $ use strict; use warnings; use Test::More; if ( ! -d '.svn' && ! $ENV{TEST_AUTHOR} ) { plan skip_all => 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.'; } my $aspell_path = eval q{use Test::Spelling; use File::Which; which('aspell') || die 'no aspell';}; plan skip_all => 'Optional Test::Spelling, File::Which and aspell program required to spellcheck POD' if $@; add_stopwords(); set_spell_cmd("$aspell_path list"); all_pod_files_spelling_ok(); __DATA__