Login
Update tests to include examples and update MANIFEST.
authorElliot Shank <perl@galumph.com>
Sun, 11 Feb 2007 23:16:48 +0000 (23:16 +0000)
committerElliot Shank <perl@galumph.com>
Sun, 11 Feb 2007 23:16:48 +0000 (23:16 +0000)
MANIFEST
examples/generatestats
examples/loadanalysisdb
lib/Perl/Critic/TestUtils.pm
t/40_criticize.t
t/97_spelling.t
t/98_pod_syntax.t

index 27f3a83..a464565 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,6 +1,8 @@
 bin/perlcritic
 Build.PL
 Changes
+examples/generatestats
+examples/loadanalysisdb
 examples/perlcriticrc
 extras/perlcritic.el
 INSTALL
index ce676d3..62a9aa6 100755 (executable)
@@ -14,7 +14,7 @@ use 5.008001;
 use strict;
 use warnings;
 
-use version; our $VERSION = qv('529.358.159');
+use version; our $VERSION = qv('1.002');
 
 use Carp qw{ croak };
 use English qw{ -no_match_vars };
@@ -205,6 +205,8 @@ __END__
 
 =pod
 
+=for stopwords codebase
+
 =head1 NAME
 
 C<generatestats> - Produce some simple quality statistics of a codebase
@@ -270,7 +272,7 @@ This is an example program and thus does minimal error handling.
 Elliot Shank  C<< <perl@galumph.com> >>
 
 
-=head1 LICENSE AND COPYRIGHT
+=head1 COPYRIGHT
 
 Copyright (c) 2006-2007, Elliot Shank C<< <perl@galumph.com> >>. All rights
 reserved.
index c1a5747..bb98dd2 100755 (executable)
@@ -14,7 +14,7 @@ use 5.008001;
 use strict;
 use warnings;
 
-use version; our $VERSION = qv('99.2.293');
+use version; our $VERSION = qv('1.002');
 
 use Carp qw{ croak };
 use English qw{ -no_match_vars };
@@ -217,6 +217,8 @@ __END__
 
 =pod
 
+=for stopwords SQLite analyses
+
 =head1 NAME
 
 C<loadanalysisdb> - Critique a body of code and load the results into a database for later processing.
@@ -301,7 +303,7 @@ This is an example program and thus does minimal error handling.
 Elliot Shank  C<< <perl@galumph.com> >>
 
 
-=head1 LICENSE AND COPYRIGHT
+=head1 COPYRIGHT
 
 Copyright (c) 2006-2007, Elliot Shank C<< <perl@galumph.com> >>. All rights
 reserved.
index 93fe0d4..fa5dc56 100644 (file)
@@ -27,6 +27,7 @@ our @EXPORT_OK = qw(
     subtests_in_tree
     should_skip_author_tests
     get_author_test_skip_message
+    starting_points_including_examples
     bundled_policy_names
 );
 
@@ -128,6 +129,10 @@ sub get_author_test_skip_message {
     return 'Author test.  Set $ENV{TEST_AUTHOR} to a true value to run.';
 }
 
+sub starting_points_including_examples {
+    return (-e 'blib' ? 'blib' : 'lib', 'examples');
+}
+
 # The internal representation of a subtest is just a hash with some
 # named keys.  It could be an object with accessors for safety's sake,
 # but at this point I don't see why.
@@ -336,6 +341,11 @@ Answers whether author tests should run.
 Returns a string containing the message that should be emitted when a test
 is skipped due to it being an author test when author tests are not enabled.
 
+=item starting_points_including_examples()
+
+Returns a list of the directories contain code that needs to be tested when it
+is desired that the examples be included.
+
 =item bundled_policy_names()
 
 Returns a list of Policy packages that come bundled with this package.  This
index 32c184d..3d78e82 100644 (file)
@@ -15,7 +15,10 @@ use English qw( -no_match_vars );
 use File::Spec qw();
 use Test::More;
 use Perl::Critic::PolicyFactory ( -test => 1 );
-use Perl::Critic::TestUtils qw{ should_skip_author_tests get_author_test_skip_message };
+use Perl::Critic::TestUtils qw{
+    should_skip_author_tests get_author_test_skip_message
+    starting_points_including_examples
+};
 
 if (should_skip_author_tests()) {
     plan skip_all => get_author_test_skip_message();
@@ -57,7 +60,8 @@ if ( !$EVAL_ERROR ) {
 
 my $rcfile = File::Spec->catfile( 't', '40_perlcriticrc' );
 Test::Perl::Critic->import( -profile => $rcfile );
-all_critic_ok();
+
+all_critic_ok( starting_points_including_examples() );
 
 #-----------------------------------------------------------------------------
 
index dda058f..70e627f 100644 (file)
 use strict;
 use warnings;
 use Test::More;
-use Perl::Critic::TestUtils qw{ should_skip_author_tests get_author_test_skip_message };
+use Perl::Critic::TestUtils qw{
+    should_skip_author_tests get_author_test_skip_message
+    starting_points_including_examples
+};
 
 #-----------------------------------------------------------------------------
 
@@ -25,7 +28,7 @@ plan skip_all => 'Optional Test::Spelling, File::Which and aspell program requir
 
 add_stopwords(<DATA>);
 set_spell_cmd("$aspell_path list");
-all_pod_files_spelling_ok();
+all_pod_files_spelling_ok( starting_points_including_examples() );
 
 __DATA__
 autoflushes
index 6d60587..26b19dc 100644 (file)
 use strict;
 use warnings;
 use Test::More;
+use Perl::Critic::TestUtils qw{ starting_points_including_examples };
 
 eval 'use Test::Pod 1.00';  ## no critic
 plan skip_all => 'Test::Pod 1.00 required for testing POD' if $@;
-all_pod_files_ok();# Local Variables:
+all_pod_files_ok( all_pod_files( starting_points_including_examples() ) );
+
+# Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4
 #   fill-column: 78