vcs.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/Modules/ProhibitEvilModules.run

   1 #-----------------------------------------------------------------------------
   2 ## name 2 evil modules
   3 ## parms {modules => 'Evil::Module Super::Evil::Module'}
   4 ## failures 2
   5 ## cut
   6
   7 use Evil::Module qw(bad stuff);
   8 use Super::Evil::Module;
   9
  10 #-----------------------------------------------------------------------------
  11 ## name No evil modules
  12 ## parms {modules => 'Evil::Module Super::Evil::Module'}
  13 ## failures 0
  14 ## cut
  15
  16 use Good::Module;
  17
  18 #-----------------------------------------------------------------------------
  19 ## name 2 evil modules, with pattern matching
  20 ## parms { modules => '/Evil::/ /Demonic/' }
  21 ## failures 2
  22 ## cut
  23
  24 use Evil::Module qw(bad stuff);
  25 use Demonic::Module
  26
  27 #-----------------------------------------------------------------------------
  28 ## name More evil modules, with mixed config
  29 ## parms { modules => '/Evil::/ Demonic::Module /Acme/' }
  30 ## failures 4
  31 ## cut
  32
  33 use Evil::Module qw(bad stuff);
  34 use Super::Evil::Module;
  35 use Demonic::Module;
  36 use Acme::Foo;
  37
  38 #-----------------------------------------------------------------------------
  39 ## name More evil modules, with more pattern matching
  40 ## parms { modules => '/Evil::|Demonic::Module|Acme/' }
  41 ## failures 4
  42 ## cut
  43
  44 use Evil::Module qw(bad stuff);
  45 use Super::Evil::Module;
  46 use Demonic::Module;
  47 use Acme::Foo;
  48
  49 #-----------------------------------------------------------------------------
  50 ## name Pattern matching exceptions
  51 ## parms { modules => '/(/' }
  52 ## failures 0
  53 ## error /invalid regular expression/
  54 ## cut
  55
  56 print 'Hello World';
  57
  58 ##############################################################################
  59 # Local Variables:
  60 #   mode: cperl
  61 #   cperl-indent-level: 4
  62 #   fill-column: 78
  63 #   indent-tabs-mode: nil
  64 #   c-indentation-style: bsd
  65 # End:
  66 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :