<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
use warnings;\nuse strict;\nuse Test::More;\nuse Test::Spelling;\nset_spell_cmd('aspell -l');\nadd_stopwords(<DATA>);\nall_pod_files_spelling_ok();\n__DATA__\nCGI\nCPAN\nGPL\nDolan\nSTDIN\nSTDOUT\n<\/code><\/pre>\n\n<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
% perl Build test test_files=t\/00_local_spelling.t verbose=1\n...\n# Failed test 'POD spelling for blib\/lib\/Perl\/Critic\/Config.pm'\nnot ok 3 - POD spelling for blib\/lib\/Perl\/Critic\/Config.pm\n# in \/Users\/chris\/perl\/lib\/perl5\/site_perl\/Test\/Spelling.pm at line 72.\n# Errors:\n# PBP\n# PERLCRITIC\n# Thalhammer\n# inlucde\n# ommit\n...\nFailed 1\/1 test scripts, 0.00% okay. 55\/56 subtests failed, 1.79% okay.\n<\/code><\/pre>\n\n<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
...\n__DATA__\nCGI\nCPAN\nGPL\nDolan\nSTDIN\nSTDOUT\nThalhammer\n<\/code><\/pre>\n\n<\/p>\n\n
...\n1;\n__END__\n\n=pod\n\n=head1 NAME\n\nPerl::Critic::Config - Load Perl::Critic user-preferences\n\n=head1 DESCRIPTION\n...\n<\/code><\/pre>\n\n<\/p>\n\n
...\n1;\n__END__\n\n=pod\n\n=for stopwords PBP PERLCRITIC\n\n=head1 NAME\n\nPerl::Critic::Config - Load Perl::Critic user-preferences\n\n=head1 DESCRIPTION\n...\n<\/code><\/pre>\n\n<\/p>\n\n
<\/p>\n\n
% perl Build test test_files=t\/00_local_spelling.t verbose=1\n...\nok 3 - POD spelling for blib\/lib\/Perl\/Critic\/Config.pm\n...\nFailed 1\/1 test scripts, 0.00% okay. 33\/56 subtests failed, 41.07% okay.\n<\/code><\/pre>\n\n<\/p>\n\n
<\/p>\n\n
<\/h3>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
...\nmy $tests = 2 + @testdocs * 33 + @testpages * 4 + @impages * 4;\nplan tests => $tests;\n...\n<\/code><\/pre>\n\n<\/p>\n\n
<\/h3>\n\n
<\/p>\n\n
\n- <\/li>\n
- <\/li>\n
- <\/li>\n
- <\/li>\n
- <\/li>\n
- <\/li>\n
- <\/li>\n
- <\/li>\n<\/ol>\n\n
<\/p>\n\n
<\/p>\n\n
use Test::More;\neval { require Test::Distribution; };\nplan skip_all => 'Optional Test::Distribution not installed' if ($@);\nimport Test::Distribution;\n<\/code><\/pre>\n\n<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/h3>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
use warnings;\nuse strict;\nuse File::Find;\nuse File::Slurp;\nuse Test::More qw(no_plan);\n\nmy $last_version = undef;\nfind({wanted => \\&check_version, no_chdir => 1}, 'blib');\nif (! defined $last_version) {\n fail('Failed to find any files with $VERSION');\n}\n\nsub check_version {\n # $_ is the full path to the file\n return if (! m{blib\/script\/}xms && ! m{\\.pm \\z}xms);\n\n my $content = read_file($_);\n\n # only look at perl scripts, not sh scripts\n return if (m{blib\/script\/}xms && $content !~ m\/\\A \\#![^\\r\\n]+?perl\/xms);\n\n my @version_lines = $content =~ m\/ ( [^\\n]* \\$VERSION [^\\n]* ) \/gxms;\n if (@version_lines == 0) {\n fail($_);\n }\n for my $line (@version_lines) {\n if (!defined $last_version) {\n $last_version = shift @version_lines;\n pass($_);\n }\n else {\n is($line, $last_version, $_);\n }\n }\n}\n<\/code><\/pre>\n\n<\/p>\n\n
<\/h3>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
#!perl -w\n\nuse warnings;\nuse strict;\nuse File::Find;\nuse File::Slurp;\nuse Test::More qw(no_plan);\n\nmy $this_year = [localtime]->[5]+1900;\nmy $copyrights_found = 0;\nfind({wanted => \\&check_file, no_chdir => 1}, 'blib');\nfor (grep {\/^readme\/i} read_dir('.')) {\n check_file();\n}\nok($copyrights_found != 0, 'found a copyright statement');\n\nsub check_file {\n # $_ is the path to a filename, relative to the root of the\n # distribution\n\n # Only test plain files\n return if (! -f $_);\n\n # Filter the list of filenames\n return if (! m,^(?: README.* # docs\n | .*\/scripts\/[^\/]+ # programs\n | .*\/script\/[^\/]+ # programs\n | .*\/bin\/[^\/]+ # programs\n | .*\\.(?: pl # program ext\n | pm # module ext\n | html # doc ext\n | 3pm # doc ext\n | 3 # doc ext\n | 1 # doc ext\n )\n )$,xms);\n\n my $content = read_file($_);\n my @copyright_years = $content =~ m\/\n (?: copyright | \\(c\\) )\n \\s+\n (?: \\d{4} \\- )?\n (\\d{4})\n \/gixms;\n if (0 < grep {$_ ne $this_year} @copyright_years) {\n fail(\"$_ copyrights: @copyright_years\");\n }\n elsif (0 == @copyright_years) {\n pass(\"$_, no copyright found\");\n }\n else {\n pass($_);\n }\n $copyrights_found += @copyright_years;\n}\n<\/code><\/pre>\n\n<\/h3>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
use warnings;\nuse strict;\n\nour @pcargs;\nBEGIN\n{\n my $rc = 't\/perlcriticrc';\n @pcargs = -f $rc ? (-profile => $rc) : ();\n}\nuse Test::Perl::Critic (@pcargs);\nall_critic_ok();\n<\/code><\/pre>\n\n<\/p>\n\n
<\/p>\n\n
[-NamingConventions::ProhibitMixedCaseSubs]\n<\/code><\/pre>\n\n<\/h2>\n\n
<\/p>\n\n
\n- <\/li>\n
- <\/li>\n
- <\/li>\n<\/ol>\n\n
<\/p>\n\n
<\/p>\n\n
<\/p>\n\n
t\/author.t..........1..16\nok 1 - Test::Pod\nok 2 - Test::Pod::Coverage\nok 3 - Devel::Cover 100%\nok 4 - Test::Spelling\nok 5 - Test::Perl::Critic, 57 policies in effect\nok 6 - Test::Distribution\nok 8 - Version numbers all match\nok 9 - Copyright date is 2005\nok 10 - Works on darwin\nok 11 - Works on linux\nnok 12 - Works on win32 # TODO needs some Windows lovin'!\nok 13 - Works on Perl 5.005\nok 14 - Works on Perl 5.6.1\nok 15 - Works on Perl 5.8.7\nok 16 - Works under mod_perl 1.x\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"use warnings; use strict; use Test::More; use Test::Spelling; set_spell_cmd(‘aspell -l’); add_stopwords(<DATA>); all_pod_files_spelling_ok(); __DATA__ CGI CPAN GPL Dolan STDIN STDOUT % perl Build test test_files=t\/00_local_spelling.t verbose=1 … # Failed test ‘POD spelling for blib\/lib\/Perl\/Critic\/Config.pm’ not ok 3 – POD spelling for blib\/lib\/Perl\/Critic\/Config.pm # in \/Users\/chris\/perl\/lib\/perl5\/site_perl\/Test\/Spelling.pm at line 72. # Errors: # PBP # PERLCRITIC # Thalhammer … Continue reading Private Regression Tests<\/span>