Codebase list libpoe-component-sslify-perl / debian/0.14-1 t / a_pod_spelling.t
debian/0.14-1

Tree @debian/0.14-1 (Download .tar.gz)

a_pod_spelling.t @debian/0.14-1raw · history · blame

#!/usr/bin/perl

use Test::More;

# AUTHOR test
if ( not $ENV{TEST_AUTHOR} ) {
	plan skip_all => 'Author test. Sent $ENV{TEST_AUTHOR} to a true value to run.';
} else {
	if ( not $ENV{PERL_TEST_POD} ) {
		plan skip_all => 'POD test. Sent $ENV{PERL_TEST_POD} to a true value to run.';
	} else {
		eval "use Test::Spelling";
		if ( $@ ) {
			plan skip_all => 'Test::Spelling required to test POD for spelling errors';
		} else {
			# FIXME need to figure out how to add custom vocabulary to dictionary
			all_pod_files_spelling_ok();
		}
	}
}