view release on metacpan or  search on metacpan

t/spelling.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use Test::More;

if ( not $ENV{TEST_AUTHOR} ) {
    my $msg = 'Author test.  Set TEST_AUTHOR environment variable to a true value to run.';
    plan( skip_all => $msg );
}

# check that Test::Spelling is installed
eval { require Test::Spelling; Test::Spelling->import() };

# now check that the spell command is installed
my $found;
for my $dir ( split /:/, $ENV{PATH} ) {
    next if !-d $dir;
    next if !-x "$dir/spell";

    $found = 1;
    last;
}

plan skip_all => "Test::Spelling required for testing POD spelling" if $@;
plan skip_all => "spell command required for testing POD spelling" if !$found;

add_stopwords(qw/
    Hornsby
    NSW
    BitBucket
    bb
    cli
    mech
    createdDate
    displayId
    fromRef
    isDefault
    lastChangeTime
    latestChangeset
    latestCommit
    locke
    toRef
    updatedDate
    href
    rel
/);
all_pod_files_spelling_ok();