## name RCS keywords in POD
## failures 0
## cut

=pod

  $Revision: 3550 $
  $Source$
  $Date: 2009-08-09 14:51:07 -0700 (Sun, 09 Aug 2009) $

=cut

#-----------------------------------------------------------------------------

## name No RCS keywords at all
## failures 3
## cut

#just a comment
$foo = "bar";
$baz = qq{nuts};

#-----------------------------------------------------------------------------

## name Keywords in comments
## failures 0
## cut

# $Revision: 3550 $
# $Source$
# $Date: 2009-08-09 14:51:07 -0700 (Sun, 09 Aug 2009) $

#-----------------------------------------------------------------------------

## name Id in comments
## failures 0
## cut

# $Id$
END_PERL

#-----------------------------------------------------------------------------

## name Keywords in literals
## failures 0
## cut

'$Revision: 3550 $'
'$Source: foo/bar $'
'$Date: 2009-08-09 14:51:07 -0700 (Sun, 09 Aug 2009) $'

#-----------------------------------------------------------------------------

## name Keywords in literals, q{}-style
## failures 0
## cut

q{$Revision: 3550 $}
q{$Source: foo/bar $}
q{$Date: 2009-08-09 14:51:07 -0700 (Sun, 09 Aug 2009) $}

#-----------------------------------------------------------------------------

## name Keywords in literals, q{}-style, with parms
## failures 0
## parms {keywords => 'Revision Author Id'}
## cut

q{$Revision: 3550 $}
q{$Author: clonezone $}
q{$Id: whatever $}

#-----------------------------------------------------------------------------

## name Empty code
## failures 1
## parms {keywords => 'Author Id'}
## cut

#nothing here!
$policy = 'Miscellanea::RequireRcsKeywords';
is( pcritique($policy, \$code, \%config), 1, $policy);

#-----------------------------------------------------------------------------

## name Keywords after __END__
## failures 0
## cut

__END__
# $Revision: 3550 $
# $Source$
# $Date: 2009-08-09 14:51:07 -0700 (Sun, 09 Aug 2009) $

#-----------------------------------------------------------------------------

## name Keywords in qw$ ... $ (RT 45196)
## failures 0
## parms {keywords => 'Revision'}
## cut

use version; our $VERSION = qv( '1.0.' . qw$Revision: 3550 $ );

#-----------------------------------------------------------------------------

## name Keywords in qw{$ ... $} are invalid (RT 45196)
## failures 1
## parms {keywords => 'Revision'}
## cut

use version; our $VERSION = qv( '1.0.' . qw{ $Revision: 3550 $ } );

#-----------------------------------------------------------------------------

## cut

# The above '## cut' prevents the following lines from being included in the
# last test's document and producing false negatives (or positives, as the
# case may be).

##############################################################################
#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/t/Miscellanea/RequireRcsKeywords.run $
#     $Date: 2009-08-09 14:51:07 -0700 (Sun, 09 Aug 2009) $
#   $Author: clonezone $
# $Revision: 3550 $
##############################################################################

# 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 :