Login
Fix RequireVersionVar in tests.
authorElliot Shank <perl@galumph.com>
Mon, 7 Jul 2008 00:20:29 +0000 (00:20 +0000)
committerElliot Shank <perl@galumph.com>
Mon, 7 Jul 2008 00:20:29 +0000 (00:20 +0000)
43 files changed:
t/01_config.t
t/01_config_bad_perlcriticrc.t
t/01_policy_config.t
t/02_policy.t
t/03_pragmas.t
t/04_optionsprocessor.t
t/05_utils.t
t/05_utils_pod.t
t/05_utils_ppi.t
t/06_violation.t
t/07_perlcritic.t
t/08_document.t
t/09_theme.t
t/10_userprofile.t
t/11_policyfactory.t
t/12_policylisting.t
t/12_themelisting.t
t/13_bundled_policies.t
t/14_policy_parameter_behavior_boolean.t
t/14_policy_parameter_behavior_enumeration.t
t/14_policy_parameter_behavior_integer.t
t/14_policy_parameter_behavior_list_string.t
t/14_policy_parameter_behavior_string.t
t/14_policy_parameters.t
t/15_statistics.t
t/16_roundtrip_defaults.t
t/20_policies.t
t/20_policy_podspelling.t
t/20_policy_prohibithardtabs.t
t/20_policy_prohibittrailingwhitespace.t
t/20_policy_requireconsistentnewlines.t
t/20_policy_requiretidycode.t
t/92_memory_leaks.t
t/98_pod_syntax.t
t/99_pod_coverage.t
xt/author/40_criticize-code.t
xt/author/41_criticize-policies.t
xt/author/42_criticize-tests.t
xt/author/80_policysummary.t
xt/author/93_version.t
xt/author/94_includes.t
xt/author/95_kwalitee.t
xt/author/generate_without_optional_dependencies_wrappers.PL

index e89895a..ef7d040 100644 (file)
@@ -27,6 +27,11 @@ use Perl::Critic::Utils qw< :severities >;
 
 use Test::More tests => 66;
 
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
 
 Perl::Critic::TestUtils::block_perlcriticrc();
 
index e08fd5f..a2c4b42 100644 (file)
@@ -24,6 +24,12 @@ use Test::More;
 use Perl::Critic::PolicyFactory (-test => 1);
 use Perl::Critic;
 
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 plan tests => 13;
 
 Readonly::Scalar my $PROFILE => 't/01_bad_perlcriticrc';
index f07cd89..9ae4803 100644 (file)
@@ -17,6 +17,10 @@ use Test::More tests => 29;
 
 #-----------------------------------------------------------------------------
 
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 BEGIN {
     use_ok('Perl::Critic::PolicyConfig') or confess 'No point in continuing.';
 }
index ff4e822..795282a 100644 (file)
@@ -17,6 +17,11 @@ use Test::More tests => 26;
 
 
 #-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 # Perl::Critic::Policy is an abstract class, so it can't be instantiated
 # directly.  So we test it by declaring test classes that inherit from it.
 
index 881ef65..d156e3d 100644 (file)
@@ -16,6 +16,13 @@ use Perl::Critic::PolicyFactory (-test => 1);
 
 # common P::C testing tools
 use Perl::Critic::TestUtils qw(critique);
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 # Configure Critic not to load certain policies.  This
index 8bce405..dc234b9 100644 (file)
@@ -19,6 +19,10 @@ use Test::More tests => 24;
 
 #-----------------------------------------------------------------------------
 
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 {
     my $processor = Perl::Critic::OptionsProcessor->new();
     is($processor->force(),    0,           'native default force');
index 458e4f6..c61e026 100644 (file)
@@ -17,6 +17,10 @@ use Test::More tests => 115;
 
 #-----------------------------------------------------------------------------
 
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 BEGIN
 {
     # Needs to be in BEGIN for global vars
index 245900a..5ecd3b3 100644 (file)
@@ -19,6 +19,10 @@ use Test::More tests => 62;
 
 #-----------------------------------------------------------------------------
 
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Readonly::Scalar my $EXCEPTION_MESSAGE_REGEX =>
     qr<malformed [ ] name [ ] section>xmsi;
 
index bcdff89..7d029a3 100644 (file)
@@ -16,6 +16,10 @@ use Test::More tests => 67;
 
 #-----------------------------------------------------------------------------
 
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 my @PPI_STATEMENT_CLASSES;
 
 BEGIN {
index 79d5830..bb1f0e6 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
-use PPI::Document;
+
 use English qw(-no_match_vars);
+
+use PPI::Document;
+
 use Test::More tests => 41;
 
 #-----------------------------------------------------------------------------
 
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 BEGIN
 {
     # Needs to be in BEGIN for global vars
index 307fba1..5706c58 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
-use File::Spec;
+
 use English qw(-no_match_vars);
+
+use File::Spec;
+
 use Test::More tests => 36;
 
 #-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 # Load perlcritic like a library so we can test its subroutines.  If it is not
 # found in blib, then use the one in bin (for example, when using 'prove')
 
index 91324ae..4e943a3 100644 (file)
@@ -19,6 +19,10 @@ use Test::More tests => 25;
 
 #-----------------------------------------------------------------------------
 
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 use_ok('Perl::Critic::Document');
 can_ok('Perl::Critic::Document', 'new');
 can_ok('Perl::Critic::Document', 'filename');
index 8bf04b0..a5ca0e9 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
+
 use English qw(-no_match_vars);
 
 use List::MoreUtils qw(any all none);
-use Test::More (tests => 66);
 
 use Perl::Critic::TestUtils;
 use Perl::Critic::PolicyFactory;
 use Perl::Critic::UserProfile;
 use Perl::Critic::Theme;
 
+use Test::More tests => 66;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
 #-----------------------------------------------------------------------------
 
-ILLEGAL_RULES:{
+ILLEGAL_RULES: {
 
     my @invalid_rules = (
         '$cosmetic',
@@ -43,7 +49,7 @@ ILLEGAL_RULES:{
 
 #-----------------------------------------------------------------------------
 
-VALID_RULES:{
+VALID_RULES: {
 
     my @valid_rules = (
         'cosmetic',
@@ -74,8 +80,7 @@ VALID_RULES:{
 
 #-----------------------------------------------------------------------------
 
-TRANSLATIONS:
-{
+TRANSLATIONS: {
     my %expressions = (
         'cosmetic'                     =>  'cosmetic',
         '!cosmetic'                    =>  '!cosmetic',
index 0efbd6e..5558905 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
-use Test::More tests => 41;
+
 use English qw(-no_match_vars);
+
 use Perl::Critic::UserProfile;
 
+use Test::More tests => 41;
+
 #-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 # Create profile from hash
 
 {
index 57ce432..1cf9322 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
+
 use English qw(-no_match_vars);
-use Test::More (tests => 10);
+
 use Perl::Critic::UserProfile;
 use Perl::Critic::PolicyFactory (-test => 1);
-
-# common P::C testing tools
 use Perl::Critic::TestUtils qw();
+
+use Test::More tests => 10;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 #-----------------------------------------------------------------------------
index 4be510a..0c7928e 100644 (file)
@@ -13,12 +13,16 @@ use warnings;
 
 use English qw<-no_match_vars>;
 
-use Test::More;
-
 use Perl::Critic::UserProfile;
 use Perl::Critic::PolicyFactory (-test => 1);
 use Perl::Critic::PolicyListing;
 
+use Test::More;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
 #-----------------------------------------------------------------------------
 
 my $profile = Perl::Critic::UserProfile->new( -profile => 'NONE' );
index 00c96e8..41a5d7e 100644 (file)
@@ -21,6 +21,10 @@ use Test::More tests => 1;
 
 #-----------------------------------------------------------------------------
 
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 my $profile = Perl::Critic::UserProfile->new( -profile => 'NONE' );
 my @policy_names = Perl::Critic::PolicyFactory::site_policy_names();
 my $factory = Perl::Critic::PolicyFactory->new( -profile => $profile );
index 82b7f07..ea8d8c5 100644 (file)
@@ -11,13 +11,18 @@ use 5.006001;
 use strict;
 use warnings;
 
-use Test::More (tests => 1);
-
 use Perl::Critic::UserProfile;
 use Perl::Critic::PolicyFactory (-test => 1);
-
-# common P::C testing tools
 use Perl::Critic::TestUtils qw(bundled_policy_names);
+
+use Test::More tests => 1;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 #-----------------------------------------------------------------------------
index 3a32a7f..b0bf2f6 100644 (file)
@@ -11,12 +11,19 @@ use 5.006001;
 use strict;
 use warnings;
 
-use Test::More tests => 9;
 use English qw(-no_match_vars);
 
-use Perl::Critic::Utils qw{ :booleans };
 use Perl::Critic::Policy;
 use Perl::Critic::PolicyParameter;
+use Perl::Critic::Utils qw{ :booleans };
+
+use Test::More tests => 9;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
 
 my $specification;
 my $parameter;
index 4266ddf..c156ac9 100644 (file)
@@ -11,12 +11,19 @@ use 5.006001;
 use strict;
 use warnings;
 
-use Test::More tests => 24;
 use English qw(-no_match_vars);
 
 use Perl::Critic::Policy;
 use Perl::Critic::PolicyParameter;
 
+use Test::More tests => 24;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 my $specification;
 my $parameter;
 my %config;
index c5cf87b..b0e0ee7 100644 (file)
@@ -11,13 +11,20 @@ use 5.006001;
 use strict;
 use warnings;
 
-use Test::More tests => 22;
 use English qw(-no_match_vars);
 
 use Perl::Critic::Policy;
 use Perl::Critic::PolicyParameter;
 use Perl::Critic::Utils qw{ :booleans };
 
+use Test::More tests => 22;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 my $specification;
 my $parameter;
 my %config;
index 66c2da7..dbc4d77 100644 (file)
@@ -11,12 +11,19 @@ use 5.006001;
 use strict;
 use warnings;
 
-use Test::More tests => 28;
 use English qw(-no_match_vars);
 
 use Perl::Critic::Policy;
 use Perl::Critic::PolicyParameter;
 
+use Test::More tests => 28;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 my $specification;
 my $parameter;
 my %config;
index 2233cb3..276809c 100644 (file)
@@ -11,12 +11,19 @@ use 5.006001;
 use strict;
 use warnings;
 
-use Test::More tests => 4;
 use English qw(-no_match_vars);
 
 use Perl::Critic::Policy;
 use Perl::Critic::PolicyParameter;
 
+use Test::More tests => 4;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 my $specification;
 my $parameter;
 my %config;
index a4cae96..6b25c0e 100644 (file)
@@ -19,6 +19,12 @@ use Perl::Critic::PolicyParameter qw{ $NO_DESCRIPTION_AVAILABLE };
 use Perl::Critic::Utils qw( policy_short_name );
 use Perl::Critic::TestUtils qw(bundled_policy_names);
 
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 use Test::More; #plan set below!
 
 Perl::Critic::TestUtils::block_perlcriticrc();
index 97457a5..f4a3fe1 100644 (file)
@@ -11,11 +11,19 @@ use 5.006001;
 use strict;
 use warnings;
 
-use Test::More (tests => 25);
 use English qw(-no_match_vars);
+
 use Perl::Critic::PolicyFactory (-test => 1);
 use Perl::Critic::TestUtils;
 
+use Test::More (tests => 25);
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 #-----------------------------------------------------------------------------
index d3470e0..fb5f4de 100644 (file)
@@ -13,13 +13,17 @@ use warnings;
 
 use English qw(-no_match_vars);
 
-use Test::More;
-
 use Perl::Critic::PolicyFactory (-test => 1);
 use Perl::Critic::Config;
 use Perl::Critic::ProfilePrototype;
 use Perl::Critic::Utils qw{ :characters :severities };
 
+use Test::More;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
 #-----------------------------------------------------------------------------
 
 eval 'use Test::Deep'; ## no critic (
index 6d136fc..b3930b2 100644 (file)
@@ -3,16 +3,24 @@
 use 5.006001;
 use strict;
 use warnings;
-use Test::More;
+
 use English qw(-no_match_vars);
 
-# common P::C testing tools
 use Perl::Critic::Utils qw( :characters );
 use Perl::Critic::TestUtils qw(
     pcritique_with_violations
     fcritique_with_violations
     subtests_in_tree
 );
+
+use Test::More;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 my $subtests = subtests_in_tree( 't' );
index 7150181..b0b51ad 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
-use Test::More tests => 4;
 
-# common P::C testing tools
 use Perl::Critic::TestUtils qw(pcritique);
+
+use Test::More tests => 4;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 my $code;
index 9af4e47..835942d 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
-use Test::More tests => 5;
 
 # common P::C testing tools
 use Perl::Critic::TestUtils qw(pcritique fcritique);
+
+use Test::More tests => 5;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 # This specific policy is being tested without run.t because the .run file
index e47587c..6d17a18 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
-use Test::More tests => 2;
 
 use Perl::Critic::Utils qw( :characters );
-
 use Perl::Critic::TestUtils qw( pcritique );
+
+use Test::More tests => 2;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 # This specific policy is being tested without 20_policies.t because the .run file
index 814efaf..5325845 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
-use Test::More tests => 29;
 
-# common P::C testing tools
 use Perl::Critic::TestUtils qw(pcritique fcritique);
+
+use Test::More tests => 29;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 my $code;
index c861a70..77edd49 100644 (file)
@@ -11,10 +11,16 @@ use 5.006001;
 use strict;
 use warnings;
 
+use Perl::Critic::TestUtils qw(pcritique);
+
 use Test::More tests => 6;
 
-# common P::C testing tools
-use Perl::Critic::TestUtils qw(pcritique);
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 my $code;
index db4e9c4..4449f4d 100644 (file)
@@ -11,15 +11,21 @@ use 5.006001;
 use strict;
 use warnings;
 
-use Test::More; #plan set below
+use PPI::Document;
 
-use Perl::Critic::PolicyFactory (-test => 1);
+use Perl::Critic::PolicyFactory -test => 1;
 use Perl::Critic::Document;
 use Perl::Critic;
+use Perl::Critic::TestUtils qw();
 
-use PPI::Document;
+use Test::More; #plan set below
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
 
-use Perl::Critic::TestUtils qw();
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 eval 'use Test::Memory::Cycle'; ## no critic
index f5550c4..ef40a8a 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
-use Test::More;
+
 use Perl::Critic::TestUtils qw{ starting_points_including_examples };
 
+use Test::More;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 eval 'use Test::Pod 1.00';  ## no critic
 plan skip_all => 'Test::Pod 1.00 required for testing POD' if $@;
 all_pod_files_ok( all_pod_files( starting_points_including_examples() ) );
index 8881f41..ccf21bc 100644 (file)
 use 5.006001;
 use strict;
 use warnings;
+
 use Test::More;
 
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 eval 'use Test::Pod::Coverage 1.04'; ## no critic
 plan skip_all => 'Test::Pod::Coverage 1.00 requried to test POD' if $@;
 
index f497fa4..e71f79e 100644 (file)
@@ -15,7 +15,6 @@ use warnings;
 use English qw( -no_match_vars );
 
 use File::Spec qw();
-use Test::More;
 
 use Perl::Critic::Utils qw{ :characters };
 use Perl::Critic::TestUtils qw{ starting_points_including_examples };
@@ -27,6 +26,12 @@ use Perl::Critic::PolicyFactory (
     '-extra-test-policies' => [ qw{ ErrorHandling::RequireUseOfExceptions } ],
 );
 
+use Test::More;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
 #-----------------------------------------------------------------------------
 
 eval { require Test::Perl::Critic; };
index 29e98b5..2e4c4c6 100644 (file)
@@ -16,9 +16,13 @@ use English qw< -no_match_vars >;
 
 use File::Spec qw<>;
 
+use Perl::Critic::PolicyFactory ( '-test' => 1 );
+
 use Test::More;
 
-use Perl::Critic::PolicyFactory ( '-test' => 1 );
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
 
 #-----------------------------------------------------------------------------
 
index c9eb37b..8f73833 100644 (file)
@@ -15,7 +15,6 @@ use warnings;
 use English qw( -no_match_vars );
 
 use File::Spec qw();
-use Test::More;
 
 use Perl::Critic::Utils qw{ :characters };
 use Perl::Critic::TestUtils qw{ starting_points_including_examples };
@@ -24,6 +23,12 @@ use Perl::Critic::TestUtils qw{ starting_points_including_examples };
 # -extra-test-policies option to work.
 use Perl::Critic::PolicyFactory ( '-test' => 1 );
 
+use Test::More;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
 #-----------------------------------------------------------------------------
 
 eval { require Test::Perl::Critic; };
index 569760f..6a96d38 100644 (file)
@@ -22,6 +22,10 @@ use Test::More;
 
 #-----------------------------------------------------------------------------
 
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 my $summary_file =
     File::Spec->catfile( qw< lib Perl Critic PolicySummary.pod > );
 if (open my ($fh), '<', $summary_file) {
index 496e939..7ab0948 100644 (file)
@@ -1,10 +1,18 @@
 #!perl -w
-use warnings;
+
 use strict;
+use warnings;
 
 use File::Find;
+
 use Test::More;
 
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 plan 'no_plan';
 
 my $last_version = undef;
index 3d8ffc3..77bfeaf 100644 (file)
@@ -1,13 +1,19 @@
 #!perl
 
-use warnings;
 use strict;
-
-use Test::More;
+use warnings;
 
 use File::Find;
 use PPI::Document;
 
+use Test::More;
+
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 my %implied = (
     # Universal
     SUPER => 1,
index 24c80ad..32710e1 100644 (file)
@@ -5,6 +5,12 @@ use warnings;
 
 use Test::More;
 
+#-----------------------------------------------------------------------------
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
 eval {
    require Test::Kwalitee;
    Test::Kwalitee->import( tests => [ qw{ -no_symlinks } ] );
index ce83e9b..a5d63da 100644 (file)
@@ -11,17 +11,21 @@ use 5.006001;
 use strict;
 use warnings;
 
-use lib 'inc';
-
 use English qw{-no_match_vars};
 use Readonly;
 use Carp qw{ confess };
 use Fatal qw{ open close };
 
+use lib 'inc';
+
 use Perl::Critic::BuildUtilities qw{ recommended_module_versions };
 
+#-----------------------------------------------------------------------------
+
 our $VERSION = '1.088';
 
+#-----------------------------------------------------------------------------
+
 Readonly::Scalar my $GENERATED_DIRECTORY => 'xt/author/generated/';
 
 if ( not -d $GENERATED_DIRECTORY ) {