1#!/usr/bin/perl 2 3BEGIN { 4 unless ($ENV{RELEASE_TESTING}) { 5 require Test::More; 6 Test::More::plan(skip_all => 'these tests are for release candidate testing'); 7 } 8} 9 10 11use strict; 12use warnings; 13 14use Test::More; 15 16eval "use Test::Spelling;"; 17plan skip_all => "Test::Spelling required for testing POD spelling" if $@; 18 19my @stopwords; 20for (<DATA>) { 21 chomp; 22 push @stopwords, $_ 23 unless /\A (?: \# | \s* \z)/msx; # skip comments, whitespace 24} 25 26add_stopwords(@stopwords); 27local $ENV{LC_ALL} = 'C'; 28set_spell_cmd('aspell list -l en'); 29all_pod_files_spelling_ok(); 30 31__DATA__ 32Matthew 33Horsfall 34alh 35API 36HMAC 37RNDC 38timestamp 39IPv 40TBD 41TODO 42nameserver 43