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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 use 5.006_001;
   6 require 5.006_001;
   7
   8 use Foo 1.0203;
   9 require Foo 1.0203;
  10
  11 use Foo 1.0203 qw(foo bar);
  12 require Foo 1.0203 qw(foo bar);
  13
  14 is( pcritique($policy, \$code), 0, $policy);
  15
  16 use lib '/usr/lib/perl5/vendor_perl/5.8.8'; # RT #30388
  17
  18 #-----------------------------------------------------------------------------
  19
  20 ## name use failure
  21 ## failures 7
  22 ## cut
  23
  24 use 5.6.1;
  25 use v5.6.1;
  26 use Foo 1.2.3;
  27 use Foo v1.2.3;
  28 use Foo 1.2.3 qw(foo bar);
  29 use Foo v1.2.3 qw(foo bar);
  30 use Foo v1.2.3 ('foo', 'bar');
  31
  32 #-----------------------------------------------------------------------------
  33
  34 ## name require failure
  35 ## failures 7
  36 ## cut
  37
  38 require 5.6.1;
  39 require v5.6.1;
  40 require Foo 1.2.3;
  41 require Foo v1.2.3;
  42 require Foo 1.2.3 qw(foo bar);
  43 require Foo v1.2.3 qw(foo bar);
  44 require Foo v1.2.3 ('foo', 'bar');
  45
  46 #-----------------------------------------------------------------------------
  47
  48 ##############################################################################
  49 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/ProhibitVersionStrings.run $
  50 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  51 #   $Author: clonezone $
  52 # $Revision: 2187 $
  53 ##############################################################################
  54
  55 # Local Variables:
  56 #   mode: cperl
  57 #   cperl-indent-level: 4
  58 #   fill-column: 78
  59 #   indent-tabs-mode: nil
  60 #   c-indentation-style: bsd
  61 # End:
  62 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :