git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/Miscellanea/RequireRcsKeywords.run

   1 ## name RCS keywords in POD
   2 ## failures 0
   3 ## cut
   4 =pod
   5
   6   $Revision: 1006 $
   7   $Source$
   8   $Date: 2006-12-03 00:23:19 -0600 (Sun, 03 Dec 2006) $
   9
  10 =cut
  11
  12 #-----------------------------------------------------------------------------
  13
  14 ## name No RCS keywords at all
  15 ## failures 3
  16 ## cut
  17
  18 #just a comment
  19 $foo = "bar";
  20 $baz = qq{nuts};
  21
  22 #-----------------------------------------------------------------------------
  23
  24 ## name Keywords in comments
  25 ## failures 0
  26 ## cut
  27 # $Revision: 1006 $
  28 # $Source$
  29 # $Date: 2006-12-03 00:23:19 -0600 (Sun, 03 Dec 2006) $
  30
  31 #-----------------------------------------------------------------------------
  32
  33 ## name Id in comments
  34 ## failures 0
  35 ## cut
  36 # $Id$
  37 END_PERL
  38
  39 #-----------------------------------------------------------------------------
  40
  41 ## name Keywords in literals
  42 ## failures 0
  43 ## cut
  44 '$Revision: 1006 $'
  45 '$Source: foo/bar $'
  46 '$Date: 2006-12-03 00:23:19 -0600 (Sun, 03 Dec 2006) $'
  47
  48 #-----------------------------------------------------------------------------
  49
  50 ## name Keywords in literals, q{}-style
  51 ## failures 0
  52 ## cut
  53 q{$Revision: 1006 $}
  54 q{$Source: foo/bar $}
  55 q{$Date: 2006-12-03 00:23:19 -0600 (Sun, 03 Dec 2006) $}
  56
  57 #-----------------------------------------------------------------------------
  58
  59 ## name Keywords in literals, q{}-style, with parms
  60 ## failures 0
  61 ## parms {keywords => 'Revision Author Id'}
  62 ## cut
  63 q{$Revision: 1006 $}
  64 q{$Author: petdance $}
  65 q{$Id: whatever $}
  66
  67 #-----------------------------------------------------------------------------
  68
  69 ## name Empty code
  70 ## failures 1
  71 ## parms {keywords => 'Author Id'}
  72 ## cut
  73 #nothing here!
  74 $policy = 'Miscellanea::RequireRcsKeywords';
  75 is( pcritique($policy, \$code, \%config), 1, $policy);
  76