+++ /dev/null
-#!perl
-
-##############################################################################
-# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/00_modules.t $
-# $Date: 2008-07-03 10:19:10 -0500 (Thu, 03 Jul 2008) $
-# $Author: clonezone $
-# $Revision: 2489 $
-##############################################################################
-
-use 5.006001;
-use strict;
-use warnings;
-
-use English qw(-no_match_vars);
-
-use PPI::Document;
-
-use Perl::Critic::TestUtils qw(bundled_policy_names);
-
-use Test::More;
-
-#-----------------------------------------------------------------------------
-
-our $VERSION = '1.088';
-
-#-----------------------------------------------------------------------------
-
-Perl::Critic::TestUtils::block_perlcriticrc();
-
-my @bundled_policy_names = bundled_policy_names();
-
-my @concrete_exceptions = qw{
- AggregateConfiguration
- Configuration::Generic
- Configuration::Option::Global::ExtraParameter
- Configuration::Option::Global::ParameterValue
- Configuration::Option::Policy::ExtraParameter
- Configuration::Option::Policy::ParameterValue
- Fatal::Generic
- Fatal::Internal
- Fatal::PolicyDefinition
- IO
-};
-
-plan tests =>
- 108
- + ( 9 * scalar @concrete_exceptions )
- + ( 14 * scalar @bundled_policy_names );
-
-# pre-compute for version comparisons
-my $version_string = __PACKAGE__->VERSION;
-
-#-----------------------------------------------------------------------------
-# Test Perl::Critic module interface
-
-use_ok('Perl::Critic') or BAIL_OUT(q<Can't continue.>);
-can_ok('Perl::Critic', 'new');
-can_ok('Perl::Critic', 'add_policy');
-can_ok('Perl::Critic', 'config');
-can_ok('Perl::Critic', 'critique');
-can_ok('Perl::Critic', 'policies');
-
-#Set -profile to avoid messing with .perlcriticrc
-my $critic = Perl::Critic->new( -profile => 'NONE' );
-isa_ok($critic, 'Perl::Critic');
-is($critic->VERSION(), $version_string, 'Perl::Critic version');
-
-#-----------------------------------------------------------------------------
-# Test Perl::Critic::Config module interface
-
-use_ok('Perl::Critic::Config') or BAIL_OUT(q<Can't continue.>);
-can_ok('Perl::Critic::Config', 'new');
-can_ok('Perl::Critic::Config', 'add_policy');
-can_ok('Perl::Critic::Config', 'policies');
-can_ok('Perl::Critic::Config', 'exclude');
-can_ok('Perl::Critic::Config', 'force');
-can_ok('Perl::Critic::Config', 'include');
-can_ok('Perl::Critic::Config', 'only');
-can_ok('Perl::Critic::Config', 'profile_strictness');
-can_ok('Perl::Critic::Config', 'severity');
-can_ok('Perl::Critic::Config', 'single_policy');
-can_ok('Perl::Critic::Config', 'theme');
-can_ok('Perl::Critic::Config', 'top');
-can_ok('Perl::Critic::Config', 'verbose');
-can_ok('Perl::Critic::Config', 'color');
-can_ok('Perl::Critic::Config', 'criticism_fatal');
-can_ok('Perl::Critic::Config', 'site_policy_names');
-
-#Set -profile to avoid messing with .perlcriticrc
-my $config = Perl::Critic::Config->new( -profile => 'NONE');
-isa_ok($config, 'Perl::Critic::Config');
-is($config->VERSION(), $version_string, 'Perl::Critic::Config version');
-
-#-----------------------------------------------------------------------------
-# Test Perl::Critic::Config::OptionsProcessor module interface
-
-use_ok('Perl::Critic::OptionsProcessor') or BAIL_OUT(q<Can't continue.>);
-can_ok('Perl::Critic::OptionsProcessor', 'new');
-can_ok('Perl::Critic::OptionsProcessor', 'exclude');
-can_ok('Perl::Critic::OptionsProcessor', 'include');
-can_ok('Perl::Critic::OptionsProcessor', 'force');
-can_ok('Perl::Critic::OptionsProcessor', 'only');
-can_ok('Perl::Critic::OptionsProcessor', 'profile_strictness');
-can_ok('Perl::Critic::OptionsProcessor', 'single_policy');
-can_ok('Perl::Critic::OptionsProcessor', 'severity');
-can_ok('Perl::Critic::OptionsProcessor', 'theme');
-can_ok('Perl::Critic::OptionsProcessor', 'top');
-can_ok('Perl::Critic::OptionsProcessor', 'verbose');
-can_ok('Perl::Critic::OptionsProcessor', 'color');
-can_ok('Perl::Critic::OptionsProcessor', 'criticism_fatal');
-
-my $processor = Perl::Critic::OptionsProcessor->new();
-isa_ok($processor, 'Perl::Critic::OptionsProcessor');
-is($processor->VERSION(), $version_string, 'Perl::Critic::OptionsProcessor version');
-
-#-----------------------------------------------------------------------------
-# Test Perl::Critic::Policy module interface
-
-use_ok('Perl::Critic::Policy') or BAIL_OUT(q<Can't continue.>);
-can_ok('Perl::Critic::Policy', 'add_themes');
-can_ok('Perl::Critic::Policy', 'applies_to');
-can_ok('Perl::Critic::Policy', 'default_severity');
-can_ok('Perl::Critic::Policy', 'default_themes');
-can_ok('Perl::Critic::Policy', 'get_severity');
-can_ok('Perl::Critic::Policy', 'get_themes');
-can_ok('Perl::Critic::Policy', 'new');
-can_ok('Perl::Critic::Policy', 'set_severity');
-can_ok('Perl::Critic::Policy', 'set_themes');
-can_ok('Perl::Critic::Policy', 'violates');
-can_ok('Perl::Critic::Policy', 'violation');
-
-
-my $policy = Perl::Critic::Policy->new();
-isa_ok($policy, 'Perl::Critic::Policy');
-is($policy->VERSION(), $version_string, 'Perl::Critic::Policy version');
-
-#-----------------------------------------------------------------------------
-# Test Perl::Critic::Violation module interface
-
-use_ok('Perl::Critic::Violation') or BAIL_OUT(q<Can't continue.>);
-can_ok('Perl::Critic::Violation', 'description');
-can_ok('Perl::Critic::Violation', 'diagnostics');
-can_ok('Perl::Critic::Violation', 'explanation');
-can_ok('Perl::Critic::Violation', 'get_format');
-can_ok('Perl::Critic::Violation', 'location');
-can_ok('Perl::Critic::Violation', 'new');
-can_ok('Perl::Critic::Violation', 'policy');
-can_ok('Perl::Critic::Violation', 'set_format');
-can_ok('Perl::Critic::Violation', 'severity');
-can_ok('Perl::Critic::Violation', 'sort_by_location');
-can_ok('Perl::Critic::Violation', 'sort_by_severity');
-can_ok('Perl::Critic::Violation', 'source');
-can_ok('Perl::Critic::Violation', 'to_string');
-
-my $code = q{print 'Hello World';};
-my $doc = PPI::Document->new(\$code);
-my $viol = Perl::Critic::Violation->new(undef, undef, $doc, undef);
-isa_ok($viol, 'Perl::Critic::Violation');
-is($viol->VERSION(), $version_string, 'Perl::Critic::Violation version');
-
-#-----------------------------------------------------------------------------
-# Test Perl::Critic::UserProfile module interface
-
-use_ok('Perl::Critic::UserProfile') or BAIL_OUT(q<Can't continue.>);
-can_ok('Perl::Critic::UserProfile', 'options_processor');
-can_ok('Perl::Critic::UserProfile', 'new');
-can_ok('Perl::Critic::UserProfile', 'policy_is_disabled');
-can_ok('Perl::Critic::UserProfile', 'policy_is_enabled');
-
-my $up = Perl::Critic::UserProfile->new();
-isa_ok($up, 'Perl::Critic::UserProfile');
-is($up->VERSION(), $version_string, 'Perl::Critic::UserProfile version');
-
-#-----------------------------------------------------------------------------
-# Test Perl::Critic::PolicyFactory module interface
-
-use_ok('Perl::Critic::PolicyFactory') or BAIL_OUT(q<Can't continue.>);
-can_ok('Perl::Critic::PolicyFactory', 'create_policy');
-can_ok('Perl::Critic::PolicyFactory', 'new');
-can_ok('Perl::Critic::PolicyFactory', 'site_policy_names');
-
-
-my $profile = Perl::Critic::UserProfile->new();
-my $factory = Perl::Critic::PolicyFactory->new( -profile => $profile );
-isa_ok($factory, 'Perl::Critic::PolicyFactory');
-is($factory->VERSION(), $version_string, 'Perl::Critic::PolicyFactory version');
-
-#-----------------------------------------------------------------------------
-# Test Perl::Critic::Theme module interface
-
-use_ok('Perl::Critic::Theme') or BAIL_OUT(q<Can't continue.>);
-can_ok('Perl::Critic::Theme', 'new');
-can_ok('Perl::Critic::Theme', 'rule');
-can_ok('Perl::Critic::Theme', 'policy_is_thematic');
-
-
-my $theme = Perl::Critic::Theme->new( -rule => 'foo' );
-isa_ok($theme, 'Perl::Critic::Theme');
-is($theme->VERSION(), $version_string, 'Perl::Critic::Theme version');
-
-#-----------------------------------------------------------------------------
-# Test Perl::Critic::PolicyListing module interface
-
-use_ok('Perl::Critic::PolicyListing') or BAIL_OUT(q<Can't continue.>);
-can_ok('Perl::Critic::PolicyListing', 'new');
-can_ok('Perl::Critic::PolicyListing', 'to_string');
-
-my $listing = Perl::Critic::PolicyListing->new();
-isa_ok($listing, 'Perl::Critic::PolicyListing');
-is($listing->VERSION(), $version_string, 'Perl::Critic::PolicyListing version');
-
-#-----------------------------------------------------------------------------
-# Test Perl::Critic::ProfilePrototype module interface
-
-use_ok('Perl::Critic::ProfilePrototype') or BAIL_OUT(q<Can't continue.>);
-can_ok('Perl::Critic::ProfilePrototype', 'new');
-can_ok('Perl::Critic::ProfilePrototype', 'to_string');
-
-my $prototype = Perl::Critic::ProfilePrototype->new();
-isa_ok($prototype, 'Perl::Critic::ProfilePrototype');
-is($prototype->VERSION(), $version_string, 'Perl::Critic::ProfilePrototype version');
-
-#-----------------------------------------------------------------------------
-# Test module interface for exceptions
-
-{
- foreach my $class (
- map { "Perl::Critic::Exception::$_" } @concrete_exceptions
- ) {
- use_ok($class) or BAIL_OUT(q<Can't continue.>);
- can_ok($class, 'new');
- can_ok($class, 'throw');
- can_ok($class, 'message');
- can_ok($class, 'error');
- can_ok($class, 'full_message');
- can_ok($class, 'as_string');
-
- my $exception = $class->new();
- isa_ok($exception, $class);
- is($exception->VERSION(), $version_string, "$class version");
- }
-}
-
-#-----------------------------------------------------------------------------
-# Test module interface for each Policy subclass
-
-{
- for my $mod ( @bundled_policy_names ) {
-
- use_ok($mod) or BAIL_OUT(q<Can't continue.>);
- can_ok($mod, 'applies_to');
- can_ok($mod, 'default_severity');
- can_ok($mod, 'default_themes');
- can_ok($mod, 'get_severity');
- can_ok($mod, 'get_themes');
- can_ok($mod, 'new');
- can_ok($mod, 'set_severity');
- can_ok($mod, 'set_themes');
- can_ok($mod, 'set_themes');
- can_ok($mod, 'violates');
- can_ok($mod, 'violation');
-
- my $policy = $mod->new();
- isa_ok($policy, 'Perl::Critic::Policy');
- is($policy->VERSION(), $version_string, "Version of $mod");
- }
-}
-
-#-----------------------------------------------------------------------------
-# Test functional interface to Perl::Critic
-
-Perl::Critic->import( qw(critique) );
-can_ok('main', 'critique'); #Export test
-
-# TODO: These tests are weak. They just verify that it doesn't
-# blow up, and that at least one violation is returned.
-ok( critique( \$code ), 'Functional style, no config' );
-ok( critique( {}, \$code ), 'Functional style, empty config' );
-ok( critique( {severity => 1}, \$code ), 'Functional style, with config');
-ok( !critique(), 'Functional style, no args at all');
-ok( !critique(undef, undef), 'Functional style, undef args');
-
-#-----------------------------------------------------------------------------
-
-# ensure we run true if this test is loaded by
-# t/00_modules.t_without_optional_dependencies.t
-1;
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 78
-# indent-tabs-mode: nil
-# c-indentation-style: bsd
-# End:
-# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :
projects / pkg-perl / blobdiff