X-Git-Url: http://git.maemo.org/git/?a=blobdiff_plain;f=deb-src%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2F13_bundled_policies.t;fp=deb-src%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2F13_bundled_policies.t;h=0000000000000000000000000000000000000000;hb=a97c961991a9ede4148ca4744df94a7641e614f8;hp=bc6bfbc6491f63ed6815320b3c4a0f792ad32e36;hpb=9235c81891f90483b524a2ccb1f8c15689c8dfd3;p=pkg-perl diff --git a/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/13_bundled_policies.t b/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/13_bundled_policies.t deleted file mode 100644 index bc6bfbc..0000000 --- a/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/13_bundled_policies.t +++ /dev/null @@ -1,45 +0,0 @@ -#!perl - -############################################################################## -# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/13_bundled_policies.t $ -# $Date: 2008-06-06 00:48:04 -0500 (Fri, 06 Jun 2008) $ -# $Author: clonezone $ -# $Revision: 2416 $ -############################################################################## - -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); -Perl::Critic::TestUtils::block_perlcriticrc(); - -#----------------------------------------------------------------------------- - -my $profile = Perl::Critic::UserProfile->new(); -my $factory = Perl::Critic::PolicyFactory->new( -profile => $profile ); -my @found_policies = sort map { ref $_ } $factory->create_all_policies(); -my $test_label = 'successfully loaded policies matches MANIFEST'; -is_deeply( \@found_policies, [bundled_policy_names()], $test_label ); - -#----------------------------------------------------------------------------- - -# ensure we run true if this test is loaded by -# t/13_bundled_policies.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 :